Tri croissant dans une cellule

[Claude]

Bonjour le Forum,

Dans les cellules de A4 :A13 j’ai des valeurs affichées que je récupère toutes en
en désordre dans la cellule A16.
Comment faire avec une formule un tri croissant de ces valeurs dans la cellule A24 avec des espaces réguliers ?

Ci-joint le travail.

Merci de me renseigner.

Claude

 

[Roland_M]

Re : Tri croissant dans une cellule

bonjour

voir avec création d'une liste que tu peux trier !

 

[mth]

Re : Tri croissant dans une cellule

Bonjour le forum 🙂

Bonjour Claude,

Ci-joint un petit essai, pas forcément très élégant mais qui peut peut-être te dépanner, en attendant que les Vbaistes passent par là .... 🙂

@ +

mth

Edit: Oups, pas rafraichi à temps.... bonjour Roland 🙂
Edit 2: Bonjour JP14, une belle leçon de vba 🙂, merci à toi 🙂

 

[jp14]

Re : Tri croissant dans une cellule

Bonjour

Ci joint le fichier avec une fonction personnalisée.

Principe
Suppression des espaces au début et en fin (Trim)
Un seul espace entre les données ( replace)
Recherche des valeurs pour les inscrire dans un tableau (mid)
Tri du tableau ou matrice colonne par permutation
Reconstitution du résultat

A tester

JP

 

[skoobi]

Re : Tri croissant dans une cellule

Bonjour tout le monde,

Ci-joint une autre proposition, en partant directement de la plage A3:A13.

 

[Claude]

Re : Tri croissant dans une cellule

Bonjour Roland M, mth, jp14, skoobi,

Merci de vous être penché sur mon problème.
J'ai un tout petit peu remanié avec la fonction SUPPRESPACE en A16
J'ai donc :
11 13 19 22 32 35 39 24 16 42
avec des espaces réguliers
qu'il faudrait trier en ordre croissant.

Dans les 2 cas de macro, jp14 et sckoobi, j'ai le message suivant :
"Erreur de compilation
sub ou fonction non définie "

Voici à nouveau le travail joint

Avec mes remerciements. Amicalement.

Claude

 

[BOISGONTIER]

Re : Tri croissant dans une cellule

Bonjour,

Excel 2000+

Function TriCell(champ)
  For Each c In champ
    temp = temp & " " & c
  Next
  temp = Split(temp, " ")
  '----  tri
  For i = LBound(temp) To UBound(temp)
     For j = i To UBound(temp)
        If temp(j) < temp(i) Then
          temporary = temp(j)
          temp(j) = temp(i)
          temp(i) = temporary
        End If
     Next j
  Next i
  TriCell = Trim(Join(temp, " "))
End Function


JB
http://boisgontierjacques.free.fr

 

[Claude]

Re : Tri croissant dans une cellule

Bonjour BOISGONTIER,
Bonjour le Forum,

J'ai toujours le message " erreur de compilation sub ou fonction non définie"

merci de ton aide.

Amicalement. Claude

 

[skoobi]

Re : Tri croissant dans une cellule

Re bonjour,

En l'absence de JB, je me permet de répondre.
Je suppose que tu as le message d'erreur sur ton fichier.
As-tu mis le code du fichier de BOISGONTIER dans un module comme dans l'exemple qu'il a joint?
Il s'agit d'une fonction personnalisée.

 

[Claude]

Re : Tri croissant dans une cellule

Bonjour Skoobi, Bonjour le Forum

Oui le code de Boisgontier est dans le module 1.
Ca ne marche pas ! peut-être que c'est mon Excel 97 ?!

Merci

Amicalement. claude

 

[skoobi]

Re : Tri croissant dans une cellule

Re bonjour,

oui je pense car il me semble que la fonction VBA "Split" n'existe pas sous excel 97.

 

[Claude]

Re : Tri croissant dans une cellule

Salut Skoobi, Bonjour le Forum,

C'est exactement ça. Ca bloque au niveau de la fonction "Split"
le déboguer le met en évidence.

Merci beaucoup

Amicalement. Claude

 

[BOISGONTIER]

Re : Tri croissant dans une cellule

Bonjour,

Version 97 (non testé)

JB

 

[Claude]

Re : Tri croissant dans une cellule

Salut à tous,
Bonsoir BOISGONTIER,

Je te remercie vivement d'être revenu sur mon problème.
Finalement, j'ai installé Office 2003.
Ta macro fonctionne bien dans l'exemple. Mais lorsque je l'adapte à mon travail elle fonctionne mal.
Par exemple dans mon travail l'opération doit s'effectuer en CL3:CL13
En CL7 j'ai 7 15 31
En CL13 j'ai 27 33
En CL16 j'ai 7 15 31 27 33
Résultat du tri de CL16 : 15 27 31 33 7 !!!
j'ai recopié ta macro dans un module.

Amicalement. Claude

 

[BOISGONTIER]

Re : Tri croissant dans une cellule

Bonjour,

Voir PJ

JB