compter nombre de lignes non vide

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

j'essaie de compter les lignes non vides dans la colonne A sachant qu'il y a parfois des cellules vides intercalées entre les cellules de données

voici le code sur lequel je me suis basé mais le problème est que dès qu'il rencontre une cellule vide il arrête de compter.

moi je voudrais qu'il me scanne toute la colonne A pour ensuite me définir le nombre exacte de cellule rempli de données.

Merci beaucoup
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 i = 0 tot_noper = 0 If Cells(i + 6, 2) <> "" Then Do While (Cells(i + 6, 2) <> "") tot_noper = tot_noper + 1 i = i + 1 Loop End If Cells(16, 4) = tot_noper
j'ai donc essayé d'adapter avec le code suivant mais y'a un probleme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Sub calculnbcellule() Dim oper As Single Dim Plage As Range Dim a As Range Dim cel As Range Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) Set cel = Plage.Value I = 1 oper = 0 If Not cel(I, 1) Is Nothing Then oper = oper + 1 I = I + 1 End If Cells(11, 5) = oper End Sub
merci beaucoup!

Bonjour, regarde ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
  Dim MyRange As Range
  Set MyRange = ActiveSheet.UsedRange
  Debug.Print LigneVide(MyRange.Columns(1))
  End Sub
 
 Function LigneVide(Plage As Range) As Long
 Dim L As Long
 For L = 1 To Plage.Rows.Count
    If Trim("" & Plage.Cells(L, 1)) = "" Then LigneVide = LigneVide + 1
 Next
 End Function

14/12/2013, 18h13
awa123

1 pièce(s) jointe(s)

Merci rdurupt,

mais il y a un problème dans ce code car il ne considère pas toutes les cellules non vide dans la colonne A

en voici la preuve : voir mon fichier joins svp

merci !

J'ai fat le contraire j'a compté le cellules vide :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
  Dim MyRange As Range
  Set MyRange = ActiveSheet.UsedRange
  Debug.Print LigneVide(MyRange.Columns(1))
  End Sub
 Function LigneVide(Plage As Range) As Long
 Dim L As Long
 For L = 1 To Plage.Rows.Count
    If Trim("" & Plage.Cells(L, 1)) <> "" Then LigneVide = LigneVide + 1
 Next
 End Function

14/12/2013, 18h48
awa123
super merci !

est il juste possible d'expliquer en francais ces ligne de code :
Code:

1 2 Set MyRange = ActiveSheet.UsedRange Debug.Print LigneVide(MyRange.Columns(1))
que signifie ici le usedrange et debug.print??

Code:

If Trim("" & Plage.Cells(L, 1)) <> "" Then LigneVide = LigneVide + 1

Trim signifie enlever les cellule vides ici? pouvez tranduire en francais cette ligne

Thanks

Code:

1
2
3
4
'affecter a Myrange la référence des cellules utilisées dans la feuille active.
Set MyRange = ActiveSheet.UsedRange
'écrire dans la fenêtre d’exécution le résultat de la fonction.
  Debug.Print LigneVide(MyRange.Columns(1))

Code:

1
2
'supprime les espaces et converti les cellule null a vide [""]
If Trim("" & Plage.Cells(L, 1)) <> "" Then LigneVide = LigneVide + 1

15/12/2013, 02h52
Philippe Tulliez

Bonjour Robert,
Je ne comprends pas pourquoi tu utilises la concaténation d'une chaîne vide avec le contenu de la cellule pour faire un TRIM. Fais le test avec une nouvelle feuille.
La ligne de comptage pourrait se limiter à

Code:

LigneVide = LigneVide + Abs(Len(Trim(Plage.Cells(L,1))) = 0)

ou

Code:

LigneRemplie = LigneRemplie + Abs(Len(Trim(Plage.Cells(L,1))) <> 0)

On aurait pu aussi utiliser la formule COUNTBLANK ou COUNTA (pour cellules non vide) si on était certain que l'utilisateur n'a pas entré des caractères espacés ce qui aurait fait l'économie d'une boucle.
Un autre souci pourrait intervenir dans le comptage si une cellule de la colonne A a une valeur d'erreur tel que #DIV/0!. Il faudrait alors faire précéder la ligne de comptage par un On Error Resume Next.

Bonjour,

Une piste :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Sub Compter()
 
    'si c'est du texte
    MsgBox Application.CountIf(ActiveSheet.Range("A:A"), "*")
 
    'si ce sont des nombres (champ clé unique par exemple)
    MsgBox Application.CountIf(ActiveSheet.Range("A:A"), ">0")
 
 
End Sub

Hervé.

15/12/2013, 10h17
Daniel.C

Bonjour,

Autre piste :

Code:

MsgBox Application.CountA([A:A])

PS. La différence entre cette solution et celle de Theze est que "CountA" ne compte que les cellules non vides. C'est à dire que si une cellule contient une formule renvoyant "rien", elle ne sera pas considérée comme vide. Eg. une cellule contenant :

Code:

=""

sera considérée comme non vide.