VBA : Utilisation "Count jusqu'à" en remontant la liste
Bonjour à tous,
J'ai besoin de vos super pouvoirs !
Voilà mon problème :
Je souhaite, afin de sommer mes colonnes, connaitre combien de lignes sont concernées, soit jusqu'à une case vide.
Sauf que, pas moyen ! Il ne veut pas compter en remontant la colonne, j'ai essayé diverses formules et toujours rien..
Je vous mets le code sur lequel je bloque :
La première partie est l'importation de ma ligne de calcul à partir d'une autre feuille, il ne devrait pas y avoir de soucis sur cette partie.
ThisWorkbook.Sheets("Estimatif BAC").Activate
ThisWorkbook.Sheets("basequantitatif").Activate
Range("base_soustotal").Select
Selection.Copy
ThisWorkbook.Sheets("Estimatif BAC").Activate
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Select
Do
nblgdal = Application.CountA(Range("I:I").End(xlPrevious))
Range("I41") = nblgdal
Loop Until ActiveCell = ""
For j = 8 To 12
ActiveCell.Offset(0, j).FormulaR1C1 = "=Sum(R" & ActiveCell.Row - nblgdal & "C:R" & ActiveCell.Row - 1 & "C)"
Next j
ActiveCell.Offset(2, 0).Select
J'espère que vous pourrez m'aider,
Merci par avance !
Bonjour et bienvenue sur le forum
Tu devrais joindre ton fichier, au besoin anonymisé, et on te corrigerait ton code.
Bye !
Bonjour,
et merci pour ta reponse
Je joins le fichier, un peu lourd..
J'ai joint les fichiers d'import si tu as besoin de lancer la macro.
Voilà
En espérant que ça puisse t'éclairer d'avantage que mes explications
Merci beaucoup