userform de recherche

[totoph3247]

bonjour j'ai un userfom de recherche mais je voudrais que la recherche soi que sur la colonne c et f
merci

 

[mapomme]

Re : userform de recherche

Bonjour totoph3247,

Essayez:

Private Sub cmdrecherche_Click()

    Dim temp As Variant
    temp = TextBox1.Text
    If temp <> "" Then
       Union(Range("C:C"), Range("F:F")).Find(What:=temp, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
       
    Else
        MsgBox "Veuillez entrer un texte pour la recherche", vbInformation + vbOKOnly, "moi"
    End If
    Exit Sub

End Sub

 

[totoph3247]

Re : userform de recherche

j ai essayer mais ca ne fonctione pas

 

[mapomme]

Re : userform de recherche

(re)Bonjour totoph3247,

Il y avait un pb. si la cellule activ au départ n'était pas dans la colonne c ou F. Testez le code suivant:

Private Sub cmdrecherche_Click()
Dim Ou As Range, temp, x As Range
   If TextBox1.Text = "" Then
      MsgBox "Veuillez entrer un texte pour la recherche", vbInformation + vbOKOnly, "moi"
      Exit Sub
   End If
   temp = TextBox1.Text
   Set Ou = Union(Range("C:C"), Range("F:F"))
   If Intersect(Ou, ActiveCell) Is Nothing Then Ou(1, 1).Select
   Set x = Ou.Find(What:=temp, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
   If x Is Nothing Then
      MsgBox "pas de correspondance"
      Exit Sub
   Else
      x.Select
   End If
End Sub

 

[totoph3247]

Re : userform de recherche

oui super je te remercie