probléme next for

[lolosca]

Bonjour à tous,

Je commence à e débrouiller en vba, mais la je rencontre un problème que je ne comprends pas et qui pourtant parait simple,

J'ai écrit le code suivant pour mettre des bordures à mon tableau

Private Sub CommandButton1_Click()
Dim cellule   As Range

With Worksheets("Tableau de calcul")
    For Each cellule In Range("B2:H25")
        If cellule <> "" Then
            cellule.Borders.Weight = xlThin
            cellule.Interior.ColorIndex = 36
    Next cellule
End With
End Sub

Mais lorsque je l'execute il me met un message d'erreur, next sans for et je ne comprends pas pourquoi, si quelqu'un peut m'aider,

Merci d'avance,

Bonne journée

 

[mutzik]

Re : probléme next for

bonjour,

si tu mets un with sheets(" ...
il faut utiliser ensuite .range("B2:H25") pour se référer à la feuille en question

 

[Roland_M]

Re : probléme next for

bonjour,

tu as oublié
end if !

 

[MJ13]

Re : probléme next for

Bonjour Lolosca, Mutzig, Roland, Papou

Il vaut mieux écrire next tout court, ainsi tu ne peux pas faire d'erreur de syntaxe. Il doit aussi manquer le End if.

 

[Papou-net]

Re : probléme next for

Bonjour lolosca,

Il manque End If à ta condition :

Private Sub CommandButton1_Click()
Dim cellule As Range

With Worksheets("Tableau de calcul")
For Each cellule In Range("B2:H25")
If cellule <> "" Then
cellule.Borders.Weight = xlThin
cellule.Interior.ColorIndex = 36
End If
Next cellule
End With
End Sub
s'il ne trouve pas une ligne d'instruction, Excel s'arrête sur la ligne suivante, d'où une certaine confusion dans les esprits.

Cordialement.

Edit : Quel beau tir groupé dans la même minute. Bonjour à vous Bertrand, Roland, Michel.

 

[lolosca]

Re : probléme next for

Merci, et voila toujours des erreurs d 'inattention,

Bonne journée