Ajout de caractères différents avant une virgule dans excel [Résolu/Fermé]

Signaler
-
Messages postés
9633
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2020
-
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



5 réponses

Messages postés
9633
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2020
1 969
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
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
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
496
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+
En réalité les chiffres se trouvent dans une seule et même cellule c'est là toute la difficulté de l'histoire.
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
496
Sans VBA, point de salut.
Messages postés
9633
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2020
1 969
Essaies avec ce fichier en exemple
https://www.cjoint.com/?3Irt6LbutWd

Bon courage
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)
Messages postés
9633
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2020
1 969
De rien,
Peux tu mettre le sujet à Résolu (en haut à gauche de ton premier message)
Bonne journée
Messages postés
25579
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
20 novembre 2020
5 610
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