Regrouper deux colonnes (VBA)

Résolu
zizou026 Messages postés 102 Statut Membre -  
zizou026 Messages postés 102 Statut Membre -
Bonsoir,
Je souhaite regrouper les contenus de deux colonnes (I&J) dans la colonne (A).
Voir fichier : https://www.cjoint.com/c/JFtuV0Q0IBr
Auriez-vous l'amabilité de m'aider SVP?
Par avance, je vous remercie et vous souhaite une excellente soirée.
Cordialement,
Zizou

7 réponses

  1. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonsoir

    Pourquoi une macro pour si peu alors qu'il suffit de mettre en A1 la formule= I1 &" " & j1 et de l'étirer vers le bas
    Ensuite copier la colonne A et la coller à la même place par collage spécial Valeurs uniquement (pour supprimer le lien par formule) et enfin effacer les colonnes I et J

    Cdlmnt
    Via
    1
  2. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    Bonsoir,
    VBA inutile à mon goût !

    Une autre alternative :

    en A1 (à étirer vers le bas, si besoin) :

    =CONCATENER($I1;" ";$J1)

    1
  3. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Re,

    En ce cas :
    Sub adresse()
     ligne = Sheets("Feuil3").Columns(9).Find("*", , , , xlByColumns, xlPrevious).Row ' dernièreligne remplie
     For n = 4 To ligne ' boucle sur les lignes de feuil3 et copie la concatenation en col A
    Sheets("Feuil3").Range("A" & n) = Sheets("Feuil3").Range("I" & n) & " " & Sheets("Feuil3").Range("J" & n)
     Next
     Sheets("Feuil3").Range("I4:J" & ligne).ClearContents 'efface col I et J
    End Sub

    Cdlmnt
    Via
    1
    1. zizou026 Messages postés 102 Statut Membre 1
       
      Merci beaucoup via55 :)
      0
    2. zizou026 Messages postés 102 Statut Membre 1
       
      Bonjour via55,
      Question comment faire pour supprimer la colonne I & J? Au d'effacer les contenus.
      Merci pour ton aide.
      Cordialement,
      zizou
      0
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour zizou, yoyo, via

    Comme tu as peut-^tre plus de feuilles que "1" et feuil3, une macro vaut peut-^tre le coup de traiter l'ensemble d'un seul coup

    https://mon-partage.fr/f/xljhIRFm/

    tu dis...

    1
    1. zizou026 Messages postés 102 Statut Membre 1
       
      Bonsoir michel_m,
      je te remercie pour ton aide, mais le fichier plante :

      À noter l'onglet 3 c'est juste un espace de rappel pour moi, je travaille essentiellement sur l'onglet (1).
      j'ai repris la formule de via55 et l'adapter ça fonctionne, encore merci à vous deux.
      Cordialement,
      zizou
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. zizou026 Messages postés 102 Statut Membre 1
     
    Bonjour michel_m
    Aucun souci, vraiment merci merci et c'est sincère.
    Heureusement, que vous êtes là ainsi que ce forum.
    ça fonctionne impect. Ecellente journée.
    Cordialement,
    zizou
    1
  7. zizou026 Messages postés 102 Statut Membre 1
     
    Bonjour,
    Merci beaucoup pour vos réponses, je cherche une adaptation en VBA, pour l'automatisation du fichier via le bouton.
    De plus, c'est une tache répétitive.
    Cordialement,
    zizou
    0