Ajout de préfixe plus limitation de caractère
Résolu
Raphii
-
Raphii -
Raphii -
Bonjour,
Je suis à la recherche d'une formule qui permet de limiter à 13 caractères + ajouter un préfixe et de remplacer le vide par des 0
Exemple :
Je tape dans ma case 68147 et il doit me sortir DTR0000068147
Il serait bien d'avoir les 0 en automatique aussi.
Car le numéros du produit varie. il peut avoir 6 chiffres aussi
DTR0000318147 ou encore DTR0025568147.
J'ai déjà essayé de concaténer mais ça ne m'aide pas pour les 0
En vous remerciant
Je suis à la recherche d'une formule qui permet de limiter à 13 caractères + ajouter un préfixe et de remplacer le vide par des 0
Exemple :
Je tape dans ma case 68147 et il doit me sortir DTR0000068147
Il serait bien d'avoir les 0 en automatique aussi.
Car le numéros du produit varie. il peut avoir 6 chiffres aussi
DTR0000318147 ou encore DTR0025568147.
J'ai déjà essayé de concaténer mais ça ne m'aide pas pour les 0
En vous remerciant
A voir également:
- Ajout de préfixe plus limitation de caractère
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Prefixe france - Guide
- Caractere speciaux - Guide
- Caractere vide - Guide
3 réponses
Bonjour
essayez ceci:(à vérifier selon vos cas de figure)
="DTR"&TEXTE(A1;"0000000000")
(avec 10 zéros entre guillemets)
crdlmnt
essayez ceci:(à vérifier selon vos cas de figure)
="DTR"&TEXTE(A1;"0000000000")
(avec 10 zéros entre guillemets)
crdlmnt
C'est super ça marche Merci !
Mais les données ne sont pas exploitable si on double clique pour récupérer le numéros
Mais les données ne sont pas exploitable si on double clique pour récupérer le numéros
Je me suis crée une marco pour m'aider et ça marche
Sub macro1()
'
' macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+e
'
Columns("D:D").Select
Selection.Copy
Columns("E:E").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E5").Select
End Sub
Sub macro1()
'
' macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+e
'
Columns("D:D").Select
Selection.Copy
Columns("E:E").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E5").Select
End Sub
