Etonnant If / End If

Bonjour,

j'ai fait des petits tuto pour certains collègues, hier encore tout fonctionnait et aujourd'hui plantage incompréhensible :

tout bête :

Sub total()

Cells(1, 5).Value = ""

Cells(1, 5).Value = Cells(1, 1).Value * Cells(1, 2).Value * Cells(1, 3).Value * Cells(1, 4).Value

resultat = Cells(1, 5).Value

Cells(2, 1).Value = resultat

If Cells(1, 1).Value < 25 Then Cells(1, 1).Interior.Color = 255

End If

End Sub

Si je mets pas le End if cela fonctionne

avec le End if il me demande un If

Bonjour,

Cette instruction est complète :

If Cells(1, 1).Value < 25 Then Cells(1, 1).Interior.Color = 255

Il n'y a donc rien à y rajouter !

Ton End If se trouve donc dépourvu de If débutant l'instruction et déclenche une erreur.

Celle-ci aussi est complète :

If Cells(1, 1).Value < 25 Then
    Cells(1, 1).Interior.Color = 255
End If

L'instruction est écrite sur plusieurs lignes, elle doit donc se conclure par End If

Je te conseille de consulter l'Aide sur If... Then... Else... qui te fournira encore d'autres modèles d'écriture de cette instruction conditionnelle.

Cordialement.

C'est très aimable a vous de m'avoir répondu si vite

je considère être plutôt doué sur VB mais je n'ai pas pris de cours ce qui fait que je connais pas vraiment tout ce qui est possible et là j'avoue que je n'aurais pas trouvé.

merci encore

Silux a écrit :

C'est très aimable a vous de m'avoir répondu si vite

je considère être plutôt doué sur VB mais je n'ai pas pris de cours ce qui fait que je connais pas vraiment tout ce qui est possible et là j'avoue que je n'aurais pas trouvé.

merci encore

Bonjour,

installe ceci, ça peut aider

P.