Recherche en VBA

Question

Bonjour, 

J'utilise un userform où je dois indiquer le nom d'une rue et son arrondissement et je souhaiterais trouver le quartier correspondant a ces deux informations.

De plus, j'ai une feuille nommée "Données" où se trouve dans la première colonne le nom de la rue, dans la seconde son arrondissement et dans la troisième son quartier. Cette feuille contient 5 000 données donc je ne peux pas utiliser de boucles for.

Merci pour votre aide

pijaku · Answer

Bonjour,
Une solution :

La méthode .find
Sub cherche()
Dim Trouve As Range
Dim Valeur_cherchee, Valeur_trouvee As String

'On va chercher le contenu de TextBox9
Valeur_cherchee = TextBox9
    Set Trouve = Sheets("Données").Columns(1).Cells.Find(what:=Valeur_cherchee, LookAt:=xlwhole)
        If Trouve Is Nothing Then
            MsgBox "Pas trouvé"
        Else
            Valeur_trouvee = Trouve.Offset(0, 2).Value
        End If
MsgBox Valeur_trouvee
Set Trouve = Nothing
End Sub

Recherche en VBA

1 réponse

Discussions similaires

Newsletters