libellule85
XLDnaute Accro
Bonjour tout le monde,
Voilà j'ai récupéré sur le forum une macro qui permet de sélectionner une ligne ou plusieurs en fonction du mot à rechercher dans les cellules de la colonne C (je vous met le code ci-dessous).
Ce que j'aimerais si cela est possible c'est de pouvoir mettre dans une userform le mot à rechercher plutôt que d'aller à chaque fois dans la macro pour changer le mot à rechercher.
D'avance merci pour vos réponses
Voilà j'ai récupéré sur le forum une macro qui permet de sélectionner une ligne ou plusieurs en fonction du mot à rechercher dans les cellules de la colonne C (je vous met le code ci-dessous).
Ce que j'aimerais si cela est possible c'est de pouvoir mettre dans une userform le mot à rechercher plutôt que d'aller à chaque fois dans la macro pour changer le mot à rechercher.
D'avance merci pour vos réponses
Code:
Sub selection()
Dim sel As Range
achercher = "Exemple"
Set c = ActiveSheet.Range("C" & Range("B1") & ":C" & Range("B2")).Find(achercher, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If Not sel Is Nothing Then
Set sel = Application.Union(sel, Rows(c.Row))
Else
Set sel = Rows(c.Row)
End If
Set c = Range("C" & Range("B1") & ":C" & Range("B2")).FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
sel.Select
End Sub