Récupérer la cellule qui a le plus de caractère dans une colonne

Re,

Je veux récupérer la cellule qui a le plus de caractère dans une colonne B comment je peux faire ça .

merci pour votre aide.

Bonjour,

une solution avec macro

Dim nb As Integer
nb = 0
For i = 1 To Range("a65000").End(xlUp).Row
    If Len(Cells(i, 1)) > nb Then nb = Len(Cells(i, 1))
Next i

Cordialement

Merci pour ta proposition mais ce bou de code m'affiche rien.

Bonjour,

Pour retrouver la valeur, il faut compter les caractères avec NBCAR. Or cette fonction ne prend en compte qu'une seule cellule. Aussi, je te conseille de valider les formules matricielles suivantes en appuyant MAJ CTRL et ENTREE

La première valeur la plus grande :

=INDEX(B:B;EQUIV(MAX(NBCAR(B:B));NBCAR(B:B);0))

L'adresse de la cellule :

=ADRESSE(EQUIV(MAX(NBCAR(B:B));NBCAR(B:B);0);2;1)

Bonjour,

J'arrive trop tard ! Pas mieux !

@ bientôt

LouReed

Merci pour ta proposition mais je mets aussi l'adresse de la cellule ou pas.

Ofet ici j'ai par exemple F1, F12, F58 et je veux qui m’envoie F58

merci

Bonjour,

j'avais oublié une ligne

Dim nb As Integer
nb = 0
For i = 1 To Range("a65000").End(xlUp).Row
    If Len(Cells(i, 1)) > nb Then nb = Len(Cells(i, 1))
Next i
msgbox n b

Même si une formule semble plus adapté

Bonjour le forum,

Merci pour ta proposition mais je ne connais pas la formule.

ce code là

Dim nb As Integer
nb = 0
For i = 1 To Range("a65000").End(xlUp).Row
    If Len(Cells(i, 1)) > nb Then nb = Len(Cells(i, 1))
Next i
msgbox n b

m'affiche le numéro 16 ce qui est faux car j'ai 200 et quelque dans ma liste.

Merci pour ta proposition.

Re,

j'ai 200 et quelque dans ma liste.

c'est une liste de nombre ou de caractère ?

Mon code te retourne le nombre de caractère de la valeur la plus longue (et non pas grande) de la liste.

Peut être que c'est que tu n'as pas adapté le code ?

Range("B65000")
If Len(Cells(i, 2)) > nb Then nb = Len(Cells(i, 2))

à la place de

Range("a65000")
If Len(Cells(i, 1)) > nb Then nb = Len(Cells(i, 1))

Cordialement

C'est une liste de caractère et de chiffre par exemple F1, F2 ,F15, F125, F265 ainsi de suite... je veux qui me renvoie le plus grand F265. et ce code m'envoi 16.

Bonjour,

alors il aurait peut-être fallu appliquer le point 6 des bonnes pratique du forum...

@ bientôt

LouReeD

Bonjour,

Dim nb As Integer
nb = 0
For i = 1 To Range("B65000").End(xlUp).Row
        nbLettre = Len(Cells(i, 2))
        If Right(Cells(i, 2), nbLettre - 1) > nb Then
            nb = Right(Cells(i, 2), nbLettre - 1)
        End If
Next i
MsgBox "F" & nb

Normalement, ça devrait correspondre à ce que tu recherches.

Le prochaine fois essaye d'être le plus clair possible dans ton message de départ, tout le monde y sera gagnant

Cordialement

d'accord merci.