Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier Coller un range en séparant chaque colonne par 2 colonnes (Offset?)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion WaxistSelecta
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

WaxistSelecta

Guest
Bonjour le fil,

je reviens sur le forum pour un besoin surement pas compliqué mais que je n'arrive pas à écrire correctement dans mon code 🙂

Je présume qu'il s'agit d'utiliser le Offset mais je ne l'utilise pas de la bonne manière...

En gros, j'ai la boucle For suivante :

Code: 
For Each Sh In ThisWorkbook.Worksheets

If Sh.Name <> "Lancement" And Sh.Name <> "Conso à date par région" And Sh.Name <> "Conso histo par région" Then
    Set wb = Workbooks.Open("C:\Templates\Template Report Région.xls")
    Sh.Range("A2:H60").Copy Destination:=wb.Sheets("Votre Région a date").Range("A65536").End(xlUp)(2)
    Sh.Range("I2", Sh.Range("I2").Columns.End(xlToRight)).Resize(26).Copy Destination:=wb.Sheets("Votre Région a date").Range("K7")
    
   
 
 wb.SaveAs ("C:\Templates\" & Workbooks("Template Report Région.xls").Sheets("Votre Région a date").Range("B7").Value & ".xls")
        'Fermeture du fichier crée
 wb.Close

End If
  Next Sh

Cette boucle récupère des données d'un ensemble d'onglet pour les coller dans un template (autre fichier).

Mon besoin :

Au moment du collage, j'aurais besoin que dans le range à coller, on sépare chaque colonne de 2 colonnes.
Ceci pour que les données s'insère bien dans le template tel qu'il est conçu.

Merci à celles / ceux qui pourront m'aider à résoudre mon problème !

Waxist
 
Trier par date Trier par votes
Re : Copier Coller un range en séparant chaque colonne par 2 colonnes (Offset?)

Bonjour WaxistSelecta,

Je vous laisse tester ce code :

Code: 
Dim Sh As Worksheet, wb As Workbook, cel As Range, i As Byte, col As Range
For Each Sh In ThisWorkbook.Worksheets
  If Sh.Name <> "Lancement" And Sh.Name <> "Conso à date par région" And Sh.Name <> "Conso histo par région" Then
    Set wb = Workbooks.Open("C:\Templates\Template Report Région.xls")
    Set cel = wb.Sheets("Votre Région a date").Range("A65536").End(xlUp)(2)
    i = 0
    For Each col In Sh.Range("A2:H60")
      col.Copy cel.[COLOR="Red"]Offset(, 3 * i)[/COLOR]
      i = i + 1
    Next
    i = 0
    Set cel = wb.Sheets("Votre Région a date").Range("K7")
    For Each col In Sh.Range("I2", Sh.Range("I2").End(xlToRight)).Resize(26)
      col.Copy cel.[COLOR="red"]Offset(, 3 * i)[/COLOR]
      i = i + 1
    Next
    wb.SaveAs ("C:\Templates\" & Workbooks("Template Report Région.xls").Sheets("Votre Région a date").Range("B7").Value & ".xls")
    'Fermeture du fichier crée
    wb.Close
  End If
Next Sh

Offset(, 3 * i) décale chaque collage de 3 colonnes.

Edit : avec le .Range("K7") n'y a-t-il pas risque de chevauchement avec lez zones de collage précédentes ? A vous de voir...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier Coller un range en séparant chaque colonne par 2 colonnes (Offset?)

Merci!

Je vais tester votre code Job75.

Pour répondre à l'interrogation sur le chevauchement, en fait pour le offset elle ne concerne que la deuxième partie du range (à partir du I), donc à priori pas de risque de chevauchement 😉


Merci encore pour votre aide!
 
Vote positif 0 Vote négatif
Re : Copier Coller un range en séparant chaque colonne par 2 colonnes (Offset?)

Re,

WaxistSelecta à dit:
Pour répondre à l'interrogation sur le chevauchement, en fait pour le offset elle ne concerne que la deuxième partie du range (à partir du I), donc à priori pas de risque de chevauchement 😉
Cliquez pour agrandir...

Cela est bien sûr vrai si l'on copie les colonnes sans les décaler au collage.

Mais là on décale...

A priori au lieu de :

Code: 
i = 0
Set cel = wb.Sheets("Votre Région a date").Range("K7")

il faudra probablement écrire :

Code: 
Set cel = wb.Sheets("Votre Région a date").Range("K7").Offset(, 3 * i)
i = 0

A+
 
Vote positif 0 Vote négatif
Re : Copier Coller un range en séparant chaque colonne par 2 colonnes (Offset?)

Re,

Eh bien, il y a plus simple : remplacer K7 par Y7...

Code: 
i = 0
Set cel = wb.Sheets("Votre Région a date").Range("[COLOR="Red"]Y7[/COLOR]")

A+
 
Vote positif 0 Vote négatif
Re : Copier Coller un range en séparant chaque colonne par 2 colonnes (Offset?)

Merci Job75,

Pour revenir sur le sujet, j'ai fait un test, en conservant la première partie de mon collage sur le range A2:H60 qui etait ok.

Le code fonctionne presque mais tombe en erreur au niveau de la ligne

Code: 
col.Copy cel.Offset(0, 3 * i)

Si je consulte le fichier de destination encore ouvert, le offset fonctionne bien mais il semble que le collage s'effectue en transposant toutes les valeurs sur la ligne 2

Voici mon code pour info :


Code: 
Sub test()

Dim Sh As Worksheet, wb As Workbook
Dim cel As Range
Dim i As Byte
Dim col As Range

For Each Sh In ThisWorkbook.Worksheets
  If Sh.Name <> "Lancement" And Sh.Name <> "Conso à date par région" And Sh.Name <> "Conso histo par région" Then
    Set wb = Workbooks.Open("C:\Templates\Template Report Région.xls")
    Sh.Range("A2:H60").Copy Destination:=wb.Sheets("Votre Région a date").Range("A65536").End(xlUp)(2)
  
    Set cel = wb.Sheets("Votre Région a date").Range("K7")
    i = 0
    For Each col In Sh.Range("I2", Sh.Range("I2").End(xlToRight)).Resize(26)
      col.Copy cel.Offset(0, 3 * i)
      i = i + 1
    Next
    wb.SaveAs ("C:\Templates\" & Workbooks("Template Report Région.xls").Sheets("Votre Région a date").Range("B7").Value & ".xls")
    'Fermeture du fichier crée
    wb.Close
  End If
Next Sh

End Sub
 
Vote positif 0 Vote négatif
Re : Copier Coller un range en séparant chaque colonne par 2 colonnes (Offset?)

Re,

Désolé, un oubli, corrigez ainsi :

Code: 
For Each col In Sh.Range("I2", Sh.Range("I2").End(xlToRight)).Resize(26).[COLOR="Red"]Columns[/COLOR]

Edit : mais comme on copie plusieurs feuilles, chaque série de copies va écraser la précédente...

Peut-être faut-il supprimer la ligne i = 0...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Question Question
Copier/coller sous condition et multiplication par -1 en VBA
Réponses
4
Affichages
2 K
tprlechef
T
W
  • Question Question
Boucle Copier/Coller sur range variable
Réponses
7
Affichages
2 K
WaxistSelecta
W
W
  • Question Question
Optimisation code
Réponses
1
Affichages
7 K
WaxistSelecta
W
W
  • Question Question
Pbm Boucle For Each sur plusieurs onglet
2
Réponses
23
Affichages
5 K
WaxistSelecta
W
M
  • Question Question
Copie de donnees d'un ClasseurA vers un Classeur B par une macro dans Classeur C
Réponses
13
Affichages
2 K
MartiFab
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…