Discussion :

[drakkar_agfa]

Bonjour,

J'utilise la fonction .find pour trouver une valeur. J'aimerais savoir comment gérer si il ne trouve pas de correspondance.

Il me retourne l'erreur 91.
"Variable objet ou variable de bloc With non définie."

S'il trouve, pour l'exemple, il devrait afficher le numéro de la ligne, et sinon, un message box disant qu'aucune correspondance existe.

Code :

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

?UneVariable? = shA.Range("A:A").Find(Recherche, LookIn:=xlValues).Row

Merci!!!

[ouskel'n'or]

Tu as un exellent exemple dans l'aide en ligne à "Find".
Comme elle présente un boucle, la voici sans boucle

Code :

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

1
2
3
4
5
6
7
8
9
Dim c as range
With shA.Range("A:A")
    Set c = .Find(Recherche, LookIn:=xlValues)
    if not c is nothing then
        NoLig = c.row
      else
        Msgbox Recherche & " n'existe pas !"
    end if
End with

Bonne nuit

[drakkar_agfa]

Une gros merci!
Une réponse rapide!

À mon prochain problème!