Attribuer une valeur à une cellule VBA

[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

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

 

[fanfan38]

Bonjour,
T'as macro ne traitait qu'une ligne... la 1ère dont la cellule A n'est pas vide...

Dim i As Integer
Dim a As Integer
a = 5
Do While Range("A" & a) <> ""
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
a = a + 1
Loop

Quand tu mets sur la même ligne le if condition then faire
excel considère que la condition est terminé (pas besoin de end if)
Instruction if then en 1 seule ligne.... (voir aide)...
A+ François

 

[eriiic]

Bonjour,

voir ici : https://www.developpez.net/forums/d...excel/macros-vba-excel/attribuer-cellule-vba/
A quoi ça sert de multiplier les forums, tu ne lis même pas les réponses complètement ?
eric

 

[Sa Mariam]

Il est ou le problème tant que je demande de l'aide?

 

[Sa Mariam]

Bonjour,
T'as macro ne traitait qu'une ligne... la 1ère dont la cellule A n'est pas vide...

Dim i As Integer
Dim a As Integer
a = 5
Do While Range("A" & a) <> ""
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
a = a + 1
Loop

Quand tu mets sur la même ligne le if condition then faire
excel considère que la condition est terminé (pas besoin de end if)
Instruction if then en 1 seule ligne.... (voir aide)...
A+ François

Merci pour votre réponse Monsieur

 

[eriiic]

Il est ou le problème tant que je demande de l'aide?

Le problème c'est que ça n'est pas toujours bien vu de poster sur un autre forum sans avoir attendu 24h sans réponse.
Et puis si c'est régulier à quoi bon perdre du temps à te répondre alors que tu as peut-être déjà une réponse ailleurs ?
On préfère mieux l'utiliser à quelqu'un qui en a besoin et qui respecte ces règles, on ne regarde même plus tes questions.
A toi de voir...
eric