Coller à partir d'une sélection multiple

Bonjour,

J'ai pourtant parcouru le forum, mais je n'ai pas trouvé la réponse à mon cas.

Petite info, je suis plus que novice.

ma question est simple, certes pas très intéressante mais j'en ai besoin.

Alors à partir d'un classeur, feuille(5) je souhaite copier une selection multiple depuis un bouton. jusque là pas de soucis ça fonctionne.

Worksheets(5).Range("D16:S25,U16:U25,W16:X25").copy

ensuite je voudrais coller cette même trame à un autre endroit et dans un autre classeur déjà ouvert cette fois-ci depuis un autre bouton propre à ce classeur. , mais là il me colle les colonnes toutes à la suite quand je fais :

Worksheets(2).Range("D60").PasteSpecial Paste:=xlValues, _

Operation:=xlNone, SkipBlanks:=False, Transpose:=False

j'ai essayé :

Worksheets(2).Range("D60:S69,U60:U69,W60:W69").PasteSpecial Paste:=xlValues, _

Operation:=xlNone, SkipBlanks:=False, Transpose:=False

mais il m'insulte : message "grosse croix rouge suivi de 400"

Si quelqu'un avait une solution??

Merci,

Yohann.

Bonjour. Bienvenue sur le Forum

Puisque tes deux classeurs sont ouverts

Sub Multiselection()
 Worksheets(5).Range("D16:S25,U16:U25,W16:X25").Select
 For Each cel In Selection
 cel.Copy
Windows("ClasseurCible.xls").Activate 'ici, tu mets le nom du classeur cible
    Sheets(2).Activate
    Range(cel.Address).Offset(44, 0).Select
 ActiveSheet.Paste
 Next cel
End Sub

Cordialement

Bonjour Amadéus,

Merci pour ta réponse, j'ai déjà vu ce code, mais je voulais gérer avec deux boutons bien distincts.

Après quelques adaptation sur mon projet ça fonctionne.

Donc merci

Néanmoins, je dois faire la même chose mais il se trouve que dans ma sélection j'ai des cellules fusionnées. Je sais c'est pas Glop!

je recherche une solution sur le forum, et je reviens vers toi si je ne trouve pas.

A+

Nin nin.

Bonjour,

Bon ce n'est pas folichon.

voilà où j'en suis :

Worksheets(6).Range("D14:M14,O14:P23").Select
 For Each cel In Selection

    If cel.MergeCells = True Then
    cel.UnMerge
    cel.copy

   Set MaCellule1 = Range(cel.Address)
   Set MaCellule2 = Range(cel.Address).Offset(0, 2)

   Range(MaCellule1, MaCellule2).Merge    // c'est ici que ça coince, je n'arrive pas à définir la sélection pour re-fusionner ma cellule
    Else
    cel.copy
    End If
 Fichier = "Suivi activité Autom S" & SEMAINE & "-" & ANNEE & ".xls"
 Windows(Fichier).Activate 'nom du classeur cible
    Sheets("Suivi Q du NON-planifié").Activate
    Range(cel.Address).Offset(OffsetLigne, 0).Select
 ActiveSheet.Paste
 Next cel

je ne me suis pas encore attardé sur la mise en forme, désolé!

suis-je vraiment loin?

Merci!

PS: mon problème doit aussi venir du fait que je ne sois pas dans le bon classeur, car quand j'écris :

 Range(MaCellule1, MaCellule2).Select 

il me sélectionne bien ma sélection mais pas dans le bon classeur.

mais quand j'essaye de rappeler le classeur d'où j'opère la fonction "For", donc là où mes cellules sont dé-fusionnées il plante. de plus c'est un coup à perturber la sélection de base!