Copier des données sur plusieurs feuilles

Résolu
NLAH Messages postés 135 Statut Membre -  
 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

  1. 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
    1. NLAH Messages postés 135 Statut Membre 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
      1. Utilisateur anonyme > NLAH Messages postés 135 Statut Membre
         
        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 n° de feuille dans le classeur) : Worksheets(n)
        0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses