Re : "Find" dans Feuille, mais sur deux Critères:Colonne1 & 2
Bonsoir à tous, et particulièrement à JNP, si tu passes par là,
J'avais un souci en ayant comme code de recherche (Textbox2)
Par exemple "5", puisque nombre de ceux de la feuille pouvaient
avoir ce caractère.
(D'autant qu'avec le mien de Cochon; je n'ai jamais pu bouffer"Offset")
J'ai donc bidouillé un truc à partir de ton aide, qui me satisfait bien.
(Pour info: résultat immédiat sur un listing de 22000 articles)
Je le livre à ceux qui pourraient s'y intéresser,
et à tes commentaires éventuels.
Dans mon appli en cours, une erreur de ligne ficherait un désordre énorme.
Si tu, ou vous entrevoyez dans ce code un risque, merci de me le dire.
'---------------------
Option Compare Text 'POUR IGNORER DIFFERENCE MAJUSCULES / MINUSCULES
Private Sub CommandButton1_Click()
With Worksheets("LISTE")
For i = .Cells.Find(UserForm1.TextBox1.Value).Row To _
.Cells.Find(UserForm1.TextBox1.Value).Row + 20
'+ 20 = Pour la Probalité de codes identiques
If .Cells(i, 1).Value = UserForm1.TextBox2.Text And _
.Cells(i, 2).Value = UserForm1.TextBox1.Text Then
UserForm1.Label8.Caption = i
End If
Next i
End With
End Sub
'---------------------------------
Classeur rectifié joint.
JNP m'a bien poussé à ne pas abandonner!
Si à parfaire l'on peut m'aider, d'avance MERCI.
Bonne fin de soirée ou Bonjour à tous, suivant l'heure.
Que vive ce super Site...!
Tellement empli de gens superbes.
YANN