[Resolu en Partie] Copie et coller les valeur avec SET (sans boucle)

Re : Copie et coller les valeur avec SET (sans boucle)

Bonjour Laurent,

Une proposition :


Bien sur, le code pourrait être grandement simplifié (surtout si le nbr de feuilles Mag est grand) si les tableaux commençaient tous au même endroit au lieu de B3 et C5. Cordialement

KD

Re : Copie et coller les valeur avec SET (sans boucle)

Bonsoir KenDev,

Merci j'ai compris le principe de base, j'ai transformer la macro sous cette forme :

Sub testlaurent()

' Adresse de l'astuce pour copier via un autre classeur :
Ce lien n'existe pluswww.developpez.net/forums/d990017/l...cd=5&hl=fr&ct=clnk&gl=fr&source=www.google.fr


' Ouverture d'un classeur et mise en mémoire = autre classeur (pour compilation)
' ici un exemple de classeur
' Choisir un classeur
' Choisir une feuille du classeur

'Set xlBook = Workbooks("Adresselematou.xls") ' Exemple nom du classeur
'Set xlSheet = xlBook.Worksheets("ADRESSES") ' Nom de la feuille

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

' Classeur de destination contenant lui même des feuilles (Ici le classeur actif)
Set fm1 = Sheets("Mag1") ' Feuille magasin 1 = nom de feuille
Set fm2 = Sheets("Mag3") ' Feuille magasin 2 = nom de feuille

Set TabBalon = fm1.Range(fm1.Cells(3, 2), fm1.Cells(13, 4)) ' Zone de selection feuile balon
Set TabChaussure = fm2.Range(fm2.Cells(5, 3), fm2.Cells(22, 5)) ' Zone de selection feuile Chaussure

'' Comment faire pour recopier la zone de selection d'un coup ?
TabBalon.Copy Destination:=Cells(65536, 1).End(xlUp) ' Il n'y a que Balon qui se copie

' Comment faire pour recopier la zone de selection d'un coup ?
TabChaussure.Copy Destination:=Cells(65536, 1).End(xlUp) ' Il n'y a que Chaussure qui se copie

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

' Fichier de destination ou seront copier les informations (c'est l'autre classeur)
ici un exemple de classeur

'Set LLL = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(45, 1))

'LLL.Copy Destination:=Cells(65536, 1).End(xlUp)


End Sub

' Comment faire pour décharger les variables de la mémoire de la machines à la fin de la boucle, si une personne c'est cela ?


en Faite j'aurais besoin d'ouvrir des classeurs, copier des zones prédéfini et les coller a la suite dans un classeur ouvert (une compilation sur une feuilles de plusieurs classeur)

La question que je pourrais vous poser.

Comment paramétrer la feuille sur une autre classeur (faire la même choses mais sur un autre classeur)

j'aouvre le classeur, je selectionne et je colle (tous cela dans une boucle do while)

ps : je joint le code qui fonctionne (avec d'autre macro ou je me sert des adresses pour info cela fonctionne pas avec cette macro trop lourd mais je laisse quand même)

il y a aussi la macro de KenDev (que je remerci) et aussi a vous le forum

laurent