Plus longue chaine de caracteres

[rubio torres]

Bonsoir à tous et bon week end.
Je dois avoir les neurones en panne ce soir.
L'un de vous pourrait-il m'aider à trouver un code qui me permetterais de trouver la plus grande chaine de caracteres d'une sélection?
Merci à vous
@+
Art

 

[Robert]

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

 

[Jean-Marie]

Bonsoir

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

=MAX(NBCAR(A1:A100))

@+Jean-Marie

 

[rubio torres]

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