Need Help: Calcul de cellules pleines par ligne en VBA

Signaler
Messages postés
1
Date d'inscription
jeudi 22 juillet 2010
Statut
Membre
Dernière intervention
22 juillet 2010
-
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
-
Bonjour,
Je commence tout juste a découvrir le langage VBA, et la je dois faire une macro qui me permet de calculer le nombre de cellules pleines par zones de lignes ( de AG a AW) dans une colonne ou le nombre de cellules varie.
J ai commencé par la formule

[AX2] = Application.CountA([AG2:AW2])

mais je n arrive pas a l étendre sur toute la colonne
Merci d avance

1 réponse

Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
Bonjour ,
Un exemple parmi d'autres:
-----------------------------------------------
Dim C As Range
Dim NombreCellulesPleines As Integer
NombreCellulesPleines = 0
Dim Zone
Zone = "A1:A5"

Dim NombreCellulesZone As Integer
NombreCellulesZone = Range(Zone).Cells.Count

For Each C In Range(Zone)
If Trim(C.Value) <> "" Then
NombreCellulesPleines = NombreCellulesPleines + 1
End If
Next C


MsgBox NombreCellulesPleines & " cellules pleines / " & NombreCellulesZone & Chr(10) & _
"sur la zone " & Zone

-----------------------------------------
Tu peux aussi utilise "SpecialCells".

A++