mickstudio1308
XLDnaute Nouveau
Bonjour j'ai besoins d'aide pour ajouter une valeur d'une ligne entière sélectionné préalablement avec une recherche d'un terme dans une listbox
Voici mon code jusqu'à maintenant
Donc j'aimerais savoir si quelqu'un pourrait m'aider avec mon problème
Merci D'avance
Voici mon code jusqu'à maintenant
Private Sub Recherche_Click()
Dim nom
Dim NumLigne
On Error Resume Next
nom = TextBox2.Value
Cells.Find(What:=(nom), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder _
:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
With Application.ActiveCell
NumLigne = .Row
End With
ActiveCell.EntireRow.Select
Valeur = ActiveCell.EntireRow
ListBox1.additem(valeur)
Exit Sub
End Sub
Donc j'aimerais savoir si quelqu'un pourrait m'aider avec mon problème
Merci D'avance