Discussion :

[Sarune]

bonjour à tous,

Je butte sur la fonction recherche: FIND
J'ai une variable : TEMP qui prend plusieurs valeurs.
je dois chercher chacune de ces valeurs dans un fichier Excel et renvoyer la ligne associée.
Jusque là pas de problème.
Ce qui m'embête plus c'est que TEMP peut ne pas être dans le fichier.
Alors lorsque j'utilise la fonction FIND et que je lance ma macro si la valeur ne se trouve pas dans le fichier cela me renvoie une erreur de compilation 91.

Question: comment ignorer cette erreur et gérer le fait que FIND n'aboutis pas ?

J'ai bien essayé de passer par la fonction FOR EACH ... LIKE mais la encore je butte:

Code :

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

1
2
3
4
5
6
 
For Each c In  [A1:AA200]
   If c.Value = temp '= test ou TEST 
       temp = c.Row
   End If
Next

Ma variable TEMP peut être en minuscule ou pas dans le fichier.
Quelle instruction mettre dans la fonction FOR EACH pour spécifier de ne pas respecter la casse?

Merci par avance à tous pour vos réponses.

M.A.S

[Fvandermeulen]

Salut,
Une astuce de contournement:

Passe les caractères récupérés par la cellule en majuscule, idem pour ta variable Temp, donc:

Code :

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

1
2
3
4
5
For Each c In  [A1:AA200]
   If ucase(c.Value) = ucase(temp) 'Ucase te permet de renvoyer toujours TEST et plus Test ou même test ou encore TeSt, ou encore... 
       temp = c.Row
   End If
Next

A+

[Arkham46]

bjr,

Pour le Find, il faut récupérer le Range et vérifier s'il vaut Nothing :

Code :

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

1
2
3
4
5
6
7
8
 
Dim lFind As Range
Set lFind = Sheets("Feuil1").Range("A:A").Find("test")
If lFind Is Nothing Then
    MsgBox "non trouvé"
Else
    MsgBox "non trouvé en adresse: " & lFind.Address
End If

[Sarune]

merci à tous pour votre rapidité et précision !
Que du bonheur ce forum...