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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 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
Partager