VBA excel : erreur de compilation.

Résolu
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

  1. Contributeur
    Bonjour,

    Cela fait bien longtemps que je n'ai pas fait de VBA mais ici...

    Sheets("Feuil2").Range(lig, col) = Sheets("Feuil1").Range(lig, col).Value + Sheets("Feuil2").Range(lig, col).Value

    Si tu remplace par:

    Sheets("Feuil2").Range(lig, col).Value = Sheets("Feuil1").Range(lig, col).Value + Sheets("Feuil2").Range(lig, col).Value

    ça fonctionne ?
    0
    1. Malheureusement non. J'ai toujours le même message d'erreur. Merci tout de même de m'avoir consacré un peu de ton temps.
      0