Microsoft 365 formatage d'une suite de chiffres

[Chapichapo]

bonjour le forum

j'essaie de formater une suite de chiffres mais je n'y arrive pas.

quelqu'un peut-il regarder le fichier joint ?

merci de votre aide

 

[vgendron]

bonjour

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

 

[Chapichapo]

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

 

[Chapichapo]

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é

 

[vgendron]

Bonjour

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

=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));""))

 

[Chapichapo]

bj vgendron

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

le voici

merci encore

 

[jurassic pork]

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

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

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

 

[Chapichapo]

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

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

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

 

[jurassic pork]

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) :

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

 

[patricktoulon]

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

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

 

[jurassic pork]

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

 

[Chapichapo]

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 !