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

Résolu
tibo20100 -  
ccm81 Messages postés 11033 Statut Membre -
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

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  2. tibo20100
     
    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
  3. Gyrus Messages postés 3360 Statut Membre 526
     
    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
    1. tibo20100
       
      En réalité les chiffres se trouvent dans une seule et même cellule c'est là toute la difficulté de l'histoire.
      0
    2. Gyrus Messages postés 3360 Statut Membre 526
       
      Sans VBA, point de salut.
      0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Essaies avec ce fichier en exemple
    https://www.cjoint.com/?3Irt6LbutWd

    Bon courage
    0
    1. tibo20100
       
      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
    2. ccm81 Messages postés 11033 Statut Membre 2 434
       
      De rien,
      Peux tu mettre le sujet à Résolu (en haut à gauche de ton premier message)
      Bonne journée
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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