Discussion :

[Sa Mariam]

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

[eriiic]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If test Then action1 Else action2

Sur plusieurs lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Sa Mariam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[eriiic]

Bonjour Philippe,

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

[Sa Mariam]

ça marche, Merciii