Bonjour à tous,

Je suis bloqué sur une maccro et souhaite avoir de l'aide.

Pour résumer, j'ai une maccro qui va tester le contenu d'une cellule sur une base de donnée en feuille 3, ouvrir une fenêtre et afficher en list_box les occurences se rapprochant de la valeur saisie.

Jusqu'ici tout va bien. Puis lorsque je sélectionne une des valeurs proposées en liste box, la description correspondante s'affiche dans un champs (qui correspond à la colonne 2 de la base de donnée).

Ma maccro tourne bien mais le souci, c'est qu'elle recherche à chaque fois à partir de la première ligne. Ors, je peux avoir des valeurs identique avec une description différente.

Exemple:

Base de donnée:

(Valeur) Colonne A: A - B - C - D - C - E - C - C

(Description) Colonne B: 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8

Si je cherche la valeur "C", elle m'affichera toujours la description '3'

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Private Sub LtBx_Liste_Change()
 
Dim CEL As Range
 
For Each CEL In Sheets("Database").Range("A1:A" & Sheets("Database").Range("A65536").End(xlUp).Row)
 
            If LtBx_Liste.Value = CEL.Value Then
 
                Rech_Coulee.TtBx_Description.Value = CEL.Offset(0, 1).Value
 
            Else
 
            End If
 
Next CEL
 
End Sub
Je ne sais pas tourner mon code pour qu'il reprenne la recherche à la ligne suivante et non du début.

Merci à tous par avance.