Discussion :

[tytos]

Rebonjour j'ai encore un petit soucis avec mon code , normalement je voulais que si la condition est respecté le reste du code ne doit plus s’exécuter mais c'est pas le cas l'exécution continue dans tous les cas .
voice le code ci joint. Merci

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
19
20
21
22
23
Private Sub Enrgstr_Click()
Dim FLAG As Boolean
For i = 1 To Derline(1, 1)
If (Nom_prdt.Value = Sheets("PRODUIT").Cells(i + 1, 1)) Then
Sheets("PRODUIT").Cells(i + 1, 4) = Sheets("PRODUIT").Cells(i + 1, 4) + Qtité_cmde.Value
Sheets("PRODUIT").Cells(i + 1, 5) = Sheets("PRODUIT").Cells(i + 1, 5) + Qtité_cmde.Value
    End If
 
Next i
If (FLAG = False) Then
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("PRODUIT").Cells(2, 1) = Nom_prdt.Value
Sheets("PRODUIT").Cells(2, 2) = Type_prdt.Value
Sheets("PRODUIT").Cells(2, 3) = code_prdt.Value
Sheets("PRODUIT").Cells(2, 4) = Qtité_cmde.Value
Sheets("PRODUIT").Cells(2, 6) = prix_achat.Value
Sheets("PRODUIT").Cells(2, 8) = Dat_achat.Value
Sheets("PRODUIT").Cells(2, 9) = Dat_premp.Value
Sheets("PRODUIT").Cells(2, 10) = Nom_grosis.Value
Sheets("PRODUIT").Cells(2, 11) = Adres_gross.Value
end if
end sub

[Invité]

Bonjour,

Il faut rajouter un Exit Sub dans ta condition pour que le reste du code ne soit pas effectué

[tytos]

MERCI ca a marché

[Philippe Tulliez]

Bonjour,
A quoi sert ton test de la ligne 12 qui vérifie si la variable FLAG est à False ?
J'ai beau relire ton code, je ne vois pas à quelle moment elle passe à True donc forcément les lignes 13 à 24 seront toujours exécutées

[tytos]

Bonjour,
A quoi sert ton test de la ligne 12 qui vérifie si la variable FLAG est à False ?
J'ai beau relire ton code, je ne vois pas à quelle moment elle passe à True donc forcément les lignes 13 à 24 seront toujours exécutées

ok ok je vois merci

[BENNASR]

Bonjour
essaye avec ça :

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
19
20
21
22
23
24
25
Private Sub Enrgstr_Click()
Dim FLAG As Boolean
For i = 1 To Derline(1, 1)
If (Nom_prdt.Value <> Sheets("PRODUIT").Cells(i + 1, 1)) Then
exit sub
else
Sheets("PRODUIT").Cells(i + 1, 4) = Sheets("PRODUIT").Cells(i + 1, 4) + Qtité_cmde.Value
Sheets("PRODUIT").Cells(i + 1, 5) = Sheets("PRODUIT").Cells(i + 1, 5) + Qtité_cmde.Value
    End If
 
Next i
If (FLAG = False) Then
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("PRODUIT").Cells(2, 1) = Nom_prdt.Value
Sheets("PRODUIT").Cells(2, 2) = Type_prdt.Value
Sheets("PRODUIT").Cells(2, 3) = code_prdt.Value
Sheets("PRODUIT").Cells(2, 4) = Qtité_cmde.Value
Sheets("PRODUIT").Cells(2, 6) = prix_achat.Value
Sheets("PRODUIT").Cells(2, 8) = Dat_achat.Value
Sheets("PRODUIT").Cells(2, 9) = Dat_premp.Value
Sheets("PRODUIT").Cells(2, 10) = Nom_grosis.Value
Sheets("PRODUIT").Cells(2, 11) = Adres_gross.Value
end if
end sub

[tytos]

Bonjour
essaye avec ça :

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
19
20
21
22
23
24
25
Private Sub Enrgstr_Click()
Dim FLAG As Boolean
For i = 1 To Derline(1, 1)
If (Nom_prdt.Value <> Sheets("PRODUIT").Cells(i + 1, 1)) Then
exit sub
else
Sheets("PRODUIT").Cells(i + 1, 4) = Sheets("PRODUIT").Cells(i + 1, 4) + Qtité_cmde.Value
Sheets("PRODUIT").Cells(i + 1, 5) = Sheets("PRODUIT").Cells(i + 1, 5) + Qtité_cmde.Value
    End If
 
Next i
If (FLAG = False) Then
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("PRODUIT").Cells(2, 1) = Nom_prdt.Value
Sheets("PRODUIT").Cells(2, 2) = Type_prdt.Value
Sheets("PRODUIT").Cells(2, 3) = code_prdt.Value
Sheets("PRODUIT").Cells(2, 4) = Qtité_cmde.Value
Sheets("PRODUIT").Cells(2, 6) = prix_achat.Value
Sheets("PRODUIT").Cells(2, 8) = Dat_achat.Value
Sheets("PRODUIT").Cells(2, 9) = Dat_premp.Value
Sheets("PRODUIT").Cells(2, 10) = Nom_grosis.Value
Sheets("PRODUIT").Cells(2, 11) = Adres_gross.Value
end if
end sub

merci