XL 2013 Problem Vba

[Guismo33]

Bonjour a tous,

j'ai un debogage avec cet Vba

Sub somme()
Dim i As Integer
Dim j As Integer
For i = 1 To 11
For j = 1 To 3
Cells(5 + i, 26 + j).Value = Cells(5 + i, 26 + j).Value + Cells(5 + i, 22 + j).Value

Next j
Next i
End Sub

j'ai 4 colonne sur 11 lignes, si il ont un montant
je garde le montant des 4 autres colonnes et 11 lignes +celle-ci

merci a vous tous

 

[Theze]

Re : Problem Vba

Bonjour,

Quoi comme bug, Incompatibilité de type ?

 

[gilbert_RGI]

Re : Problem Vba

Bonjour,

un petit fichier exemple ce serait bien pratique pour aider non !!!!!

Sub somme()
    Dim i As Integer
    Dim j As Integer
    With Sheets(1) ' indiquer le num de la feuille de travail
    For i = 1 To 11 ' 11 lignes
        For j = 1 To 4 '4 colonnes et pourquoi trois
            Cells(5 + i, 26 + j).Value = Cells(5 + i, 26 + j).Value + Cells(5 + i, 22 + j).Value

        Next j
    Next i
    End With
End Sub

 

[CPk]

Re : Problem Vba

Bonjour, une cause probable : absence de nom des feuilles où doit s'exécuter la macro

 

[Guismo33]

Re : Problem Vba

Bonjour,

Merci cela fonctionne

Bien a vous