Discussion :

[Tony4152]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For i = 2 To 4
    If ListBox1 = Cells(1, i) Then
        VarCol = i
    End If
Next
 
For J = 2 To 9
    If ListBox2 = Cells(J, "A") Then
      VarLig = J
    End If
Next
 
TextBox1 = Cells(VarLig, VarCol)

Pièce jointe 253864
Dans ListBox1 Les compagnies
Dans ListBox2 Les nations
Le résultat s'affiche dans TextBox1
Donc si tu sélectionne en "compagnie" la valeur A dans la ListBox1 et dans "nation" la valeur A dans la listBox2, renvois la valeur de AA de la cellule B2.

Voilà qui fonctionne à merveille. Simple et efficace. Il me faut juste savoir comment l'administrer à plusieurs ListBox en même temps. Car chaque bon pétrole est affiché sur mon UserForm. J'aimerai en fait, faire de ce code un programme dans un module que je rappellerai à volonté. Mais faire un "Call procédure" à chaque ListBox c'est un peu lourd finalement. Ne puis-je pas imbriquer un For... Next K par exemple et marquer
"ListBox & K" ?

[NenciariniL]

Peux tu illustrer ce que tu veux faire car je n'ai pas bien compris désolé !
Bon dimanche

[Tony4152]

Bonjour.

Je reviens dans la discussion avec beaucoup de retard mais pas facile depuis l'étranger.
Bref je vais simplement clore le sujet parce qu'à force de persévérance, j'ai fini par trouver ce qu'il me fallait.
Cependant je tiens à remercier toutes les personnes qui m'ont suivi ou aiguillé lors de ce sujet.

À très bientôt. 👍