Microsoft 365 Copier et coller non contigu

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 !

Stéfane

XLDnaute Occasionnel
Bonjour à tous,

Je souhaite savoir si il existe une possibilité de copier ( du type (xlCellTypeVisible).Copy) d'une Feuil2 2 colonnes E et M et les coller sur une Feuil1 en A et M (PasteSpecial Paste:=xlPasteValues).

Cela pour éviter les "aller retour"" copier/coller.

Ci-joint pour illustrer ma demande.

Merci pour votre aide.
 

Pièces jointes

Bonjour.
Ma proposition :
Code:
Option Explicit
Sub Copy_F2_F1()
   CopieValeursAprès Feuil1.Columns("A"), Source:=VisiblesÀPartirDe(Feuil2.[E2])
   CopieValeursAprès Feuil1.Columns("M"), Source:=VisiblesÀPartirDe(Feuil2.[M2])
   End Sub
Sub CopieValeursAprès(ByVal Cible As Range, ByVal Source As Range)
   Dim Zone As Range, NbL As Long
   Set Cible = PremierLibre(Cible)
   For Each Zone In Source.Areas: NbL = Zone.Rows.Count
      Cible.Resize(NbL).Value = Zone.Value: Set Cible = Cible.Offset(NbL)
      Next Zone
   End Sub
Function PremierLibre(ByVal Rng As Range) As Range
   Set PremierLibre = Rng.Rows(Rng.Rows.Count).End(xlUp).Offset(1)
   End Function
Function VisiblesÀPartirDe(ByVal Cel As Range) As Range
   Dim UR As Range
   Set UR = Cel.Worksheet.UsedRange
   Set VisiblesÀPartirDe = Cel.Resize(UR.Rows.Count - Cel.Row + UR.Row).SpecialCells(xlCellTypeVisible)
   End Function
 
Dernière édition:
Bonjour Oneida et Dranreb,

Merci beaucoup pour votre aide et vos retour.

Cela fonctionne parfaitement. J'avais juste oublier de préciser que les colonnes intermédiaires sont remplies et que j'applique un filtre.
Mais pas de problème.

Encore merci et bon weekend.
 
- 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
56
Affichages
2 K
Réponses
7
Affichages
697
Retour