Plus longue chaine de caracteres

Bonsoir Rubio, bonsoir le forum,

Je pense que ce code devrait convenir. Sélectionne la plage et lance la macro ci-dessous.

Public Sub chainlong()
l = Len(ActiveCell)
For Each cel In Selection
If Len(cel) > l Then
l = Len(cel)
ad = cel.Address
End If
Next cel
On Error GoTo suite
Range(ad).Select
Exit Sub
suite:
ActiveCell.Select
End Sub

À plus,

Robert

Bonsoir

Avec une formule matricielle, à valider par Ctrl+Shift+Entrer

=MAX(NBCAR(A1:A100))

@+Jean-Marie

Bonjour à tous, bonjour Robert, bonjour Jean-Marie.
Merci à vous, grace à cette macro et à cette formule, j'ai tout ce qu'il me faut pour continuer mon boulot.
Merci encore
@+
Art