Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = Replace(ActiveCell.Address, "$", "") & " contient " & Len(CStr(ActiveCell.Value)) & " caractères(s)"
End Sub
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