AIDE LISTE DEROULANTE

Bonjour EX_CELL1,

je te propose ce fichier Excel :

https://www.cjoint.com/c/LJjpECnqDf0

* lis le texte en H1, puis fais une sélection dans la liste déroulante de i1.

* lis le texte en H2, puis fais une sélection dans la liste déroulante de i2.

* lis le texte en H4, clique sur le bouton "Go", puis regarde quelle est
la cellule sélectionnée (= la cellule active).

* fais d'autres essais du même genre.  :)

ça devrait te servir pour la conception des 2 listes déroulantes en i1 et i2,
pour le texte concaténé en H4, et pour le positionnement après clic sur
"Go" sur la bonne cellule (selon tes choix en i1 et i2).

si tu voulais autre chose, à toi de mieux le préciser, en donnant
un exemple concret du résultat attendu.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

remarque : j'ai mis 2 listes déroulantes car dans ton exemple,
je ne vois pas bien l'intérêt d'une seule liste !

rhodo

Ajout :

peut-être que tu voudrais cette liste déroulante à rallonge :

ACT1 3NV
ACT1 4NV
ACT1 5NV
ACT2 3NV
ACT2 4NV
ACT2 5NV
ACT3 3NV
ACT3 4NV
ACT3 5NV
ACT4 3NV
ACT4 4NV
ACT4 5NV
ACT5 3NV
ACT5 4NV
ACT5 5NV

mais dans ce cas, c'est plus simple d'utiliser mes 2 listes déroulantes !
et c'est la concaténation faite en H4 qui te donnera ce que tu veux.  :)

rhodo

Bonsoir,

pour le fichier joint dans mon post du 9 octobre,
voici le code VBA du module de Feuil1 :

Option Explicit

Sub GoCase()
  Dim cel As Range, s1$, s2$, col%, lig&
  s1 = [I1]: s2 = [I2]: If s1 = "" Or s2 = "" Then Exit Sub
  Set cel = [B2:F2].Find(s1, , -4163, 1, 1)
  If cel Is Nothing Then Exit Sub
  col = cel.Column
  Set cel = Columns(1).Find(s2, , -4163, 1, 1)
  If cel Is Nothing Then Exit Sub
  Cells(cel.Row, col).Select
End Sub

bien sûr, c'est la macro GoCase() qui est affectée
au bouton "Go" de "Feuil1" (en cellule i4).

rhodo