compter cellules non vide en VBA

dg62

XLDnaute Barbatruc

• 20 Février 2006

• #2

Bonsoir Bertgrav

Code:

Sub comptevide()
Dim I As Integer
I = Range('a1').End(xlDown).Row
nbcel=0

for each cel in range('c1:c' & i)

if cel > ''
nbcel=nbcel+1
end if

next cel

msgbox('Nombre de cellules vides : ' & nbcel)

end sub

edition : j'avais compris vide

Message édité par: dg62, à: 20/02/2006 19:54

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 20 Février 2006

• #3

Bonsoir

Une autre solution, en utilisant une fonction d'Excel.

Code:

Sub Macro1()
Dim I As Double
   I = Range('a1').End(xlDown).Row
   MsgBox Application.CountA(Range('C1:C' & I))
End Sub

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Février 2006

• #4

Bonsoir Bertgrav, bonsoir DG,

tu peux aussi faire :

Dim nb As Integer
nb = Application.WorksheetFunction.Count(Range('C1:C' & Range('C65536').End(xlUp).Row))

Cliquez pour agrandir...

Édition :

Salut Jean-Marie. Même Combat... Mais je prefère ma variable en Integer qu 'en Double.

Message édité par: Robert, à: 20/02/2006 20:04

 

Vote positif 0 Vote négatif

B

bertgrav

XLDnaute Occasionnel

• 20 Février 2006

• #5

merci,

j'ai gardé la solution de Jean Marie, qui est plus adaptée pour la suite de ma macro.....

merci aussi à DG et Robert, je garde leur solution en réserve, un jour je m'en servirais surement.

Chantal

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 20 Février 2006

• #6

Bonsoir Robert

Effectivement je me suis trompé dans le type de la déclaration de la variable, mais toi aussi, lol
Excel contient 65536 lignes et Integer ce limite à 32 767. D'autre part Robert, ce n'est pas dans la colonne C qu'il faut prendre en compte la fin de la limite, mais dans la colonne A.lol

@+Jean-Marie

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Février 2006

• #7

Bonsoir le fil, bonsoir le forum,

Jean-Marie as-tu déjà vu une carpe-solée ??? Hé bien c'est moi maintenant... Muet comme une carpe car je promets de tourner 7 fois... et Solé par ce sont mes plus plates excuses que j'ose te présenter sur un plateau d'argent finement ciselé... Bonne soirée.

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 20 Février 2006

• #8

Re...

Oh! non Robert, ne soit pas désolé, ni muet. J'adore lire tes fils, continue STP, tu es inégalé seulement singé dans tes différents propos, défoule toi mon Robert.

@+Jean-Marie

 

Vote positif 0 Vote négatif