Probleme marco

Résolu
Signaler
Messages postés
48
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
17 avril 2008
-
Messages postés
48
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
17 avril 2008
-
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

3 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
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
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
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
Messages postés
48
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
17 avril 2008

merci !!!