find dans textbox

Re : find dans textbox

Bonsoir,

une solution :

Sub cherche2()
nomCherche = InputBox("Nom cherché? ")
Set result = Range("A2:A14").Find(What:=nomCherche, LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Non trouvé"
Else
Range(result, result.End(xlToRight)).Select
End If
End Sub

si il n'y a pas doccurence ont peux mettre next a la place de la msgbox (Dans le cas d'une boucle) par exemple

Sub cherche2()
nomCherche = InputBox("Nom cherché? ")
Set result = Range("A2:A14").Find(What:=nomCherche, LookIn:=xlValues)
If result Is Nothing Then
next dans le cas d'une boucle
Else
Range(result, result.End(xlToRight)).Select
End If
End Sub

laurent

Re : find dans textbox

Bonjour laurent950,

Merci de vous être penché sur le sujet. En fait, j'ai déjà +/- ce genre de chose mais je souhaite éviter l'inputbox. En résumé, je saisis directement le critère recherché dans un textbox sur la feuil (ou dans une cellule), j'ai fait "entrée" et si trouvé, je me retrouve dessus vs si pas trouvé, msgbox "inconnu"... Un peu quand un moteur de recherche dans la feuil...Croyez-vous que c'est réalisable?
Merci. Bonne journée.

Re : find dans textbox

Bonjour,

Oui c'est réalisable :

Il faut remplacer l'inputBox ici = "nomCherche = InputBox("Nom cherché? ")" par la cellule ou la saisie est faite comme :
Exemple : La cellule A1 écriture Range("A1") ou Cells(1,1) a adapter dans votre macro.

Pour un textbox (cela est en générale un formulaire ?) la je ne sais pas. Mais si c'est un textbox mettre le textbox à la place de cells(1,1) comme dans l'exemple.

Sub cherche2()
nomCherche = Cells(1,1)
Set result = Range("A2:A14").Find(What:=nomCherche, LookIn:=xlValues)
If result Is Nothing Then
MsgBox "inconnu"
Else
Range(result, result.End(xlToRight)).Select
End If
End Sub

Laurent

Re : find dans textbox

Merci Laurent950