Attribuer une valeur à une cellule VBA

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:

---

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

---

Bonjour,

tu as 2 syntaxes pour le If.
Sur une ligne :

Code:

---

If test Then action1 Else action2

---

Sur plusieurs lignes :

Code:

---

1 2 3 4 5 6 7

If test Then action1 elseif test2 action2 else action3 End If

---

Là tu fait un remix des deux.
eric

PS : c'est quoi la différence entre

Code:

---

Range("J" & a).Value > Range("K" & a).Value

---

et

Code:

---

Range("J" & a).Value > Range("K" & a).Value

---

? :-)
Et pas besoin de 2nd test. S'il n'est pas > x, il est obligatoirement <=

Meme si en changeant le elseif par else ça change rien meme erreur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

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"   Else Range("AG" & a).Value = "Stock critique" End If

---

Bonjour,
Comme Eric, te l'a indiqué, il y a deux syntaxes soit sur une ligne soit sur plusieurs donc dans le deuxième cas, la première ligne doit se terminer par le mot clé Then

Bonjour Philippe,

Ben oui, faut lire les réponses en entier.

ça marche, Merciii