Ajout de caractères différents avant une virgule dans excel

Résolu/Fermé
tibo20100 - 17 sept. 2013 à 18:31
ccm81 Messages postés 10904 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 décembre 2024 - 18 sept. 2013 à 14:32
Bonjour,

Je souhaite intégrer des lettres différentes à la fin de chiffres dans la même cellule..

ex: 51785962,51785962,51785962,51785962,51785962,51785962,

je dois obtenir : 51785962B,51785962C,51785962D,51785962E,51785962F,51785962G

Merci d'avance de vos réponses.

Bonne soirée



A voir également:

5 réponses

ccm81 Messages postés 10904 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 décembre 2024 2 428
Modifié par ccm81 le 17/09/2013 à 18:58
Bonjour,

Sans macro je ne vois pas (mais il y aura certainement des propositions)
avec macro

Const premlettre = 65     ' lettre A ( 66 pour B, 67 pour C, etc ...)

Public Function AddLettre(s As String) As String
Dim pv As Long, nbv As Long
pv = InStr(1, s, ",")
nbv = 0
While pv <> 0
s = Left(s, pv - 1) & Chr(premlettre + nbv) & Right(s, Len(s) - pv + 1)
pv = InStr(pv + 2, s, ",")
nbv = nbv + 1
Wend
AddLettre = s & Chr(premlettre + nbv)
End Function

bonne suite
0
Merci beaucoup,

Malheureusement pour moi les macros ne sont bon qu'avec une sauce moutarde....

Je suis conscient que ce que je demande n'est pas simple mais c'est gentil à vous de m'avoir répondu aussi vite.

Cdt
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
Modifié par Gyrus le 17/09/2013 à 19:46
Bonjour,

Avec le chiffre 51785962 dans la colonne A
Tu places en B1 la formule =A1 & CAR(LIGNE()+65)
puis tu copies vers le bas.

Ewemple
https://www.cjoint.com/?CIrtTxDY4Ph

A+
0
En réalité les chiffres se trouvent dans une seule et même cellule c'est là toute la difficulté de l'histoire.
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
17 sept. 2013 à 19:48
Sans VBA, point de salut.
0
ccm81 Messages postés 10904 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 décembre 2024 2 428
17 sept. 2013 à 19:59
Essaies avec ce fichier en exemple
https://www.cjoint.com/?3Irt6LbutWd

Bon courage
0
Je ne sais pas quoi dire.....................MERCI!!!!!
Grâce à vous je vais pouvoir intégrer plus de 3000 visuels dans mon csv en 1 clic!!!

=REPT(Merci;1000)
0
ccm81 Messages postés 10904 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 décembre 2024 2 428
18 sept. 2013 à 14:32
De rien,
Peux tu mettre le sujet à Résolu (en haut à gauche de ton premier message)
Bonne journée
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 418
Modifié par Vaucluse le 17/09/2013 à 20:02
Bonsoir
pour faire joujou sans VBA si vous avez le courage:

1°)Laisser une ligne d'entête au dessus du champ

2°)sélectionnez votre colonne, données / convertir / choisir séparateur la virgule
et convertir
vos chiffres se retrouvent dans des colonnes séparées, pour l'exemple de A à F à adapter

3°)Placer entête de chaque colonne la lettre que vous souhaitez ajouter suivie d'une virgule

4°)à partir de G2 la ,formule:
=SI(A2="";"";A2&A$1)
à tirer sur la largeur (donc G à K pour l'exemple) et hauteur utile
vous aurez vos chiffres suivis de la lettre et de la virgule dans les cellules e FàJ
5°) reste plus qu'à écrire en L la, formule:
=F1&G1&H1&I1&J1&K1
... et à faire un copier coller valeur de cette colonne pour supprimer les formules en gardant les résultats

amusez vous bien

crdlmnt




Errare humanum est, perseverare diabolicum
0