VBA Excel - vérification du nombre de cellules non vide
cs_silevin
Messages postés
1
Date d'inscription
samedi 25 février 2006
Statut
Membre
Dernière intervention
25 février 2006
-
25 févr. 2006 à 13:48
nanougat Messages postés 40 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 26 octobre 2007 - 25 févr. 2006 à 17:36
nanougat Messages postés 40 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 26 octobre 2007 - 25 févr. 2006 à 17:36
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
25 févr. 2006 à 17:32
25 févr. 2006 à 17:32
Bonjour,
Si tu veux vérifier combien de cellules contienent des données (non vide).
Function CellulesUtilisé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ées Range("I4:I107")
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Si tu veux vérifier combien de cellules contienent des données (non vide).
Function CellulesUtilisé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ées Range("I4:I107")
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
nanougat
Messages postés
40
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
26 octobre 2007
25 févr. 2006 à 17:36
25 févr. 2006 à 17:36
Bonjour
Pour compter le nombre deccellules non vides :
ActiveCell.FormulaR1C1 = "=COUNTIF(maplage,c2)" où c2 est le critère
Cordialement
Pour compter le nombre deccellules non vides :
ActiveCell.FormulaR1C1 = "=COUNTIF(maplage,c2)" où c2 est le critère
Cordialement