Copier coller une zone
Fermé
suli1870
Messages postés
4
Date d'inscription
jeudi 28 mars 2019
Statut
Membre
Dernière intervention
4 mai 2019
-
4 mai 2019 à 12:25
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 7 mai 2019 à 17:15
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 7 mai 2019 à 17:15
A voir également:
- Copier coller une zone
- Zone telechargement - Guide
- Copier une vidéo youtube - Guide
- Copier coller pdf - Guide
- Symbole clavier copier coller - Guide
- Style d'écriture a copier coller - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
Modifié le 7 mai 2019 à 17:18
Modifié le 7 mai 2019 à 17:18
Bonjour Suli, bonjour le forum,
Essaie comme ça :
Essaie comme ça :
Sub Macro1() Dim OS As Worksheet 'déclare la variable OS (Onglet Source) Dim OD As Worksheet 'déclare la variable OD (Onglet Destination) Dim NB As Integer 'déclare la variable NB (NomBre) Dim I As Integer 'déclare la variable I (Incrément) Dim DEST As Range 'déclare la variable DEST (cellule de DESTination) Set OS = Worksheets("FEUILLEX") 'définit l'onglet OS Set OD = Worksheets("FEUILLEY") 'définit l'onglet OD OD.Range("A1").CurrentRegion.Clear 'efface d'éventuelles anciennes données NB = OS.Range("A20").Value 'définit le nombre NB If NB = 0 Then Exit Sub 'si NB est égale à 0, sort de la procédure For I = 1 To NB 'boucle de 1 à NB 'définit la cellule de destination DEST (A1 si A1 est vide, sinon la première cellule vide de la colonne A de l'onglet OD) If OD.Range("A1").Value = "" Then Set DEST = OD.Range("A1") Else Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) OS.Range("A1:C9").Copy DEST 'copie la plage A1:C9 et la colle dans DEST Next I 'prochaine fois de la boucle OD.PrintOut 'imprime l'onglet OD End Sub