Ordre des condition (If) vba ?

Version imprimable

10/02/2012, 21h32
Biggy30

Ordre des condition (If) vba ?
Bonjour a tous

Je me suis gratté la tête cette semaine sur un truc qui ne m'était encore jamais arrivé...pourquoi certaines conditions ne s’exécutait pas alors que tout était bien en placé dans le code et que si je les déplaçaient au dessus d'une autre, là, elles fonctionnaient ? Y a t-il un ordre dans laquelle mettre les conditions selon qu'elles comporte des And ou des Or ?

Exemple bidon :
Code:

1 2 3 4 5 6 7 8 9 10 11 If x = y And z = a Then blabla ElseIf x = y Then bla ElseIf z = a And x = y And dada Then blablabla EndIf
Dans l'exemple bidon si dessus, disons que, de cette façon, la troisième condition ne s’exécute pas, mais si je la déplace au dessus de la deuxième..là elle s'exécute, et les autres aussi...je ne comprend pas...comment une condition peut elle être ignorée selon là ou je la met dans mon code ??
8O:oops::roll:

Merci
10/02/2012, 22h22
SfJ5Rpw8

bonsoir,

et que veux dire "else" pour toi ?
11/02/2012, 03h42
Biggy30

Bon attention ici, la je parle de

Code:

ElseIf

et non de

Code:

Else

...donc si je me réfère à ce que microsoft en dit :

avec les ElseIf toutes les conditions sont parsé tant qu'il ne rencontre une valeur False, et donc l'ordre des conditions ne devrait être un problàme...puis le code s'intéromp au End If final.
11/02/2012, 05h42
carden752

Citation:

Envoyé par Biggy30

Bon attention ici, la je parle de

Code:

ElseIf

et non de

Code:

Else

...donc si je me réfère à ce que microsoft en dit :

avec les ElseIf toutes les conditions sont parsé tant qu'il ne rencontre une valeur False, et donc l'ordre des conditions ne devrait être un problàme...puis le code s'intéromp au End If final.

L'aide de Microsoft dit l'inverse

Citation:

Si condition a la valeur False, chaque instruction ElseIf est évaluée à tour de rôle. Quand une elseifcondition de valeur True est trouvée, les instructions qui suivent immédiatement l'instruction Then correspondante sont exécutées. Si aucune elseifcondition n'a la valeur True, ou s'il n'existe aucune instruction ElseIf, les instructions qui suivent Else sont exécutées. Après l'exécution des instructions qui suivent Then, ElseIf ou Else, l'exécution se poursuit avec l'instruction qui suit End If.

C'est donc logique que quand tu as une valeur VRAIE que les conditions suivantes ne soient pas exécutées
11/02/2012, 14h42
Biggy30

Bah pourtant toute mes conditions fonctionne bien...je veux dire par là que peux importe l'ordre d'exécution elle fonctionne...mais si j'en déplace une qui contient des And dessous une qui n'a qu'une condition...là elle ne sera pas exécuté...mais les autre oui...c'est ca je pige pas...le reste ca m'importe peu du moment que ca marche
11/02/2012, 15h05
SfJ5Rpw8

salut ...

else = sinon ....

donc dés que l'une tes conditions et vrai on ne teste pas celles qui suivent derrière un else (ou elseif..) ...

Bon je vois que personne ne comprends mon truc...je vais réessayer...

je comprends, bbil, que lorsque la condition est vrai on ne passe pas sur les autres conditions..et c'est la logique même...mais c'est pas la mon problème...

J'ai un bouton "Ajouter" sur ma feuille excel et c'est ce bouton qui contient toutes mes condition, donc si je choisis tel ou tel options..quand j'appuie sur mon bouton il cherche la condition, l'exécute, puis copie les lignes sur une autre feuille...tout cela marche TRÈS BIEN...SAUF si je place tel condition avant tel condition ...une des deux ne marcheras pas même si elle est vrai...si je la remet a ca place...ca marche...et c'est CA que je pige pas en VB pure ca ne me le fait pas mais avec excel oui !!

en voila un bout:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
'Ajout des données de porte sur la commande
Sub ajoupor_clic()
 
Dim Ligne As Long
Ligne = Sheets("ORIGINALE").Range("A" & Rows.Count).End(xlUp).Row + 1
 
'Conditions de Copie
 
