Bonjour a tous j'ai un petit soucci que j'essaye de resoudre seul sans succes !
J'ai un tableau 40 collone (Nom, telephone, mail ect....) x 500 lignes
Numero de facture dans la collone R ....
Un petit Userform 4 Text Box :
Text Box 1 = Recherche le numero de facture dans R
Text Box 2= Meme ligne que la facture trouver collone 13
Text Box 3= Meme ligne que la facture trouver collone 26
Text Box 4= Meme ligne que la facture trouver collone 31
Voila ce que j'ai fait mais ca marche pas :
Merci d'avance!
J'ai un tableau 40 collone (Nom, telephone, mail ect....) x 500 lignes
Numero de facture dans la collone R ....
Un petit Userform 4 Text Box :
Text Box 1 = Recherche le numero de facture dans R
Text Box 2= Meme ligne que la facture trouver collone 13
Text Box 3= Meme ligne que la facture trouver collone 26
Text Box 4= Meme ligne que la facture trouver collone 31
Voila ce que j'ai fait mais ca marche pas :
Code:
Private Sub CommandButton1_Click()
Dim i As Integer, numlign As Integer
numlign = Sheets("ACTIF").Range("R65536").End(xlUp).Row
With Sheets("ACTIF")
For i = 1 To numlign
If TextBox1 = .Cells(i, 18).Value Then
TextBox2 = .Cells(i, 13).Value
TextBox3 = .Cells(i, 26).Value
TextBox4 = .Cells(i, 31).Value
Exit For
End If
End Sub