Problème avec les boucles Résolu/Fermé

Question

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
Private Sub Enrgstr_Click()Dim FLAG As BooleanFor i = 1 To Derline(1, 1)If (Nom_prdt.Value = Sheets("PRODUIT").Cells(i + 1, 1)) ThenSheets("PRODUIT").Cells(i + 1, 4) = Sheets("PRODUIT").Cells(i + 1, 4) + Qtité_cmde.ValueSheets("PRODUIT").Cells(i + 1, 5) = Sheets("PRODUIT").Cells(i + 1, 5) + Qtité_cmde.Value    End IfNext iIf (FLAG = False) Then    Rows("2:2").Select    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveSheets("PRODUIT").Cells(2, 1) = Nom_prdt.ValueSheets("PRODUIT").Cells(2, 2) = Type_prdt.ValueSheets("PRODUIT").Cells(2, 3) = code_prdt.ValueSheets("PRODUIT").Cells(2, 4) = Qtité_cmde.ValueSheets("PRODUIT").Cells(2, 6) = prix_achat.ValueSheets("PRODUIT").Cells(2, 8) = Dat_achat.ValueSheets("PRODUIT").Cells(2, 9) = Dat_premp.ValueSheets("PRODUIT").Cells(2, 10) = Nom_grosis.ValueSheets("PRODUIT").Cells(2, 11) = Adres_gross.Valueend ifend sub

cs_PaTaTe · Answer

Quelle est la condition qui doit être respectée pour stopper ? 

If (Nom_prdt.Value = Sheets("PRODUIT").Cells(i + 1, 1)) Then

ou

If (FLAG = False) Then

???


Dans les 2 cas, rajoutes 

Après ton If

Exit Sub
Else
 

Dis nous si c'est ce que tu cherches ^^

Problème avec les boucles

1 réponse

Discussions similaires