Need Help: Calcul de cellules pleines par ligne en VBA

Question

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

dedenet2 · Answer

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++

Need Help: Calcul de cellules pleines par ligne en VBA

1 réponse

Votre réponse

Discussions similaires