compter cellules non vide en VBA

[bertgrav]

BONSOIR,

je voudrais compter le nombre de cellules non vide en colonne C entre C1 et la derniere cellule en C définit par la limite de la colonne A, en l'occurence: 'C' & I.

j'ai commancé la macro ainsi:

Dim I As Integer
I = Range('a1').End(xlDown).Row

mais aprés je n'y arrive plus.

merci de votre aide

Chantal

 

[dg62]

Bonsoir Bertgrav

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

 

[JeanMarie]

Bonsoir

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

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

 

[Robert]

Bonsoir Bertgrav, bonsoir DG,

tu peux aussi faire :

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

É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

 

[bertgrav]

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

 

[JeanMarie]

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

 

[Robert]

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.

 

[JeanMarie]

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