Tri par ordre alphabétique au sein d'une même cellule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion eramond
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

eramond

XLDnaute Junior
Bonjour

Je souhaite trier le contenue d'une cellule par ordre alphabétique, est ce possible?

Exemple si C2 contient:
Thierry
Bernard

Après la macro

C2 =
Bernard
Thierry


Merci
 
Dernière édition:
Trier par date Trier par votes
Re : Tri par ordre alphabétique au sein d'une même cellule

Merci j'ai fait ceci mais cela ne fonctionne pas

PHP: 
Sub Test2()
 Application.ScreenUpdating = False
Dim WsS As Worksheet, WsC As Worksheet
Dim TWorkon As Range, TDévia As Range
Dim Position As Integer, MemoPos As Integer
    Set WsS = Worksheets("Workon")
    Set WsC = Worksheets("Data-Deviations")
   
    Sheets("Data-Deviations").Activate
 Range("AI2:AI1000000").ClearContents
 
  TDévia = WsC.Range("AG2:AH" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
TWorkon = WsC.Range("AG2:AG" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
For Ld = 1 To UBound(TDévia)
   mempos = 1000
   For Lw = 1 To UBound(TWorkon)
      Position = InStr(TDévia(Ld, 1), TWorkon(Lw, 1))
      If Position > 0 Then
              If TDévia.Offset(0, 2) <> "" And InStr(TDévia.Offset(0, 2), TWorkon.Offset(0, 1)) = 0 Then
                ' ligne And InStr(TDévia.Offset(0, 2), C.Offset(0, 1)) = 0 supprime doublon
                If Position < MemoPos Then
                        MemoPos = Position
                        TDévia.Offset(0, 2) = TWorkon.Offset(0, 1) & Chr(10) & TDévia.Offset(0, 2)
                    Else
                        TDévia.Offset(0, 2) = TDévia.Offset(0, 2) & Chr(10) & TWorkon.Offset(0, 1)
                    End If
                Else
                    TDévia.Offset(0, 2) = TWorkon.Offset(0, 1)
                    MemoPos = Position
                End If
            End If
        Next TWorkon
    Next TDévia
    Set WsC = Nothing: Set WsS = Nothing
    Application.ScreenUpdating = True
    
End Sub
 
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Il n'y a pas à utiliser Offset sur des tableaux: c'est TDévia(Ld, 2) pour avoir la colonne juste à droite de TDévia(Ld, 1)
Pensez à récupérer au début le nombre de colonnes qu'il faut pour ne pas avoir d'Indice en dehors de la plage.
Prévoyez un tableau résultant supplémentaire.

Ah et puis surtout, c'est pas Dim TWorkon As Range, TDévia As Range
C'est Dim TWorkon(), TDévia()
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Merci

Mais xls me dit qu'il attend un tableau après UBound je ne comprends pas.

PHP: 
ub Test2()
 Application.ScreenUpdating = False
Dim WsS As Worksheet, WsC As Worksheet
Dim TWorkon As Range, TDévia As Range
Dim Position As Integer, MemoPos As Integer
    Set WsS = Worksheets("Workon")
    Set WsC = Worksheets("Data-Deviations")
    
    Sheets("Data-Deviations").Activate
 Range("AI2:AI1000000").ClearContents
  
  TDévia = WsC.Range("AG2:AH" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
TWorkon = WsC.Range("AG2:AG" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
For Ld = 1 To UBound(TDévia)
   mempos = 1000
   For Lw = 1 To UBound(TWorkon)
      Position = InStr(TDévia(Ld, 1), TWorkon(Lw, 1))
      If Position > 0 Then
              If TDévia(Ld, 2) <> "" And InStr(TDévia(Ld, 2), TWorkon(Lw, 1)) = 0 Then
                ' ligne And InStr(TDévia.Offset(0, 2), C.Offset(0, 1)) = 0 supprime doublon
                If Position < MemoPos Then
                        MemoPos = Position
                       TDévia(Ld, 2) = TWorkon(Lw, 1) & Chr(10) & TDévia(Ld, 2)
                    Else
                        TDévia(Ld, 2) = TDévia(Ld, 2) & Chr(10) & TWorkon(Lw, 1)
                    End If
                Else
                    TDévia(Ld, 2) = TWorkon(Lw, 1)
                    MemoPos = Position
                End If
            End If
        Next TWorkon
    Next TDévia
    Set WsC = Nothing: Set WsS = Nothing
    Application.ScreenUpdating = True
     
End Sub
 
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Oui je viens de voir ça. Voir dernier Edit poste précédent.
Mais il ne faut plus empiler le résultat dans TDévia
C'est Ajouter LeTexte
et à la fin de la boucle TRésu(Ld, 1) = RésultatCellClassé
avec TRésu aussi déclaré TRésu() et ayant fait l'objet d'une instruction Redim TRésu(1 to Ubound(TDévia), 1 to 1)
et tout à la fin affecter LaCelluleDeDépart.Resize(Ubound(TRésu)).Value = TRésu
Rappel: plus besoin d'éviter d'empiler les doublons parce que mon dernier RésultatCellClassé les élimine.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Merci, cela ne fonctionne pas 😕

PHP: 
Sub Test2()
 Application.ScreenUpdating = False
Dim WsS As Worksheet, WsC As Worksheet
Dim TWorkon As Range, TDévia As Range, TRésu As Range
Dim Position As Integer, MemoPos As Integer
    Set WsS = Worksheets("Workon")
    Set WsC = Worksheets("Data-Deviations")
     
    Sheets("Data-Deviations").Activate
 Range("AI2:AI1000000").ClearContents
   
  TDévia = WsC.Range("AG2:AH" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
TWorkon = WsC.Range("AG2:AG" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
For Ld = 1 To UBound(TDévia)
ReDim TRésu(1 To UBound(TDévia), 1 To 1)
   mempos = 1000
   For Lw = 1 To UBound(TWorkon)
      Position = InStr(TDévia(Ld, 1), TWorkon(Lw, 1))
      If Position > 0 Then
              If TDévia(Ld, 2) <> "" And InStr(TDévia(Ld, 2), TWorkon(Lw, 1)) = 0 Then
                ' ligne And InStr(TDévia.Offset(0, 2), C.Offset(0, 1)) = 0 supprime doublon
                If Position < MemoPos Then
                        MemoPos = Position
                       TDévia(Ld, 2) = TWorkon(Lw, 1) & Chr(10) & TDévia(Ld, 2)
                    Else
                        TDévia(Ld, 2) = TDévia(Ld, 2) & Chr(10) & TWorkon(Lw, 1)
                    End If
                Else
                    TDévia(Ld, 2) = TWorkon(Lw, 1)
                    MemoPos = Position
                End If
            End If
        Next TWorkon
    Next TDévia
    TRésu(Ld, 1) = RésultatCellClassé
    Set WsC = Nothing: Set WsS = Nothing
    CelluleDeDépart.Resize(UBound(TRésu)).Value = TRésu
    Application.ScreenUpdating = True
      
End Sub
 
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Mais le TRésu c'est pour toute la colonne, évidemment, il ne faut pas refaire un Redim dessus à chaque passage dans la boucle ! juste une fois après l'initialisation de TDévia.
Après c'est que je ne sais pas exactement ce que vous voulez faire, je n'y comprends rien, mais il me semble que vous testez toujours encore pour rien s'il y est déjà.
Et ce n'est pas Next TWorkon et TDévia mais Next Lw et Ld. Et il faut faire le TRésu(Ld, 1) = RésultatCellClassé juste avant.
Mais vous n'avez pas fait d'appel à la Sub Ajout pour remplir le tableau qui est ensuite restitué classé et sans doublon par RésultatCellClassé.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Ok, excusez mais je suis ultra débutant dans vba.

Voici ce que fait ma macro

1. Ma macro test va chercher les mots clés dans la feuille Data-Deviations colonne AG
2. elle compare les mots grâce à la matrice présent en colonne S&T de la feuille Workon
3. elle les renvoie en colonne AI de la feuille Data-Deviations
4. elle supprime les valeurs en double au sein même des cellules de la colonne AI.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Bon mais alors je ne comprends pas comment il peut y en avoir plusieurs car il n'y a qu'un texte dans la colonne AG
Ah c'est parce qu'il peut y être plusieurs fois en S de Workon avec des valeurs différentes de T qu'il faut restituer, c'est ça ?
Bon ben alors eqssayez comme ça :
VB: 
Sub Test()
Application.ScreenUpdating = False
Dim WsS As Worksheet, WsC As Worksheet, TDévia(), Ld&, TWorkon(), Lw&, TRésu()
Set WsS = Worksheets("Workon")
Set WsC = Worksheets("Data-Deviations")
TDévia = WsC.Range("AG2:AG" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
ReDim TRésu(1 To UBound(TDévia), 1 To 1)
TWorkon = WsS.Range("S2:T" & WsS.Range("S" & Rows.Count).End(xlUp).Row).Value
For Ld = 1 To UBound(TDévia)
   For Lw = 1 To UBound(TWorkon)
      If InStr(TDévia(Ld, 1), TWorkon(Lw, 1)) > 0 Then Ajouter TWorkon(Lw, 2)
      Next Lw
   TRésu(Ld, 1) = RésultatCellClassé: Next Ld
WsC.[AI].Resize(UBound(TRésu)).Value = TRésu
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Exact pour plusieurs mots clés en colonne S je renvoie la même valeur en colonne T.

Donc si ma phrase en colonne AG contient plusieurs mots clés qui ont la même valeur en colone T, je ne veux afficher qu'une seule fois cette valeur.

J'essaye votre code tout de suite.
 
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Visiblement j'ai un problème avec Ajouter ici

PHP: 
  If InStr(TDévia(Ld, 1), TWorkon(Lw, 1)) > 0 Then Ajouter TWorkon(Lw, 2)

J'ai une pop up erreur de compilation SUb ou Function non définie.
 
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Attention j'avais oublié de remettre les Set WsS et WsC. C'est que moi je n'ai pas l'habitude car je trouve plus commode d'utiliser les noms d'objets Worksheet connus du projet VBA de la rubrique Microsoft Excel Objets
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

J'ai modifié oui mais j'ai toujours ce problème de fonction ajouter non définie

PHP: 
Sub Test()

Application.ScreenUpdating = False
Dim WsS As Worksheet, WsC As Worksheet, TDévia(), Ld&, TWorkon(), Lw&, TRésu()
Set WsS = Worksheets("Workon")
Set WsC = Worksheets("Data-Deviations")
TDévia = WsC.Range("AG2:AG" & WsC.Range("AG" & Rows.Count).End(xlUp).Row).Value
ReDim TRésu(1 To UBound(TDévia), 1 To 1)
TWorkon = WsS.Range("S2:T" & WsS.Range("S" & Rows.Count).End(xlUp).Row).Value
For Ld = 1 To UBound(TDévia)
   For Lw = 1 To UBound(TWorkon)
      If InStr(TDévia(Ld, 1), TWorkon(Lw, 1)) > 0 Then Ajouter TWorkon(Lw, 2)
      Next Lw
   TRésu(Ld, 1) = RésultatCellClassé: Next Ld
WsC.[AI].Resize(UBound(TRésu)).Value = TRésu
Application.ScreenUpdating = True

  
End Sub
 
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

J'ai rajouter ce module mais visiblement il a en manque un autre?

Que veux dire le ByVal on passe l'argument sous forme de valeur?

Je suis un peu perdu 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tri par ordre alphabétique au sein d'une même cellule

Un autre quoi ? Une autre procédure ? La Function RésultatCellClassé ? Le module de classe TableIndex ?
Joignez le classeur, que je voie ce qui manque.
Que veux dire le ByVal on passe l'argument sous forme de valeur?
Cliquez pour agrandir...
Oui, c'est ça.
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
284
Dranreb
Dranreb
K
  • Résolu(e)
XL 2013 Problème de tri alphabétique avec scripting dictionary
2
Réponses
16
Affichages
351
ChTi160
ChTi160
K
  • Question Question
Problème de tri alphabétique sur scripting dictionary
Réponses
2
Affichages
110
kiko_23
K
N
  • Résolu(e)
Microsoft 365 Trie croissant par ligne
Réponses
4
Affichages
96
sylvanu
sylvanu
F
  • Résolu(e)
Fredprof
Réponses
2
Affichages
415
Fredprof
F
B
  • Question Question
XL 2019 trouver le plus grand numéro
Réponses
11
Affichages
477
Blafi
B
F
  • Question Question
Microsoft 365 tri dans Excell
2
Réponses
19
Affichages
614
JHA
J
Y
  • Question Question
XL 2021 Liste déroulante filtrée par les 2 premiers caractères
2
Réponses
28
Affichages
526
Dudu2
Dudu2
B
  • Question Question
XL 2021 Tri alphabétique dans une cellule
Réponses
5
Affichages
583
Baldur
B
H
  • Question Question
tri dates par noms
Réponses
4
Affichages
317
HPR
H
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
188
Paulle
P
S
  • Question Question
Power Query tri powerquery
Réponses
9
Affichages
988
JFL_XLD
J
E
  • Résolu(e)
Microsoft 365 Report d'une cellule
2
Réponses
17
Affichages
261
sylvanu
sylvanu
A
  • Question Question
Microsoft 365 Déplacer sans trier
Réponses
6
Affichages
231
sylvanu
sylvanu
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
924
fanfan38
fanfan38
G
  • Résolu(e)
XL 2019 Trier par ordre alphabétique de gauche à droite
Réponses
7
Affichages
468
Goffy
G
A
  • Question Question
XL 2019 Additionner des cellules espacées d'une valeur constante
2
Réponses
17
Affichages
420
Astyanax
A
O
  • Résolu(e)
XL 2013 Formule qui isole 1 donnée d'une cellule
Réponses
4
Affichages
97
onyirimba
O
kaki31
  • Question Question
XL 2013 Couleur doublons
Réponses
7
Affichages
165
kaki31
kaki31
J
  • Question Question
Autres Extraire chaque mot d'une phrase dans plusieurs cellule en colonne même ligne
2
Réponses
17
Affichages
272
jmst1
J
Retour