'Copie données si moulure 2 1/4 ou 2 7/8 avec 1 traverse centrale
If Sheets("PROGRAMME").Range("E26,E27,E28,E29").Locked = True And Sheets("DESSINS").Range("C67").Value >= 7 And Sheets("DESSINS").Range("E74").Value = 3 And Sheets("PROGRAMME").Range("I27").Value = 1 Then
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("ORIGINALE").Range("A" & Ligne) = Sheets("PROGRAMME").Range("D53")
Sheets("ORIGINALE").Range("C" & Ligne) = Sheets("PROGRAMME").Range("C53")
Sheets("ORIGINALE").Range("D" & Ligne) = Sheets("PROGRAMME").Range("E53")
Sheets("ORIGINALE").Range("G" & Ligne) = Sheets("PROGRAMME").Range("G53")
Sheets("ORIGINALE").Range("I" & Ligne) = Sheets("PROGRAMME").Range("F53")
Sheets("ORIGINALE").Range("M" & Ligne) = Sheets("PROGRAMME").Range("I53")
Sheets("ORIGINALE").Range("N" & Ligne) = Sheets("PROGRAMME").Range("J53")
Sheets("ORIGINALE").Range("H" & Ligne) = "T"
Sheets("ORIGINALE").Range("P" & Ligne) = Sheets("PROGRAMME").Range("B66") & " TRAV"
Sheets("PROGRAMME").Range("C17,E17,E19,E26,E27,E28,E29,I27,I32").ClearContents
Sheets("PROGRAMME").Range("J19").Value = "1"
Sheets("DESSINS").Range("B60,C60,D60").Value = 1
Sheets("DESSINS").Range("B74").Value = " "
Sheets("PROGRAMME").Range("I27").Value = 1
Sheets("DESSINS").Range("E74").Value = 1
Sheets("PROGRAMME").Range("E26,E27,E28,E29,I27,I32,H37").Locked = True
Sheets("PROGRAMME").Protect Password:="popol"
 
'Copie si 1 traverse centrale montants largeur différente verrière
ElseIf Sheets("DESSINS").Range("E74").Value = 3 And Sheets("PROGRAMME").Range("E26,E26,E27,E28,E29").Locked = False And Sheets("DESSINS").Range("B74").Value = "VERR" Then
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("ORIGINALE").Range("A" & Ligne) = Sheets("PROGRAMME").Range("D49")
Sheets("ORIGINALE").Range("C" & Ligne) = Sheets("PROGRAMME").Range("C49")
Sheets("ORIGINALE").Range("D" & Ligne) = Sheets("PROGRAMME").Range("E49")
Sheets("ORIGINALE").Range("G" & Ligne) = Sheets("PROGRAMME").Range("G49")
Sheets("ORIGINALE").Range("I" & Ligne) = Sheets("PROGRAMME").Range("F49")
Sheets("ORIGINALE").Range("M" & Ligne) = Sheets("DESSINS").Range("B74")
Sheets("ORIGINALE").Range("N" & Ligne) = Sheets("DESSINS").Range("B75") & Sheets("DESSINS").Range("B76")
Sheets("ORIGINALE").Range("H" & Ligne) = "T"
Sheets("ORIGINALE").Range("P" & Ligne) = Sheets("PROGRAMME").Range("B66") & " TRAV"
Sheets("ORIGINALE").Range("G12") = "MONT. 1"
Sheets("ORIGINALE").Range("I12") = "MONT. 2"
Sheets("ORIGINALE").Range("K12") = "TRAV. 1"
Sheets("ORIGINALE").Range("M12") = "TRAV. 2"
Sheets("ORIGINALE").Range("G13") = Sheets("PROGRAMME").Range("E26")
Sheets("ORIGINALE").Range("I13") = Sheets("PROGRAMME").Range("E27")
Sheets("ORIGINALE").Range("K13") = Sheets("PROGRAMME").Range("E28")
Sheets("ORIGINALE").Range("M13") = Sheets("PROGRAMME").Range("E29")
Sheets("PROGRAMME").Range("C17,E17,E19,E26,E27,E28,E29,I27,I32").ClearContents
Sheets("PROGRAMME").Range("J19").Value = "1"
Sheets("DESSINS").Range("B60,C60,D60").Value = 1
Sheets("DESSINS").Range("B74").Value = " "
Sheets("PROGRAMME").Range("I27").Value = 1
Sheets("DESSINS").Range("E74").Value = 1
Sheets("PROGRAMME").Range("E26,E27,E28,E29,I27,I32,H37").Locked = True
Sheets("PROGRAMME").Protect Password:="popol"
 
