Afficher le nombre de cellule d'une plage selectionné en VBA

Bonjour à tous, je cherche à rajouter au code ci-dessous un complement pour :

• afficher dans une msgbox la valeur du nombre de cellule qui compose cette plage selectionné
• afficher dans une 2e msgbox la valeur du nombre de cellule non vide qui compose cette même plage de cellule selectionné

Une idée ?? Merci d'avance, cordialement.

Private Sub Worksheet_Activate()

Range("A2").Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

End Sub

Bonjour,

Pourquoi faire ?

Bonjour,

2 exemples parmi tant d'autres.

Cdlt.

pour MFerrand :

"parce que !!"

c'est pour créer ensuite un indicateur widget pour mentionner le pourcentage de remplissage d'une base de donnée. 100% étant l'objectif. Un peu comme sur des sites internet lorsque l'on annonce que tu as rempli 73% de ton profil (et qu'il en reste donc encore à remplir ...)

pour Jean-Eric :

Parfait, c'est exactement ça, merci pour la rapidité !!

Je m'explique !!! Je réponds si je trouve utile ou intéressant et/ou rationnel, soit le sujet, soit de répondre.

Donc quand les éléments fournis ne me permettent pas de décider, je demande !

Là je t'aurais peut-être dit que deux formules suffisaient...

Mais tu as eu ta réponse ! Donc débat clôt.