[Calc] Compter les cellules dans une zone

Vos meilleures macros et portions de code sont publiées dans cette section.
Aucun support sur une question de programmation ici !

Modérateur : Vilains modOOs

Règles du forum
Aucune question dans cette section !
Celle-ci rassemble les meilleures macros et portions de code. Vous pouvez en revanche commenter ou argumenter le code exposé. Vous pouvez même remercier l'auteur (cela fait toujours plaisir) en indiquant par exemple dans quel cadre ou contexte vous en avez eu l'utilité.
Si vous avez à poster quelque chose, faites-le depuis la section Macros et API et demandez à un modérateur de l'y déplacer.
Avatar de l’utilisateur
Factooor
PassiOOnné
PassiOOnné
Messages : 543
Inscription : 14 févr. 2007 11:39
Localisation : Lisieux (14)

[Calc] Compter les cellules dans une zone

Message par Factooor »

Code : Tout sélectionner

sub cell()
Dim oSheetListe As Object
Dim maCellule As Object


oSheetListe = Thiscomponent.Sheets.getByIndex(0)
maCelulle = oSheetListe.getcellRangeByName("A1:E20") 
nbL = maCelulle.Rows.Count
nbC = maCelulle.columns.Count
print nbL*nbC
End Sub
7.5.4.2 (AARCH64) LibreOffice
Mac OS X 13.4.1