Discussion :

[MichaSarah]

Bonjour
Dans une ligne de code VBA j'utilise l'opérateur "And" 8 fois comme suit

Code :

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

1
2
3
4
5
 
...
ElseIf Cells(LignePlan, 4) <> "Sujet1" And Not Cells(LignePlan, 36) Like "*Sujet2*" And Cells(LignePlan, 53) <> "Sujet3" And Cells(LignePlan, 53) <> "Sujet4" And Cells(LignePlan, 32) <> "Sujet5" And Cells(LignePlan, 65) = "Sujet6" And Cells(LignePlan, 6) = "Sujet7" And Cells(LignePlan, 75) = "Sujet8" Then
                        Cpt = Cpt + 1
...

Lorsque je lance la macro en l'état , il n'y a pas de résultat. Lorsque je passe à 7 conditions un résultat s'affiche. Y a t-il une nombre maximum de conditions à ne pas dépasser ? Si celà est le cas, avez-vous une astuce pour que le résultat tienne tout de même compte des 8 conditions ?

merci
Salutations

MichaSarah

[Gorfael]

Salut MichaSarah et le forum
tu n'as qu'à essayer

Code :

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

1
2
3
4
5
If 1 = 1 And 2 = 2 And 3 = 3 And 4 = 4 And 5 = 5 And 6 = 6 And 7 = 7 And 8 = 8 And 9 = 9 And 10 = 10 Then
    x = 1
Else
    x = 2
End If

Sauf que ton code commence par ElseIf ce qui fait soupçonner d'autres conditions. De plus avec autant de conditions et comme une seule suffit à bloquer, puisque c'est des ET.
Avec autant de conditions, j'évite t'utiliser les nombres pour désigner les colonnes

Code :

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

1
2
3
4
5
6
7
8
9
ElseIf Cells(LignePlan, "D") <> "Sujet1" And _
    Not Cells(LignePlan, "AJ") Like "*Sujet2*" And _
    Cells(LignePlan, "BA") <> "Sujet3" And _
    Cells(LignePlan, "BA") <> "Sujet4" And _
    Cells(LignePlan, "AF") <> "Sujet5" And _
    Cells(LignePlan, "BM") = "Sujet6" And _
    Cells(LignePlan, "F") = "Sujet7" And _
    Cells(LignePlan, "BW") = "Sujet8" Then
                        Cpt = Cpt + 1

Ne connaissant rien d'autre...
A+

[OrDonc]

Bonjour

autre solution (exemple pour 9 conditions a, b , c ... i) :

Code :

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

1
2
 
If a + b + c + d + e + f + g + h + i = -9 Then

[MichaSarah]

Bonjour Gorfael et OrDonc,

J'ai essayé de remplacer le n° des colonnes par l'équivalent en lettre mais rien ni change.
Je n'ai pas très bien compris vos propositions :

OrDonc : que signifie le -9 ?

Code :

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

1
2
 
If a + b + c + d + e + f + g + h + i = -9 Then

Gorfael : A quoi correspondent les égalités ?

Code :

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

1
2
3
4
5
6
 
If 1 = 1 And 2 = 2 And 3 = 3 And 4 = 4 And 5 = 5 And 6 = 6 And 7 = 7 And 8 = 8 And 9 = 9 And 10 = 10 Then
    x = 1
Else
    x = 2
End If

merci par avance pour votre aide
MichaSarah

[Gorfael]

Salut MichaSarah et le forum

Je n'ai pas très bien compris vos propositions

Quelles propositions ? C'est juste pour te prouver qu'avec 9 conditions, ça fonctionne encore : 1=1 est vrai et la 2ème méthode fait la même chose (True = -1).
Donc ton erreur ne vient pas du nombre de condition, mais qu'une de ces conditions n'est pas vraie.
A+

[MichaSarah]

Bonsoir,
Merci Gorfael pour ce complément d'information. Après plusieurs tests, il y avait bien une petite erreur dans l'une de mes égalités.

MichaSarah