VBA Excel - vérification du nombre de cellules non vide

Question

Bonjour &#224; tous,

est il possible d'&#233;diter cette ligne sous le format alphanum&#233;rique compte tenu que CountA refuse de me calculer  la variable sous ce format :
vide = feuille & "!L4C" & x + 1 & ":L107C" & x + 1
NB = WorksheetFunction.CountA(Range(vide))

En effet, si je remplace L4C" & x + 1 & ":L107C" & x + 1 par I4:I107 tout est ok mais je perds bien entendu le caract&#232;re variable.
Merci pour votre aide

jpleroisse · Answer

Bonjour,

Si tu veux v&#233;rifier combien de cellules contienent des donn&#233;es (non vide).



Function CellulesUtilis&#233;es(Plage As Range)

Dim vCellule As Object

Dim vCompteur As Integer

For Each vCellule In Plage

    If vCellule <> "" Then

    vCompteur = vCompteur + 1

End If

Next

MsgBox vCompteur

End Function



Sub CompterCellules()

CellulesUtilis&#233;es Range("I4:I107")

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

nanougat · Answer

Bonjour



Pour compter le nombre deccellules non vides :



ActiveCell.FormulaR1C1 = "=COUNTIF(maplage,c2)" o&#249; c2 est le crit&#232;re



Cordialement

VBA Excel - vérification du nombre de cellules non vide

2 réponses

Discussions similaires