XL 2016 NBcar dans barre d'état

[jeffe]

Bonjour le forum, est il possible d'afficher dans le barre d'état le nombre de caractères des cellules sélectionnées?
merci

 

[Dudu2]

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.StatusBar = Replace(ActiveCell.Address, "$", "") & " contient " & Len(CStr(ActiveCell.Value)) & " caractères(s)"
End Sub

 

[JHA]

Bonjour à tous,

Si il y a une formule, avec la touche "F9", tu auras le résultat de cette formule.

JHA

 

[sylvanu]

Bonjour Jeffe, Dudu, JHA,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:Z100")) Is Nothing Then
        If Target = "" Then
            Application.StatusBar = "La cellule " & Target.Address & " ne contient aucun caractère."
        Else
            Application.StatusBar = "La cellule " & Target.Address & " contient " & Len(Target) & " caractères."
        End If
    End If
Fin:
End Sub

 

[jeffe]

Bonjour à vous c'est super merci beaucoup, en plus cela fonctionne même pours les espaces,
merci, jf