Regrouper deux colonnes (VBA)
Résolu
zizou026
Messages postés
102
Statut
Membre
-
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
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
A voir également:
- Regrouper deux colonnes (VBA)
- Comment faire deux colonnes sur word - Guide
- Inverser deux colonnes excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Deux ecran pc - Guide
- Nombre de jours entre deux dates excel - Guide
7 réponses
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
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
Bonsoir,
VBA inutile à mon goût !
Une autre alternative :
en A1 (à étirer vers le bas, si besoin) :
=CONCATENER($I1;" ";$J1)
VBA inutile à mon goût !
Une autre alternative :
en A1 (à étirer vers le bas, si besoin) :
=CONCATENER($I1;" ";$J1)
Re,
En ce cas :
Cdlmnt
Via
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
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...
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...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question