Ajout de préfixe plus limitation de caractère
Résolu/Fermé
A voir également:
- Ajout de préfixe plus limitation de caractère
- Caractère ascii - Guide
- Caractere speciaux - Guide
- Caractère spéciaux - Guide
- Prefixe france - Guide
- Caractère spéciaux mac clavier - Guide
3 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
14 mars 2016 à 11:28
14 mars 2016 à 11:28
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
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
14 mars 2016 à 11:41
14 mars 2016 à 11:41
Pour récupérer les numéros:
traitez votre champ avec la formule
copier les résultats et soit sur la même colonne, soit sur une autre:
clic droit / collage spécial / et cochez "valeur"
vous aurez les textes sans les formules dans cette colonne
crdlmnt
traitez votre champ avec la formule
copier les résultats et soit sur la même colonne, soit sur une autre:
clic droit / collage spécial / et cochez "valeur"
vous aurez les textes sans les formules dans cette colonne
crdlmnt
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
