C'est très simple....
Ce code recherche dans le "range" a1:a500 une adresse IP et renvoie le nom qui est dans la colonne B.
Le formulaire ce nomme frmMain et la textbox txtSearch
Code :
For NumPage = 1 To 2 'Nombre de pages
With Worksheets(NumPage).Range("a1:a500") 'Range à changer au besoin
Set SearchString = .Find(frmMain.txtSearch)
If Not SearchString Is Nothing Then
strNom = Worksheets(NumPage).Cells(SearchString.Row, SearchString.Column + 1).Value
GoTo ValeurTrouver
End If
End With
Next NumPage
ValeurNonTrouver:
Msgbox "Valeur non trouvé"
Exit sub
ValeurTrouver:
MsgBox strNom
Ce code prend pour acquis qu'il n'y a aucune valeur en double sinon il prend la première.... mais il existe un moyen de le faire cherche la deuxième et troisième valeurs.
Connexion
Inscription
FAQ
Rechercher
