Discussion :

[BizutAccess]

Bonjour,
Je cherche à connaître le nombre de cellules remplie dans la colonne A, sur la "Feuille1" pas de problème mais sur la "Feuille2" j'ai une erreur à la ligne 10
"Erreur d'exécution BASIC. '1'
Type:com.sun.star.RuntimeException
Message: "
et je ne sais pas pourquoi.

si vous avez une idée je suis preneur, et je vous en remercie de votre réponse.

Je joins le code que j'utilise, dans les 2 feuilles je mets dans la colonne A les mêmes valeurs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
sub CompteCellule
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
 Sheets("Feuille1").Select
      NbreLigne = Range("A1", Range("A1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious)).Count
   Msgbox NbreLigne
    Sheets("Feuille2").Select
      NbreLigne2 = Range("A1", Range("A1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious)).Count
   Msgbox NbreLigne2
End Sub

[Mobydick_62]

Bonjour,
Voilà un exemple de code.
Ce code compte les cellules remplies pour la feuille1 mais il suffit de boucler sur la ou les autres feuilles. A ta convenance.

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
18
19
20
21
22
23
Sub CompteCellule
  Dim Feuille As Object, PlageCellules As Object
  Dim Plages As Object, oEnum As Object, Cellule As Object
  Dim celluleNonVide As Long
 
  'Définit une feuille nommée "Feuille1" dans le classeur
  Feuille = ThisComponent.Sheets.getByName("Feuille1") 
  'Définit la plage de cellules
  PlageCellules = Feuille.getCellRangeByName("A1:A5")
 
  Plages = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") 
  Plages.insertByName("", PlageCellules)
  oEnum = Plages.Cells.CreateEnumeration 
 
  'Boucle sur la plage
  While oEnum.hasMoreElements 
    'Nota:
    'Ne renvoie rien si la cellule est vide
    Cellule = oEnum.NextElement 
    celluleNonVide = celluleNonVide + 1
  Wend 
  print celluleNonVide & " cellule sont remplies."
End Sub

[rvtoulon]

Bonjour,
sinon tu peux le faire avec une formule plutot que par macro:
plusieurs possibilités:
dans une cellule de feuille1:
ici on compte les cellules non vide de la colonne A de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(A:A;"<>")

ou bien par exemple dans une cellule d'une autre feuille par exemple dans la feuille 3 en B1:
ici on compte les cellules non vide de la colonne A de la feuille 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(Feuil1!A:A;"<>")

J'ai pas testé avec open office mais cette formule fonctionne sous excel.