Travailler avec des message error à cause d'un #N/A

Bonjour,

je voudrais vérifier avec une macro si, dans une liste, il y a des #N/A . Je pensais à une boucle du genre

Code:

---

1 2 3 4 5 6 7

range("A1:L100").select For each vcell in selection if ...la cellule contient un #N/A alors ... msgbox "Attention, ...." end if next

---

J'ai essayé avec "#N/A" comme valeur de cellule, mais ceci n'est pas reconnu comme text.
J'ai essayé de travailler avec vbError(n°de l'erreur) mais je n'arrive pas. En plus, j'ai des cellules vides qui doivent être accepté par la boucle mais qui ont également crées des erreurs.

Avez-vous une idée?

Code:

---

1 2	iserror(tonrange) application.worksheetfunction.iserror(tonrange)

---

je n'arrive pas à le faire marcher...

Code:

---

1 2 3 4 5 6 7 8 9

Sub YT() Dim answer As Variant   Set myrange = Worksheets("TdB Macro").Range("J12:K13") answer = Application.WorksheetFunction.IsError(myrange) MsgBox answer     End Sub

---

si je mets autre chose que IsError (par exemple min dans un range de chiffres) tout va bien. Avec IsError il me dit "incompatibilité de type". Je pense que c'est le variant, mais qu'est-ce que je devrais mettre?

Il faut boucler sur toutes les cells de ton range et les tester une par une, à moins que tu ne fasses une fonction qui te teste pour tout le range ;)

mince, j'ai oublié de la remettre...

Comme ça c'est bien :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub CheckErreurs()   Dim vcell As Variant   Set myrange = Worksheets("TdB Macro").Range("C22:L90")   For Each vcell In myrange   If Application.WorksheetFunction.IsError(vcell) = True Then   MsgBox "Attention, vos listes de noms d'onglets sont incomplètes! Vérifiez puis recommencez."   End If Next   End Sub

---

Merci beaucoup.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub CheckErreurs()   Dim vcell As Variant   Set myrange = Worksheets("TdB Macro").Range("C22:L90")   For Each vcell In myrange   If Application.WorksheetFunction.IsError(vcell) = True Then   message = True MsgBox "Attention, vos listes de noms d'onglets sont incomplètes! Vérifiez puis recommencez." exit sub   End If Next   End Sub

---

Si je peux me permettre.. Ca t'évitera 350 messages si tu venais à avoir plein d'erreurs

Oui, merci! Il n'a que dix possibilités dans ma liste mais tu as raison.

"C22:L90"

69 lignes 10 colonnes... 690 msgbox ça peut être un peu chiant!

T'inquète, ce sont que 10,...
Il y a une fonction dans les cellules (c'est pour ça que ça crée des #N/A). Et dans seulement dix cas la fonction ne peut pas trouver une valeur...
Merci!