Calcul de la somme d'une colonne apres la derniere ligne non
Bonsoir,
J'aurai besoin d'aide pour la rédaction de mon code VBA.
Je souhaite obtenir la somme de ma colonne C de C10 à Cn (plage qui peut varier).
Cette somme devra figurer dans Cn+1.
Voir fichier ci-joint.
Voici ce que j'ai essayé de faire pour le moment (absolument pas fini...) :
Sub sommelignes()
Dim derniereLigne As Long
Dim valeurderniereLigne As Integer
Dim Somme As Integer
Dim premierevide As Integer
valeurderniereLigne = Range("C" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne C
Somme = WorksheetFunction.Sum(Feuil1.Range("C10:valeurderniereLigne.Value"))
premierevide = Range("C" & Rows.Count).End(xlUp).Row + 1 'n° de la première ligne vide de la colonne C
End SubBonsoir,
une petite chose :
une variable VBA n'est pas une donnée Excel...
Dans :
Somme = WorksheetFunction.Sum(Feuil1.Range("C10:valeurderniereLigne.Value"))
il manque un "C" et la variable fait partie de la donnée Excel hors la variable est "VBA" !
Donc :
Somme = WorksheetFunction.Sum(Feuil1.Range("C10:C"&valeurderniereLigne.Value))
je pense que cela marchera mieux...
Ensuite
Range("C"&valeurderniereLigne.Value + 1) = Somme
A essayer.
@ bientôt
LouReeD
Bonsoir LooReeD,
Merci pour ta réponse rapide
Mon code est donc :
Sub somlignes()
Dim derniereLigne As Long
Dim valeurderniereLigne As Integer
Dim Somme As Integer
Dim premierevide As Integer
valeurderniereLigne = Range("C" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne C
Somme = WorksheetFunction.Sum(Feuil1.Range("C10:C" & valeurderniereLigne.Value))
Range("C" & valeurderniereLigne.Value + 1) = Somme
End SubCependant quand j'exécute le code, j'ai un message d'erreur "qualificateur incorrect".
Sais-tu d'ou cela pourrait venir?
Merci
Oups !
Somme = WorksheetFunction.Sum(Feuil1.Range("C10:C" & valeurderniereLigne))
Range("C" & valeurderniereLigne + 1).Value = Somme
@ bientôt
LouReeD
MERCI BEAUCOUPPPP !!
Mais de rien, merci pour votre merci !
@ bientôt
LouReeD