cathodique
XLDnaute Barbatruc
Bonjour,
En suivant une discussion, j'ai voulu compter le nombre de cellule avec CountA pour chaque ligne d'une plage.
je suis un peu perdu. Je ne trouve pas les bonnes syntaxes car les résultats retournés sont faux.
Merci par avance.
En suivant une discussion, j'ai voulu compter le nombre de cellule avec CountA pour chaque ligne d'une plage.
je suis un peu perdu. Je ne trouve pas les bonnes syntaxes car les résultats retournés sont faux.
VB:
Sub NbCelNonVidePlage()
Dim plg As Range, dl As Long, NbCel As Long, i As Long
With ActiveSheet
Set plg = .Range("E3:T" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row)
End With
Debug.Print plg.Rows.Count, plg.Columns.Count
NbCel = Application.WorksheetFunction.CountA(plg)
'Debug.Print NbCel
For i = 3 To plg.Rows.Count
Debug.Print "Ligne" & i, Application.CountA(plg(i))
Debug.Print "Ligne" & i, Application.CountA(plg.Range(Cells(i, 1), Cells(i, plg.Columns.Count + 4)))
Next i
End Sub