Bonjour,
je suis débutant en VBA.

Le code fonctionne mais:

Insère la ligne XE_XS -> ça fonctionne
Ajoute 10000 jusqu'a STOP -> ça ne marche pas

Pouvez-vous m'aider, SVP

Merci d'avance

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
26
 
Sub XE_XS()
Dim i As Integer, x As Integer
Sheets("RECETTE1").Activate
 
Do
    i = i + 1
    'On sort après STOP
    If Cells(i, 1).Value = "STOP" Then Exit Sub
    'On répète la boucle tant que le contenu de la cellule est supérieure 3500
    Loop While Cells(i, 1) > 3500
    Cells(i, 1).Select
    'On insère une ligne avec le code XE_XS après cellule < 3500
    Selection.EntireRow.Insert
    Cells(i, 1) = "XE_XS_____"
 
        x = x + 1
 
        'Après la ligne XE_XS et jusqu'a STOP
        'On ajoute 10000 à la valeur de la cellule
        Do While Cells(x + i, 1).Value = "STOP"
        Cells(x + i, 1).Value = Value + 10000
 
        Loop
 
End Sub