Copier une valeur

Bonjour

Je voudrais récupérer la valeur qui se trouve en bas de la barre d'Excel :

Ici la valeur : 222

Merci

Bonsoir,

La fonction NBVAL devrait faire l'affaire.

Par exemple =NBVAL(B2:B2000)

Cordialement.

Merci

non cela ne fct pas.

Erreur de compilation Sub ou function non definie

alors j'ai trouvé un code qui m'affiche bien la valeur : 222

On Error Resume Next
MsgBox "nb cellules concernées: " _
& Chr(10) & "Numer. :" & vbTab & Application.Subtotal(2, Selection)

Maintenant je voudrais récupérr cette valeur : 222 qui se trouve dans se code.

trouvé, tout simplement :

x = Application.Subtotal(2, Selection)