Microsoft 365 formatage d'une suite de chiffres

vgendron

XLDnaute Barbatruc

• 21 Juin 2024

• #2

bonjour

dans ton exemple pour la ligne 3, ca vient d'ou la partie "BB : 9356518" ???

 

Vote positif 0 Vote négatif

C

Chapichapo

XLDnaute Junior

• 21 Juin 2024

• #3

bonjour
merci de votre réponse
en fait ce sont les chiffres que je dactylographie en fonction du problème et je dois les convertir en format de la cellule E5. En fait j'ai pas vu l'erreur cela doit être 00 aussi
Cordialement

 

Pièces jointes

• ClasseurAA.xlsx

  21.3 KB · Affichages: 10

Vote positif 0 Vote négatif

C

Chapichapo

XLDnaute Junior

• 24 Octobre 2024

• #4

Bonjour le forum
je reviens vers vous car j'ai un nombre sous le format :
00092201103
qui devrait se transformer avec la formule en AA: 000922-011.03
Or, les 0 s'effacent devant mais ils doivent rester.

Quelqu'un peut-il m'aider à adapter la formule pour que les 0 restent : je n'avais pas pensé à ce cas de figure.

Merci bcp de votre aide

PS je remets le fichier pour plus de facilité

 

Pièces jointes

• ClasseurAA (1).xlsx

  21.3 KB · Affichages: 6

Dernière édition: 24 Octobre 2024

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 24 Octobre 2024

• #5

Bonjour

dans ton fichier.. il est ou l'exemple que tu donnes?
sinon... pas bien compris, et pas cherché à comprendre la formule

VB:

=SI(B5="pp";"AA  : "&TEXTE(GAUCHE(C5;6);"000000000")&"-"&STXT(C5;7;3)&"."&DROITE(C5;2);SI(B5="PM";SI(NBCAR(C5)=9;"BCE : 0"&GAUCHE(C5;3)&"."&STXT(C5;4;3)&"."&DROITE(C5;3);"AVT : "&GAUCHE(C5;4)&"."&STXT(C5;5;3)&"."&DROITE(C5;3));""))

 

Vote positif 0 Vote négatif

C

Chapichapo

XLDnaute Junior

• 24 Octobre 2024

• #6

bj vgendron

Merci pour votre réponse rapide
je n'ai pas vu que l'exemple n'était pas repris

le voici

merci encore

 

Pièces jointes

• ClasseurAA (1) (2) (1).xlsx

  21.2 KB · Affichages: 5

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Accro

• 24 Octobre 2024

• #7

Hello,
sinon c'est faisable avec une fonction personnalisée qui utilise les expressions régulières :

VB:

Function FrmRegex(str1, str2) As String
Dim regex As Object
Dim output
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "(\d{6})(\d{2})(\d{3})"
output = regex.Replace(str1, "$1-$2.$3")
regex.Pattern = ".*(\d{7})$"
output = "AA : " + output + " BB : " + regex.Replace(str2, "$1")
Debug.Print output
FrmRegex = output
End Function

Sub TestFrmRegex()
  Debug.Print FrmRegex("40625017527", "1032946594-9356500")
End Sub

AA : 406250-17.527 BB : 9356500

Cliquez pour agrandir...

Je ne sais pas si on peut faire cela en formule avec les Regex de Excel 365 (que je n'ai pas)

Ami calmant, J.P

 

Vote positif 0 Vote négatif

C

Chapichapo

XLDnaute Junior

• 24 Octobre 2024

• #8

jurassic pork à dit:

Hello,
sinon c'est faisable avec une fonction personnalisée qui utilise les expressions régulières :

VB:

Function FrmRegex(str1, str2) As String
Dim regex As Object
Dim output
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "(\d{6})(\d{2})(\d{3})"
output = regex.Replace(str1, "$1-$2.$3")
regex.Pattern = ".*(\d{7})$"
output = "AA : " + output + " BB : " + regex.Replace(str2, "$1")
Debug.Print output
FrmRegex = output
End Function

Sub TestFrmRegex()
  Debug.Print FrmRegex("40625017527", "1032946594-9356500")
End Sub

Je ne sais pas si on peut faire cela en formule avec les Regex de Excel 365 (que je n'ai pas)

Ami calmant, J.P

Cliquez pour agrandir...

Un tout grand merci Jp mais là cela dépasse mes petites compétences. Je n'y comprends rien....
Mon souci si le nombre ne commence pas par 000 la formule de Vgendron fonctionne excellemment bien . Le problème se pose quand cela commence par 000, ces 000 s'effacent
Bien cordialement et merci

 

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Accro

• 24 Octobre 2024

• #9

Normalement si il doit y avoir toujours onze chiffres dans le premier nombre ce code fonctionne (des zéros sont rajoutés au début si il n'y a pas 11 chiffres) :

VB:

Function FrmRegex(str1, str2) As String
Dim regex As Object
Dim output
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "(\d{6})(\d{2})(\d{3})"
output = regex.Replace(Format(str1, "00000000000"), "$1-$2.$3")
regex.Pattern = ".*(\d{7})$"
output = "AA : " + output + " BB : " + regex.Replace(str2, "$1")
FrmRegex = output
End Function

Sub TestFrmRegex()
  Debug.Print FrmRegex("625017527", "1032946594-9356500")
End Sub

 

Pièces jointes

• ClasseurAA_JP.xlsm

  27.9 KB · Affichages: 1

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Octobre 2024

• #10

bonjour
pas sur d'avoir tout compris surtout l'intention

VB:

=SI(B3="pp";"AA:"&TEXTE(DROITE("000000" & C3;11);"00000-000.00")&" BB : " & DROITE(C4;NBCAR(C4)-TROUVE("-";C4;1)))

 

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Accro

• 25 Octobre 2024

• #11

Hello,
pour avoir un code fiable, il faudrait nous dire ce qu'il risque d'y avoir en entrée (des chiffres ? des chaînes ? l'un ou l'autre) et ce qu'on attend en sortie. Ou alors avoir différents exemples montrant ce qui peut arriver.
Ami calmant, J.P

 

Vote positif 0 Vote négatif

C

Chapichapo

XLDnaute Junior

• 25 Octobre 2024

• #12

Bonjour JP

Votre formule fonctionne parfaitement.

j'ai juste adapté le format de cellule en personnalisé en C3
Je n'ai plus de problème.

Encore un grand merci pour votre aide.
Belle journée !

 

Vote positif 0 Vote négatif

Solution