Bonjour,
Je cherche via à une macro associée à un bouton à automatiser la copie d'une plage de cellules d'une feuille dans une autre et ce avec plusieurs contraintes :
- Les cellules de chaque ligne doivent être assemblées en une seule cellule par ligne.
- Elles doivent être insérées au bon endroit de la feuille cible (les phrases "type 1" sous la ligne "type 1" etc.)
- Si je modifie le nombre de ligne dans la feuille "Type 1" et que je reclique sur le bouton, la feuille "Assemblage" doit être réactualisée.
J'ai créé un fichier d'exemple pour ce que je veux :
- Les feuilles "Type 1" et "Type 2" contiennent les phrases découpées par colonnes que je veux copier ainsi que le bouton à utiliser.
- La feuille "Assemblage" est la feuille cible
- La feuille "Assemblage_attendu" est le résultat que je souhaite obtenir.
J'ai essayé de créer la macro pour sélectionner la bonne plage de cellule, mais cela me sélectionne les lignes entièrement :
Je suppose que ce n'est pas du tout optimal comme façon de procéder.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub CommandButton1_Click() ActiveSheet.Range(Cells(2, 1), Cells((Cells(Rows.Count, 1).End(xlUp).Row), (Cells(2, Columns.Count).End(xlUp).Column))).Select End Sub
Je vous remercie pour votre aide.
Partager