[VBA] Somme jusqu'a la premiere cellule vide de la colonne
Résolu/Fermé
A voir également:
- [VBA] Somme jusqu'a la premiere cellule vide de la colonne
- Excel somme colonne - Guide
- Aller à la ligne dans une cellule excel - Guide
- Affichez l'ensemble des diapositives à l'écran avec 5 diapositives par ligne. repérez le groupe de 3 diapositives avec une fleur identique alignées verticalement, supprimez la première d'entre elles. un nouveau groupe de 3 diapositives avec une fleur identique alignées verticalement apparaît, supprimez encore la première d'entre elles. déplacez les 3 premières diapositives de la 4e ligne au début de la présentation. quel mot est formé par les lettres de la première colonne ? - Forum Powerpoint
- Déplacer une colonne excel - Guide
- Somme si couleur - Guide
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié par f894009 le 29/01/2013 à 14:36
Modifié par f894009 le 29/01/2013 à 14:36
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
