sélection multiple de cellule copier/coller en vba

[Mimi]

Bonjour,
Voila je recherche le moyen de copier/coller différente cellule d'une feuille vers une autre feuille (les classeurs étant ouvert tous les 2):
Voici la macro que j'ai fait :

Sub Macro1()
Range("A1:L53").Select
Selection.Copy
Range("A1").Select

Windows("Sol'Air Beaune.xls").Activate
Range("A1:L53").Select
Sheets("Fiches").Paste
Range("A1").Select
End Sub
la j'ai pas de problème pour A1:L53
Ce que je recherche c'est copier différente cellule style :
A6:G14,K18:K34,D23,A30:I35,B41
Voila si quelqu'un avait une idée
D'avance merci
Michel

 

[pierrejean]

Re : sélection multiple de cellule copier/coller en vba

bonjour Mimi

voila un code qui fonctionne d'une feuille a une autre

il doit etre possible de l'adapter

Sub Macro1()
 Range("B4:C4,D7:C7,B10,D10").Select
 For Each cel In Selection
 cel.Copy
 Sheets("Feuil7").Select
 Range(cel.Address).Select
 ActiveSheet.Paste
 Next cel
End Sub

si probleme n'hesite pas a revenir

 

[Mimi]

Re : sélection multiple de cellule copier/coller en vba

Salut pierrejean,
La formule marche bien sur des cellules non fusionnée (excuse j'ai oublier de le présicer) alors que moi sur mon fichier certaine cellule sont fusionnées
Une autre idée serait posible ??
Merci
Michel

 

[pierrejean]

Re : sélection multiple de cellule copier/coller en vba

re

les cellules fusionnées sont une horreur pour le Vba

la solution est probablement de detecter les fusions , 'defusionner ' ,copier puis 'refusionner'

si tu insistes j'essaierai de le faire mais c'est genre usine a gaz

ne peux-tu opter pour "centrer sur plusieurs colonnes " par exemple