SOMME POUR CHAQUE COLONNE

Question

BONJOUR,

voila je viens de faire la somme d'une colonne avec le programme ci-dessous, maintenant je voudrais étendre ce programme à toute les colonnes comment puis-je faire sachant que mon nombre de colonnes est variable ??
une autre question , vu que mon nombre de ligne est aussi variable et que je voudrai que ja somme de chaque colonne soit en dessous de chaque colonne comment puis je changer ma ligne (Cells(108, 2) = somme). C'est à dire si j'ai 10 lignes je veux que mon total de ma colonne soit à la 11eme ligne , si j'ai 100 lignes je veux que le total de ma colonne soit à la 101éme ligne
je vous en remercie d'avance

Sub summ()
k = 2
Do
k = k + 1
somme = somme + Cells(k, 2)
Cells(108, 2) = somme
Loop Until IsEmpty(Cells(k, 2))
End Sub

mrdep1978 · Answer

Bonjour, Ca devrait être ceci : Sub summ() k = 2 Do k = k + 1 somme = somme + Cells(k, 2) ~~Cells(108, 2) = somme~~ Loop Until IsEmpty(Cells(k, 2)) Cells(k+1, 2) = somme End Sub

mrdep1978 · Answer

Oups, j'ai oublié la partie sur les colonnes

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

apex77 · Answer

merci, mais ca me met incompatibilité de type pourquoi ????

SOMME POUR CHAQUE COLONNE

3 réponses

Votre réponse

Discussions similaires