Mettre une macro dans un userfom

[libellule85]

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

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

 

[Pierrot93]

Re : Mettre une macro dans un userfom

Bonjour,

modifie comme suit :

Sub selection()
Dim sel As Range, achercher As String
achercher = InputBox("quel mot recherché ?")
If achercher = "" Then Exit Sub
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

bonne soirée
@+

 

[libellule85]

Re : Mettre une macro dans un userfom

Bonsoir Pierrot93,
Je te remercie pour la rapidité de ta réponse, c'est super c'est exactement ce que je voulais.
Bonne soirée et encore merci