Classer par ordre alphabétique dans 1 cellule des noms séparés par ","

Bonjour au forum,

Je cherche à classer par ordre alphabétique dans une même cellule des noms ajoutés à la suite par un userform.

Dans l'exemple ci-joint, j'aimerais que les noms en cellule C3 soient classés par ordre alphabétique... Dur dur !

Merci pour vos idées !

9fof.xlsm (23.41 Ko)

Bonjour,

Ci-joint ton fichier test ...

En espérant que cela t'aide ...

Wouah James007, merci beaucoup... C'est parfait !

Ça fait une semaine que je me prends la tête là-dessus

Excellentes fêtes de fin d'année à toi et au forum

Wouah James007, merci beaucoup... C'est parfait !

Ça fait une semaine que je me prends la tête là-dessus

Excellentes fêtes de fin d'année à toi et au forum

Content que cela puisse t'aider ...

Merci ... pour tes Remerciements

ET pour le coeur

coeur

Excellentes Fêtes à toi aussi ...

Bonsoir, Salut James !

Intégré à ton Userform...

Dim sign

Private Sub Sign_Button_Click()
    Dim i%, j%
    sign = sign & ", " & CBVisa.Value
    sign = Split(sign, ", ")
    If UBound(sign) > 1 Then
        For i = 1 To UBound(sign) - 1
            For j = i + 1 To UBound(sign)
                If sign(j) < sign(i) Then
                    sign(0) = sign(j): sign(j) = sign(i): sign(i) = sign(0)
                End If
            Next j
        Next i
        sign(0) = ""
    End If
    sign = Join(sign, ", ")
    Range("B3").Value = Replace(sign, ", ", "", 1, 1)
    CBVisa.ListIndex = -1
End Sub

On pourrait faire mieux, si tu étoffais ton Userform pour y afficher les signatures, et ne valider qu'une fois la totalité des signataires rassemblés...

En prime une petite amélioration de ton initialize :

Private Sub UserForm_Initialize()
    Dim dl As Integer
    With Sheets("BD")
        dl = .Range("A" & .Rows.Count).End(xlUp).Row
        CBVisa.List = .Range("A2:A" & dl).Value
    End With
End Sub

Cordialement.

8nrev94-fof.xlsm (23.01 Ko)

Bonsoir, oui comme remplacer le combobox par une liste avec choix multiple et valider la signature à l'issue...

C'est troublant, au début je ne voyais pas l'ordre correcte, mais comme c'est du texte avec du numérique il est évident que "Nom24" est avant "Nom3" ! Par contre n'y a t il pas une erreur ? le Nom1 est amputé pour se retrouver en m1...

vbMBHB

Salut MFerrand !

Il n'y a que du positif à rationaliser les choses à la base ...

Oups, c'est simplement un problème de formule en C3 ! donc on oublis l'amputation !

vbMBHB

Bonjour à tous,

Désolé pour le temps de réponse...

Merci pour ces propositions, conseils et améliorations, je vais étudier tout ça...

Une très bonne année à vous !

Bonne année à vous également !

vbMBHB

Rechercher des sujets similaires à "classer ordre alphabetique noms separes"