Problème avec les boucles
Résolu
zenastytos
Messages postés
17
Statut
Membre
-
cs_PaTaTe Messages postés 2230 Statut Contributeur -
cs_PaTaTe Messages postés 2230 Statut Contributeur -
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
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
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 ^^
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
17
Statut
Membre
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
2230
Statut
Contributeur
497
>
zenastytos
Messages postés
17
Statut
Membre
De rien :)