Copier des données sur plusieurs feuilles

Résolu
NLAH Messages postés 125 Date d'inscription   Statut Membre Dernière intervention   -  
 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
A voir également:

1 réponse

Utilisateur anonyme
 
 
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.  😊
 
0
NLAH Messages postés 125 Date d'inscription   Statut Membre Dernière intervention   2
 
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,
0
Utilisateur anonyme > NLAH Messages postés 125 Date d'inscription   Statut Membre Dernière intervention  
 
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)
0