[VBA] Somme jusqu'a la premiere cellule vide de la colonne
Résolu
steph
-
steph -
steph -
Bonjour,
Je debute en VBA et je fais face a un probleme. J'espere que vous pourrez gentiement m'aider a le resoudre.
Je suis dans la colonne G, ligne k.
Quel code puis-je utiliser pour donner a la cellule G(k) le resultat de la somme de G(k+1) jusqu'a la premiere cellule vide rencontree dans la colonne G apres G(k+1) en descendant ?
Merci beaucoup d'avance,
Steph.
Je debute en VBA et je fais face a un probleme. J'espere que vous pourrez gentiement m'aider a le resoudre.
Je suis dans la colonne G, ligne k.
Quel code puis-je utiliser pour donner a la cellule G(k) le resultat de la somme de G(k+1) jusqu'a la premiere cellule vide rencontree dans la colonne G apres G(k+1) en descendant ?
Merci beaucoup d'avance,
Steph.
A voir également:
- [VBA] Somme jusqu'a la premiere cellule vide de la colonne
- Formule somme excel colonne - Guide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Supprimer page word vide - Guide
2 réponses
Bonjour,
Deux exemples de code: (nom de feuille a adapter)
Bonne suite
Deux exemples de code: (nom de feuille a adapter)
Sub test()
'Ecriture formule dans cellule resultat
With Worksheets("feuil1")
K = 6
CelDep = K + 1
'Premiere cellule vide en partant d'une cellule
CelFin = .Columns("G").Find("", .Cells(CelDep, "G"), , xlPart).Row
NbCel = CelFin - CelDep
.Range("G" & K).FormulaR1C1 = "=SUM(R[1]C:R[" & NbCel & "]C)"
End With
End Sub
Sub test1()
'Ecriture resultat dans cellule
With Worksheets("feuil1")
K = 6
CelDep = K + 1
'Premiere cellule vide en partant d'une cellule
CelFin = .Columns("G").Find("", .Cells(CelDep, "G"), , xlPart).Row
For Each cel In .Range("G" & CelDep & ":G" & CelFin)
x = x + cel
Next cel
.Range("G" & K) = x
End With
End Sub
Bonne suite