YANN-56
XLDnaute Barbatruc
Bonsoir à ceux qui passeront par là.
Dans une Feuille, par "Find",
je récupère le numéro de la ligne où se trouve
la Caption du Label1.
En l'occurrence, ici, en colonne B: "Fruits"
Cependant, comme dans cette colonne il y a
plusieurs lignes du même contenu,
J'ai besoin de peaufiner ma recherche par le "Code"
précisé dans le label2
J'ai bidouillé plein de trucs en vain.
Il y a sans doute un " Cells.FindNext(After:=" que je ne maîtrise pas!
Aussi je fais appel à vous en vous remercient par avance.
Bonne fin de soirée à vous.
'++++++++++++++++
Private Sub CommandButton1_Click()
UserForm1.Label3.Caption = Worksheets("LISTE").Cells.Find(UserForm1.Label1.Caption).Row
UserForm1.Label4.Caption = Worksheets("LISTE").Cells.Find(UserForm1.Label2.Caption).Row
'=================================
UserForm1.Label8.Caption = "???"
' J'aimerais y écrire la ligne ayant
' à la fois le Code et le Fruit cherchés,
' ================================
End Sub
' +++++++++++++++++++
Classeur Joint.
YANN-56
Dans une Feuille, par "Find",
je récupère le numéro de la ligne où se trouve
la Caption du Label1.
En l'occurrence, ici, en colonne B: "Fruits"
Cependant, comme dans cette colonne il y a
plusieurs lignes du même contenu,
J'ai besoin de peaufiner ma recherche par le "Code"
précisé dans le label2
J'ai bidouillé plein de trucs en vain.
Il y a sans doute un " Cells.FindNext(After:=" que je ne maîtrise pas!
Aussi je fais appel à vous en vous remercient par avance.
Bonne fin de soirée à vous.
'++++++++++++++++
Private Sub CommandButton1_Click()
UserForm1.Label3.Caption = Worksheets("LISTE").Cells.Find(UserForm1.Label1.Caption).Row
UserForm1.Label4.Caption = Worksheets("LISTE").Cells.Find(UserForm1.Label2.Caption).Row
'=================================
UserForm1.Label8.Caption = "???"
' J'aimerais y écrire la ligne ayant
' à la fois le Code et le Fruit cherchés,
' ================================
End Sub
' +++++++++++++++++++
Classeur Joint.
YANN-56