VBA excel : erreur de compilation.

Résolu/Fermé
Juliette - 3 mai 2010 à 12:01
 Juliette - 3 mai 2010 à 14:16
Bonjour, je souhaiterai faire appel de nouveau à vos compétences poour me sortir d'une énième impasse.

Je compile un code qui me permet d'aditionner les cellules d'un tableau supérieures à 0 à celle du même tableau posée en feuille2 et vba me pond une nouvelle erreur dont je n'avais jamais entendu parler...

Son intitulé : Erreur de compilation ; Référence de variable de contrôle incorrecte dans Next.

Mon code :

Private Sub CommandButton1_Click()
Dim lig As Long
Dim col As Long

For lig = 3 To 40
For col = 3 To 60
If Cells(lig, col) > 0 Then
Sheets("Feuil2").Range(lig, col) = Sheets("Feuil1").Range(lig, col).Value + Sheets("Feuil2").Range(lig, col).Value
End If
Next lig
Next col

End Sub

4 réponses

Neliel Messages postés 6146 Date d'inscription jeudi 9 juillet 2009 Statut Contributeur Dernière intervention 20 mars 2017 1 688
3 mai 2010 à 12:08
En fait le vrai problème est que tu as inversé les deux next à la fin, tu dois fermer les boucles dans l'ordre donc au lieu de:

Next lig
Next col

Tu dois mettre:

Next col
Next lig
1
Merci beaucoup, ce problème là est réglé mais j'ai une autre erreur apparament :


If Sheets("Feuil1").Range(lig, col) > 0 Then

Erreur définie par l'application ou par l'objet.
0