|
|
|
|
|
salut morgan,
une recherche qui n'aboutit pas renvoie une valeur d'erreur. remplis la colonne A avec plusieurs valeurs et teste ce code :
Sub recherche()
Dim rngTrouve As Range
Dim strChaine As String
strChaine = InputBox("Chaîne à rechercher :")
Set rngTrouve = ActiveSheet.Columns(1).Cells.Find(what:=strChaine)
If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
MsgBox rngTrouve.Address
End If
Set rngTrouve = Nothing
End Sub
A+,
Kobaya. |
Résultats pour [VBA, Excel] Fonction find() aucun résultat
Résultats pour [VBA, Excel] Fonction find() aucun résultat
Résultats pour [VBA, Excel] Fonction find() aucun résultat