Regrouper deux colonnes (VBA) [Résolu]

Signaler
Messages postés
49
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
21 juin 2020
-
Messages postés
49
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
21 juin 2020
-
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

Messages postés
12379
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 juillet 2020
1 922
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
Messages postés
642
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
9 juillet 2020
62
Bonsoir,
VBA inutile à mon goût !

Une autre alternative :

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

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

Messages postés
12379
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 juillet 2020
1 922
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
Messages postés
49
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
21 juin 2020
1
Merci beaucoup via55 :)
Messages postés
49
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
21 juin 2020
1
Bonjour via55,
Question comment faire pour supprimer la colonne I & J? Au d'effacer les contenus.
Merci pour ton aide.
Cordialement,
zizou
Messages postés
16170
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 juillet 2020
2 988
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...

Messages postés
49
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
21 juin 2020
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
Messages postés
16170
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 juillet 2020
2 988
Bonjour

Effectivement § désolé

https://mon-partage.fr/f/36w4iUIj/
Messages postés
49
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
21 juin 2020
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
Messages postés
49
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
21 juin 2020
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