XL 2010 Modification de macro

  • Initiateur de la discussion Initiateur de la discussion br44
  • 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 !

br44

XLDnaute Impliqué
Bonjour le forum,

Je reviens vers vous pour savoir si il serait possible de m'aider à modifier la macro si dessous pour copier une plage variable qui commence toujours de la colonne "B" au lieu d'une seul colonne .
mais je veux conservé le collage décaler dans la feuille destination .
Voici un exemple de se que je souhaite :
la première copy peut-être "BCD" dans la feuille source et donc se sera "BCD" dans la feuille destination . la dessus pas de souci , mais pour la deuxième copy cela pourrait-être :
"BCDEFG" et là je voudrais qu'elle se place à la suite dans la feuille de destination soit "EFGHIJ"
A noter : que la variation se fait sur le nombre de colonnes et pas sur le nombre de lignes qui lui est fixe à 122. je vous joint un fichier pour vous montrer le résultat final espéré .
En espérant une réponse de votre part je vous dit à bientôt et vous remercie par avance de vôtre aide
Amicalement BR44

Voici la macro:

Option Explicit
Sub collage()
Dim onglet As Worksheet
Sheets(1).Select
Range("G2:G" & Range("G2").End(xlDown).Row).Copy
Set onglet = Sheets(2)
With onglet.Cells(2, onglet.Cells(2, Columns.Count).End(xlToLeft).Column + 1)
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
Range("A1").Select
End Sub
 

Pièces jointes

- 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

Discussions similaires

Réponses
10
Affichages
547
Réponses
18
Affichages
316
Réponses
2
Affichages
283
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
491
Retour