probleme marcoRésolu

Question

Bonjour,
je n'arrive pas à faire marcher cette macro, pourriez vous me guider 
SVP

Sub summ()
Dim li_Col as Integer
Dim k as Long
Dim somme as Double
'Parcourt les colonnes de 1 à 10
For li_Col = 1 to 10
    'Calcule la somme pour la colonne li_Col
    k = 2
    somme = 0
    Do
        k = k + 1
        somme = somme + Cells(k, li_Col)
    Loop Until IsEmpty(Cells(k, li_Col))
    Cells(k+1, li_Col) = somme
Next li_Col
End Sub

cs_MPi · Accepted Answer

Le code me semble correct... Qu'est-ce qui ne fonctionne pas exactement ? mauvais calcul ? erreur ?

Seule question que je me pose... Est-ce que tu commences ta somme à la ligne 2 ou 3 ?
Si c'est la ligne 3, c'est bien.
Si c'est la ligne 2, il te faudrait mettre k = k + 1 après la somme
    Do

        somme = somme + Cells(k, li_Col)

        k = k + 1


    Loop Until IsEmpty(Cells(k, li_Col))

ou intialiser k = 1 plutôt que 2

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_MPi · Answer

Ma réponse, ICI, a aidé ou non ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

apex77 · Answer

merci !!!

Probleme marco

3 réponses

Votre réponse

Discussions similaires