XL 2016 reclasser nombre cellule

M12

XLDnaute Accro

• 12 Janvier 2020

• #2

Bonjour,

Avec une fonction personnalisée à mettre dans un module

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Janvier 2020

• #3

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

 

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 12 Janvier 2020

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Janvier 2020

• #5

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)

 

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 12 Janvier 2020

• #6

Staple1600 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 12 Janvier 2020

• #7

Re, Bonjour Staple1600,

Un exemple avec ma fonction

 

Pièces jointes

• perrmi.xlsm

  19.8 KB · Affichages: 6

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 12 Janvier 2020

• #8

merci super
encore chapeau

 

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 12 Janvier 2020

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Janvier 2020

• #10

Re

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

 

Vote positif 0 Vote négatif