probléme next for

mutzik

XLDnaute Barbatruc

• 17 Janvier 2013

• #2

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 17 Janvier 2013

• #3

Re : probléme next for

bonjour,

tu as oublié
end if !

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 17 Janvier 2013

• #4

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.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 17 Janvier 2013

• #5

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.

 

Dernière édition: 17 Janvier 2013

Vote positif 0 Vote négatif

L

lolosca

Guest

• 17 Janvier 2013

• #6

Re : probléme next for

Merci, et voila toujours des erreurs d 'inattention,

Bonne journée

 

Vote positif 0 Vote négatif