Problème avec les boucles

Résolu

zenastytos Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
cs_PaTaTe Messages postés 2126 Date d'inscription Statut Contributeur Dernière intervention - 23 mai 2017 à 11:15

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 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

A voir également:

Problème avec les boucles
Problème pc qui s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
Les boucles en algorithme pdf ✓ - Forum Programmation
Les boucles for sur matlab ✓ - Forum Matlab
Mon pc s'allume et s'éteint en boucle avec un bip - Forum Virus
Exercice en Algorithmique (Boucles) ✓ - Forum Algorithmes / Méthodes

1 réponse

Réponse 1 / 1

cs_PaTaTe Messages postés 2126 Date d'inscription Statut Contributeur Dernière intervention 496

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 ^^

zenastytos Messages postés 16 Date d'inscription Statut Membre Dernière intervention

bonjour ca a marché merci pour l'aide . la condition c'est If (Nom_prdt.Value = Sheets("PRODUIT").Cells(i + 1, 1)) Then

cs_PaTaTe Messages postés 2126 Date d'inscription Statut Contributeur Dernière intervention 496 > zenastytos Messages postés 16 Date d'inscription Statut Membre Dernière intervention

De rien :)

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Mon ordinateur s'allume et s'eteint en boucle

Chanteur blond cheveux mi long chante anglais

Algobox, problème pour boucles

Dessin animé d’enfant avec une ferme et une fille blonde

Votre réponse

Discussions similaires