Bonjour, je suis bolquée encore une fois,
Cette fois ci je souhaite comparer les valeurs de deux colonne J et K et selon le cas attribuer à la colonne AG une valeur
On me sort erreur de compilation : else sans if
Merci d'avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
VB:Copier dans le presse-papier
Sheets("Liste des pièces").Select
Dim i As Integer
Dim a As Integer
a = 5
Do While Range("A" & a) <> ""
 
   a = a + 1
     Loop
If Range("J" & a).Value > Range("K" & a).Value Then Range("AG" & a).Value = "Stock comfortable"
 
ElseIf Range("J" & a).Value > Range("K" & a).Value Then Range("AG" & a).Value = "Stock critique"
End If