'Copie si 1 traverse centrale montants même largeur verrière
ElseIf Sheets("DESSINS").Range("E74").Value = 3 And Sheets("PROGRAMME").Range("E26,E26,E27,E28,E29").Locked = True And Sheets("DESSINS").Range("B74").Value = "VERR" Then
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("ORIGINALE").Range("A" & Ligne) = Sheets("PROGRAMME").Range("D48")
Sheets("ORIGINALE").Range("C" & Ligne) = Sheets("PROGRAMME").Range("C48")
Sheets("ORIGINALE").Range("D" & Ligne) = Sheets("PROGRAMME").Range("E48")
Sheets("ORIGINALE").Range("G" & Ligne) = Sheets("PROGRAMME").Range("G48")
Sheets("ORIGINALE").Range("I" & Ligne) = Sheets("PROGRAMME").Range("F48")
Sheets("ORIGINALE").Range("M" & Ligne) = Sheets("DESSINS").Range("B74")
Sheets("ORIGINALE").Range("N" & Ligne) = Sheets("DESSINS").Range("B75") & Sheets("DESSINS").Range("B76")
Sheets("ORIGINALE").Range("H" & Ligne) = "T"
Sheets("ORIGINALE").Range("P" & Ligne) = Sheets("PROGRAMME").Range("B66") & " TRAV"
Sheets("PROGRAMME").Range("C17,E17,E19,E26,E27,E28,E29,I27,I32,H37").ClearContents
Sheets("PROGRAMME").Range("J19").Value = "1"
Sheets("DESSINS").Range("B60,C60,D60").Value = 1
Sheets("DESSINS").Range("B74").Value = " "
Sheets("PROGRAMME").Range("I27").Value = 1
Sheets("DESSINS").Range("E74").Value = 1
Sheets("PROGRAMME").Range("E26,E27,E28,E29,I27,I32,H37").Locked = True
Sheets("PROGRAMME").Protect Password:="popol"
 
'Copie si 1 traverse centrale montants même largeur
ElseIf Sheets("DESSINS").Range("E74").Value = 3 And Sheets("PROGRAMME").Range("I27").Value = 1 And Sheets("PROGRAMME").Range("E26,E26,E27,E28,E29").Locked = True Then
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("ORIGINALE").Range("A" & Ligne) = Sheets("PROGRAMME").Range("D48")
Sheets("ORIGINALE").Range("C" & Ligne) = Sheets("PROGRAMME").Range("C48")
Sheets("ORIGINALE").Range("D" & Ligne) = Sheets("PROGRAMME").Range("E48")
Sheets("ORIGINALE").Range("G" & Ligne) = Sheets("PROGRAMME").Range("G48")
Sheets("ORIGINALE").Range("I" & Ligne) = Sheets("PROGRAMME").Range("F48")
Sheets("ORIGINALE").Range("M" & Ligne) = Sheets("PROGRAMME").Range("I48")
Sheets("ORIGINALE").Range("N" & Ligne) = Sheets("PROGRAMME").Range("J48")
Sheets("ORIGINALE").Range("H" & Ligne) = "T"
Sheets("ORIGINALE").Range("P" & Ligne) = Sheets("PROGRAMME").Range("B66") & " TRAV"
Sheets("PROGRAMME").Range("C17,E17,E19,E26,E27,E28,E29,I27,I32,H37").ClearContents
Sheets("PROGRAMME").Range("J19").Value = "1"
Sheets("DESSINS").Range("B60,C60,D60").Value = 1
Sheets("DESSINS").Range("B74").Value = " "
Sheets("PROGRAMME").Range("I27").Value = 1
Sheets("DESSINS").Range("E74").Value = 1
Sheets("PROGRAMME").Range("E26,E27,E28,E29,I27,I32,H37").Locked = True
Sheets("PROGRAMME").Protect Password:="popol"
 
Else
EndIf

bon je l'ai tronqué et ajouter mon end if...normalement il y a 26 condition différentes !!!!

Bon alors si je prends la condition qui est annoter comme suit

Code:

'Copie si 1 traverse centrale montants même largeur

que je la coupe et la colle avant l'autre..elle ne s'exécutera pas même si la condition est remplie !

SVP aidez-moi je capote !!! :roll:8O:mouarf:

Tes condition ne sont pas exclusives, c'est à dire que tu peux avoir 2 conditions vraies en même temps.

Exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Sub TestA() Dim i As Byte, j As Byte i = 2 j = 3 If i = 2 Then MsgBox "Toto i" ElseIf j = 3 Then MsgBox "Toto j" End If End Sub Sub TestB() Dim i As Byte, j As Byte i = 2 j = 3 If j = 3 Then MsgBox "Toto j" ElseIf i = 2 Then MsgBox "Toto i" End If End Sub Sub TestC() Dim i As Byte, j As Byte i = 2 j = 3 If i = 2 Then MsgBox "Toto i" If j = 3 Then MsgBox "Toto j" End Sub
Dans ton cas, regarde donc du côté de TestC

PS: (Sans lien)
Restructure ton code en utilsant les variables objet Worksheet, en indentant ton code et en utilisant le
Code:

1 2 3 With XXX '... End WitH

12/02/2012, 17h12
lps02

Bonjour

Sur excel, essaie cette fonction qui semble "marcher". si cela te conviens je vous laisse ô maitres du VBA la traduire de façon ad hoc.

En fait, l'analyse doit se faire sur les deux conditions car une seule peut etre valable dans plusieurs cas.
Dans ma fonction, les données sont dans les colonnes A à D et la fonction est mise dans la colonne E

Bien cordialement

Code:

=SI(ET(A1=B1;C1=D1);"bla";SI(ET(A1<>B1;C1=D1);"blabla";SI(ET(A1=B1;C1<>D1);"blablabla";"bbbb")))