Discussion :

[Val2000]

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 :

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

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?

[EngueEngue]

Code :

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

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

[Val2000]

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

Code :

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

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?

[EngueEngue]

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

[Val2000]

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

Comme ça c'est bien :

Code :

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

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.

[EngueEngue]

Code :

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

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

[Val2000]

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

[EngueEngue]

"C22:L90"

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

[Val2000]

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!