vba terminer la boucle si condition vrai

[ptite_linda]

Bonjour,
je suis débutante "au plus bas niveau".
Voilà ce que je veux faire : par exemple "si la valeur de ma cellule = 1 alors on la remplace par la valeur contenue dans une autre cellule sur une autre feuille."
voila comment j'ai écrit ça (i : la ligne / augm : nom de la feuille où je vais chercher mes valeurs.)

Public Sub pompes1()
'STOCK MAGASIN 1 MODIF DES COÛTS ET QUANTITÉS


Dim i As Long 'LIGNE

Sheets("POMPES1").Activate

For i = 14 To 509

'SI QUANTITÉ EST VIDE ALORS QUANTITÉ VIDE
If Cells(i, 3).Value = "" Then Cells(i, 3).Value = ""


'SI LA QUANTITÉ EST SUP OU = A 9 ON LA REMPLACE
If Cells(i, 3).Value <= 9 Then
If Cells(i, 3).Value = 1 Then Cells(i, 3).Value = Range("augm!G19")
If Cells(i, 3).Value = 2 Then Cells(i, 3).Value = Range("augm!G21")
If Cells(i, 3).Value = 3 Then Cells(i, 3).Value = Range("augm!G23")
If Cells(i, 3).Value = 4 Then Cells(i, 3).Value = Range("augm!G25")
If Cells(i, 3).Value = 5 Then Cells(i, 3).Value = Range("augm!G27")
If Cells(i, 3).Value = 6 Then Cells(i, 3).Value = Range("augm!G29")
If Cells(i, 3).Value = 7 Then Cells(i, 3).Value = Range("augm!G31")
If Cells(i, 3).Value = 8 Then Cells(i, 3).Value = Range("augm!G33")
If Cells(i, 3).Value = 9 Then Cells(i, 3).Value = Range("augm!G35")
If Cells(i, 3).Value = 0 Then Cells(i, 3).Value = Range("augm!G17")


le problème c'est qu'une fois que la 1ère condition est vérifiée ça passe à la condition d'en dessous alors que je veux sortir de la boucle et passer au i suivant

Quelle erreur je fais?
Quelle syntaxe dois-je utiliser?

 

[mutzik]

Re : vba terminer la boucle si condition vrai

Bonjour Linda,

pas de panique 😱 , voici un petit test que j'ai fait qui devrait te convenir
Sub test()
For i = 14 To 50
Select Case Cells(i, 1)
Case "": Cells(i, 1) = "vide"
Case 1: Cells(i, 1) = Cells(i, 1) * 2
Case 2: Cells(i, 1) = Cells(i, 1) * 2
Case 3: Cells(i, 1) = Cells(i, 1) * 2
Case 4: Cells(i, 1) = Cells(i, 1) * 2
Case 5: Cells(i, 1) = Cells(i, 1) * 2
Case 6: Cells(i, 1) = Cells(i, 1) * 2
Case 7: Cells(i, 1) = Cells(i, 1) * 2
Case 8: Cells(i, 1) = Cells(i, 1) * 2
Case 9: Cells(i, 1) = Cells(i, 1) * 2
Case 0: Cells(i, 1) = Cells(i, 1) * 2
End Select
Next i
End Sub

reviens si tu as encore des difficultés
@+
Bertrand

 

[ptite_linda]

Re : vba terminer la boucle si condition vrai

ok j'essaie et j'te rdis quoi.
Merci