Discussion :

[oscar.cesar]

bonjour à tous
voila
je cherche à compter toutes les cellules NON vides comprise dans la
colonne O à partie de la cellule O4.
je precise qu'il ya des cellules vides entre les cellules non vide .
les donnees sont des dates au format JJ/MM/AAAA

Code :

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

nbfichenonamortie = Sheets("feuil2").Range("04:0" & Sheets("feuil2").Range("o65536").End(xlUp).Row).Columns.Count

mais j'ai pas le resultat voulue

merci

[melouille56]

Hello

Je te propose:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub CountCellsNonVides()
 
Dim i As Long, compteur As Long
 
compteur = 0
 
For i = 4 To 65536
    If Not IsEmpty(Cells(i, 15)) Then
        compteur = compteur + 1
    End If
Next i
 
End Sub

Dis si ca te convient

[oscar.cesar]

ok merci
cela me convient

[Bigalo]

Bonjour,

Code :

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

.Columns.Count

renvoie un nombre de colonnes, et est complètement indépendant du fait que les cellules soient vides ou non.

Si on utilise une boucle, il faut se limiter à la zone utile de la feuille, en utilisant UsedRange, mais n’est même pas nécessaire car la fonction NBVAL() d’Excel, COUNTA() en anglais

Code :

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

    MsgBox WorksheetFunction.CountA(Sheets("Feuil2").Range("O4:O65436"))

ou, pour ne pas avoir à se préoccuper du nombre de lignes effectif (16 fois plus avec Excel 2007 ou 2008)

Code :

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

1
2
3
4
Dim f As Worksheet, DerLigne As Long
    Set f = Sheets("Feuil2")
    DerLigne = f.UsedRange.Row + f.UsedRange.Rows.Count - 1
    MsgBox WorksheetFunction.CountA(Range("O4:O" & DerLigne))