Copier des données sur plusieurs feuilles [Résolu/Fermé]

Signaler
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
 Utilisateur anonyme -
Bonjour,

Je souhaite créer une macro qui copier une plage de cellule(A1:A2) depuis ma première feuille nommée "1" sur toutes les autres feuilles de mon classeur nommées "2",....."8".la plage de destination est:(C1:C2)
comment je peux faire?
cordialement

1 réponse

 
Bonjour nihadlahit,

Voici le code VBA :

 
Option Explicit

Sub Essai()
  Dim n As Byte: Application.ScreenUpdating = False
  Worksheets(1).Range("A1:A2").Copy
  For n = 2 To 8
    ActiveSheet.Paste Worksheets(n).[C1]
  Next n
  Application.CutCopyMode = False
End Sub


Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement.  😊
 
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
1
Merci,j'ai encore un petit souci si par exemple les feuilles de destination sont nommées :
"Nom","Adresse","Lieu".Qu'est ce que je dois faire?
cordialement,
Utilisateur anonyme >
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017

Tu peux utiliser mon code VBA tel que, car pour la destination,
ça utilise non pas le nom des feuilles mais leur index (c'est-à-
dire le de feuille dans le classeur) : Worksheets(n)