Discussion :

[skaz26]

Bonjour le Forum !

Je voudrais savoir si il est possible de trouver la chaine de caractère la plus longue dans une sélection (contenant plusieurs cellules) ?
Merci d'avance

[rvtoulon]

bonjour un essai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
j = 0
 
For Each c In Selection
    i = Len(c.Value)
    If i > j Then
        j = i
        vadresse = c.Address
    End If
Next c
 
MsgBox "la chaine la  plus longue est " & Range(vadresse).Value

[gFZT82]

Bonjour,

Une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim Cel As Range
Dim Maxi As Long
Dim Ad As String
    If Application.CountA(Selection) > 0 Then
        For Each Cel In Selection
            If Len(Cel) > Maxi Then
                Maxi = Len(Cel.Value)
                Ad = Cel.Address
            End If
        Next Cel
        MsgBox "Le texte le plus long se trouve en " & Ad & " (" & Maxi & " caractères)"
    End If
End Sub

Cordialement.

EDIT : Bonjour Hervé

[skaz26]

Merci à vous pour cette réponse rapide, exactement ce qu'il me fallait !