Microsoft 365 barre d'état - affichage

[Bichette001]

bonjour
ds ma barre d'état le nb et la somme st pourtant cochés mais ils ne sont pas affichés lorsque je sélectionne des celulles?
merci Bichette

 

[job75]

Bonjour Bichette001,

Cocher quoi ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = "Nombre " & Target.Count & " Somme " & Application.Sum(Target)
End Sub

A+

 

[vgendron]

Bonjour

tes cellules ne contiennent sans doute pas de nombre mais du texte

 

[Bichette001]

merci c'était bien mon pb il n'affichait pas NB mais désormais c'est ok
merci à vous

 

[job75]

Bonjour vgendron,

Effectivement il peut y avoir des nombres sous forme de textes alors utilisez :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range, v#
Set r = Intersect(Target, UsedRange)
If Not r Is Nothing Then
    For Each r In r
        If IsNumeric(CStr(r)) Then v = v + CDbl(r)
    Next
End If
Application.StatusBar = "Nombre " & Target.Count & " Somme " & v
End Sub