Bonjour à tous, je recherche comment trouver les numéros de lignes correspondant aux cellules non vides dans une cellules pour ensuite additionner des nombres compris entre ces numéros de lignes (nombre dans une autre colonne).
La Macro suivante ne fonctionne pas:
Quelqu'un peut-il me venir en aide? Merci d'avance. John81
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub Test10() Dim a As Long, b As Long Dim c As Range a = Columns("A:A").Find(what:="<>""").Row b = Columns("A:A").Find(After:=a, what:="<>""").Row Set c = Range(Cells(3, 2), Cells(a - 1, 2)) If Range("C3").Row <> a Then Range("B" & a).Formula = "=SUM(" & c.AddressLocal & " )" Else: Range("B" & a).Value = "0" End If End Sub
Partager