Discussion :

[vanessaferraz]

bonjour à tous,

J'ai besoin d'un peu d'aide

J'ai crée un Userform qui a pour fonction la recherche
Elle comprend une textbox dans laquelle je saisie le mot recherché
Pour cela je sélectionne la plage dans laquelle doit se faire la recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil2.Range("A1").End(xlDown).Row

Ensuite je suppose qu'il faut utiliser une fonction recherche, Find j'ai vu des exemples d'utilisation de cette formule mais à chaque fois la valeur recherchée est saisie directement entre "", dans mon cas cette valeur est variable est elle se trouve dans ma textbox appelée txtRecherche.

Comment puis-je trouver la valeur de txtRecherche dans la plage sélectionnée.

En espérant avoir été assez clair.

Merci d'avance a tout le monde

[Elstak]

Salut,

Regarde l'exemple de l'aide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Il permet de remplacer les valeurs "2" par "5". Y'a juste à adapter...

Juste une précision,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil2.Range("A1").End(xlDown).Row

Ca, ca te selectionne pas une plage mais te renvoie la derniere ligne occupée de ta colonne A (il te donne la derniere ligne avant qu'il rencontre une cellule vide).

Donc dans le code de l'aide il faut que tu adaptes comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets(1).Range(cells(1,1),cells(With Worksheets(1).Range("a1:a500"),1))