[VBA] Somme jusqu'a la premiere cellule vide de la colonne [Résolu/Fermé]

Signaler
-
 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.

2 réponses

Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481
Bonjour,

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
Merci beaucoup pour votre aide.

Ca marche super bien !