Macro copier coller avec fusion des colonnes entre deux classeurs

[Atiom]

Bonsoir le forum

Je souhaiterais trouver une macro que puisse faire un copier coller entre deux classeurs, mais au même temps fusionner les valeurs de certaines colonnes.

Quelque chose dans ce genre :

For i = 1 To Range("A65536").End(xlUp).Row 
    Range("A" & i) = Range("A" & i) & " " & Range("B" & i) 
    Range("B" & i) = "" 
Next

Je mets les fichiers.



Merci d’avance

 

[Catrice]

Re : Macro copier coller avec fusion des colonnes entre deux classeurs

Bonjour,

ci-joint un exemple.
Pas tres bien compris l'interet d'ouvir un Userform qui permet d'ouvrir le fichier B.xls alors qu'on est dèjà dedans ?!

Pourquoi ne pas mettre plutot ce code dans A.xls :

Private Sub Workbook_Open()
LeChemin = ActiveWorkbook.Path
NomDuClasseurAOuvrir = "B.xls"
Workbooks.Open LeChemin & "\" & NomDuClasseurAOuvrir, ReadOnly:=False
End Sub

 

[Atiom]

Re : Macro copier coller avec fusion des colonnes entre deux classeurs

Bonjour

Pour le copier coller c’est parfait, merci beaucoup.

Maintenant encore une petite chose si possible.

Comme les valeurs du FichierA se modifient par l’UserForm1, et que celle-ci se ferme lorsque on ouvre le Fichier B.

Je souhaiterait faire dans le fichier B un bouton que puisse me permettre de :
1 – Enregistrer le Fichier B ( Sans la boite de dialogue )
2 – Fermer le Fichier B ( Sans la boite de dialogue )
3 – Appeler l’UserForm1 dans le Fichier A

J’ai fait un test avec ce code mas sans succès

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Workbooks("B.xls").Close True
Application.DisplayAlerts = True
UserForm1.Show
End Sub

 

[Catrice]

Re : Macro copier coller avec fusion des colonnes entre deux classeurs

Re,

Ci-joint une version à tester.
Il faut que la propriété ShowModal du UseForm1 soit à False.

 

[Atiom]

Re : Macro copier coller avec fusion des colonnes entre deux classeurs

Impeccable

Merci et bon dimanche