Regrouper deux colonnes (VBA)

Résolu/Fermé
zizou026 Messages postés 97 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 14 octobre 2021 - 19 juin 2020 à 23:31
zizou026 Messages postés 97 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 14 octobre 2021 - 21 juin 2020 à 11:51
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

via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
19 juin 2020 à 23:53
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
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
20 juin 2020 à 03:33
Bonsoir,
VBA inutile à mon goût !

Une autre alternative :

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

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

1
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
20 juin 2020 à 10:09
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
zizou026 Messages postés 97 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 14 octobre 2021 1
20 juin 2020 à 21:16
Merci beaucoup via55 :)
0
zizou026 Messages postés 97 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 14 octobre 2021 1
21 juin 2020 à 05:47
Bonjour via55,
Question comment faire pour supprimer la colonne I & J? Au d'effacer les contenus.
Merci pour ton aide.
Cordialement,
zizou
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié le 20 juin 2020 à 12:59
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
zizou026 Messages postés 97 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 14 octobre 2021 1
20 juin 2020 à 21:15
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

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

Posez votre question
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
21 juin 2020 à 10:10
Bonjour

Effectivement § désolé

https://mon-partage.fr/f/36w4iUIj/
1
zizou026 Messages postés 97 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 14 octobre 2021 1
21 juin 2020 à 11:51
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
zizou026 Messages postés 97 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 14 octobre 2021 1
20 juin 2020 à 07:55
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