Discussion :

[pasdoy]

Bonjour à vous,
je dois faire une vérification pour voir si le caractère dans ma cellule est T ou X.

Quamd je fais:

Code :

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

1
2
3
If Not Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = "X" Or Not Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = "T" Then
Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = " "
End If

Même si je met un X ou un T, excel les éfacera.

Si je fais:

Code :

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

1
2
3
If Not Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = "X" Then
Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = " "
End If

Excel gardera juste les X.

Comment faire fonctionner mon Or?

Merci,
Pascal

[Jean-Philippe André]

Salut,
en faisant appel a l'algebre booleenne, tu peux faire le test :
- si la cellule doit etre differente de X et differente de T alors :

Code :

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

If Not (Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = "X" Or Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = "T") Then

- si la cellule peut valoir X ou T

Code :

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

If Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = "X" Or Cells(intCasB, intColIndex + ((intC - 1) * 2) + 1) = "T" Then

d'une maniere generale :

(Non A) et (Non B) = Non (A ou B)

[pasdoy]

Salut et merci pour la réponse rapide. J'ai fait le test avec le bool, et tout à fonctionner. J'aurais dû pensé plus tôt à le mettre entre parenthèse.

Tout fonctionne,
Merci beaucoup pour votre rapidité encore.

Pascal