[Incompatibilité de type] If...or...or....

Question

Problème avec les conditions d'un « If » 

Voici la partie du code qui pose problème 
If Cells(lignedata, 1) = "M20" Then 
If Cells(lignedata, 2) = "20" or "P11" Or "P18" Then 
nprévent = nprévent + 1 
Else... 

Jai une erreur "incompatibilité de type" sauf quand la cellule(lignedata,2) est égale à 20. Dans tout les autres cas que ce soit un nombre (autre que 20) ou une suite lettre/nombre ca plante... 

j'ai donc essayé de séparer les conditions 

If Cells(lignedata, 1) = "M20" Then 
If Cells(lignedata, 2) = "20" Then 
nprévent = nprévent + 1 
ElseIf Cells(lignedata, 2) = "P11" Or "P18" Then 
nprévent = nprévent+ 1 
Else... 

Pas de miracle, ca ne marche pas mieux...

BruNews · Answer

Il faut une évaluation derriere le 'Or'.

Lire une seule fois la valeur d'une cellule car c'est lourd en traitement.

str2 = CStr(Cells(lignedata, 2).value)
If str2 "20" or str2 "P11" Or str2 = "P18" Then



ciao...
BruNews, MVP VC++

[Incompatibilité de type] If...or...or....

1 réponse

Votre réponse

Discussions similaires