Discussion :

[zangaloni]

Bonjour,
Je cherche à calculer le nombre de lignes non vide d'une colonne particulière.
pour ceci j'ai essayé le code suivant :

Code :

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

1
2
3
4
 Dim rg As Range
 
       rg = Feuil12.Columns(2)
       MsgBox rg.Count

mais ça ne marche pas.
si vous avez des idées, merci de me les faire passer

[Philippe Tulliez]

Bonjour,
En utilisant tout simplement la fonction NBVAL (COUNTA) en anglais et pour VBA

Code :

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

 Debug.Print Application.WorksheetFunction.CountA(Columns(3))

Ce code donne le nombre de cellules non-vide de la colonne 3

[bastou93]

Salut a toi,

Une petite idée:

Code :

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

1
2
3
4
5
6
7
8
 
dim count as long
 
For Each cel in Columns(3)
  if cel.value <> "" then
      count = count + 1
 end if
next cel

Je penses que sa marche

Bastien

[zangaloni]

merci ça répond bien à mon besoin.