XL 2016 reclasser nombre cellule

[perrmi]

Bonjour à tous et toute
meilleurs vœux pour 2020

Petit problème pour ...moi
J’ai un nombre dans une cellule
Ex ; 01259035
J’aimerai l'arranger en commençant par le plus petit chiffre
Conditions : éliminer les 0
Et garder tous les autres chiffres même les doublons
Ce qui doit donner :
123559.
Autre exemple : 832111109
Ce qui donne =11112389
Merci à vous.

 

[M12]

Bonjour,

Avec une fonction personnalisée à mettre dans un module

Function TriCell(pNum As String, Optional pOrder As Boolean) As String
  Application.Volatile
  Dim xOutput As String
  For i = 1 To 9
    For j = 1 To UBound(VBA.Split(pNum, i))
      xOutput = IIf(pOrder, i & xOutput, xOutput & i)
    Next
  Next
  TriCell = xOutput
End Function

formule = TriCell(A1;0) --> tri ascendant
formule = TriCell(A1;1) --> tri descendant

 

[Staple1600]

Bonjour le fil

Glané dans mes archives, une formule matricielle
(donc à valider avec CTRL+SHIFT puis ENTREE)
=1*TEXTE(SOMME(PETITE.VALEUR(--STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1);LIGNE(INDIRECT("1:"&NBCAR(A1))))*10^(NBCAR(A1)-LIGNE(INDIRECT("1:"&NBCAR(A1)))));REPT("0";NBCAR(A1)))
Si on saisit 54321 en A1, avec cette formule en B1, on aura: 12345

 

[perrmi]

merci de cette solution
toutefois un peu hard pour moi avec le VB
En ce qui concerne les formules données ..je ne vois pas
merci

 

[Staple1600]

Re, Bonjour M12

Qu'est-ce qui ne fonctionne pas avec la formule proposée?
(Il faut valider la formule en matriciel comme indiqué dans mon précédent message)

 

[perrmi]

Bonjour le fil

Glané dans mes archives, une formule matricielle
(donc à valider avec CTRL+SHIFT puis ENTREE)
=1*TEXTE(SOMME(PETITE.VALEUR(--STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1);LIGNE(INDIRECT("1:"&NBCAR(A1))))*10^(NBCAR(A1)-LIGNE(INDIRECT("1:"&NBCAR(A1)))));REPT("0";NBCAR(A1)))
Si on saisit 54321 en A1, avec cette formule en B1, on aura: 12345

parfait pour moi
apres plusieurs essais cela fonctionne parfaitement meme sans formule matricielle
merci encore et bonne journée

 

[M12]

Re, Bonjour Staple1600,

Un exemple avec ma fonction

 

[perrmi]

merci super
encore chapeau

 

[perrmi]

par contre si maintenant je vaux extraire le chiffre central
ex nombre 13459 le 4 sera le nombre central a extraire
mais avec un nombre paire cela donnera
ex 145988 nous avons dans ce cas 2 nombres le 5 et 9
nouveau probleme
merci

 

[Staple1600]

Re

Qui dit nouveau problème, dit nouvelle discussion
(C'est ce préconise la charte du forum en tout cas )