Bonjour,
Je cherche à utiliser un userform avec une textbox et un commandbutton pour chercher un nombre dans une feuille, identifier la ligne présentant ce nombre, sachant qu'il ne peut y avoir qu'une ligne (un nombre par ligne), copier les infos de certaines cellules de cette ligne vers certaines cellules d'une autre ligne, d'une autre feuille, j'espère avoir été assez clair.
J'ai commencé a bossé sur un code mais il ne fonctionne pas, je voudrais vous le soumettre.
Merci
Je cherche à utiliser un userform avec une textbox et un commandbutton pour chercher un nombre dans une feuille, identifier la ligne présentant ce nombre, sachant qu'il ne peut y avoir qu'une ligne (un nombre par ligne), copier les infos de certaines cellules de cette ligne vers certaines cellules d'une autre ligne, d'une autre feuille, j'espère avoir été assez clair.
J'ai commencé a bossé sur un code mais il ne fonctionne pas, je voudrais vous le soumettre.
Code:
Private Sub CommandButton1_Click()
Dim TBLF As Range
Dim CIBLE As Variant
With Worksheets("BDD")
For Each CIBLE In .Range("A1:A" & Range("A65536").End(xlUp).Row)
Set TBLF = .Find(TextBox1.Value, LookIn:=xlValues)
If Not TBLF Is Nothing Then
Rows(TBLF.Row + 1).Insert Shift:=xlDown
Cells(TBLF.Row + 1, 2) = Sheets("CR_INTER").Range("A" & CIBLE.Row)
End If
Next
End With
End Sub
Merci