Copier donnée d'une colonne vers tout mon classeur Résolu/Fermé

Question

Bonjour, 

J'ai une petite requête, j'aimerais copier les données d'une colonne dans tous mes autres onglets automatiquement. 

J'utilise ce code qui fonctionne très bien (pour ceux que ça peut aider)

Sheets("mafeuilleprincipale").Range("A:A").Copy
ActiveSheet.Paste Destination:=Worksheets("mafeuillededestination").Range("D:D")

Maintenant j'aimerais ne pas viser une feuille comme destination, mais tout mon classeur, pour que ma colonne copier apparaisse dans tous mes onglets. 

Merci d'avance

Configuration: Windows / Edge 18.17763

cs_Le Pivert · Answer

Bonjour,

voir ceci pour boucler sur toutes les feuilles:

 https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

ce qui donne:

Option Explicit
'https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
Sub test()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Feuil1" Then 'adapter le nom de la feuille
Worksheets("Feuil1").Range("A:A").Copy Destination:=Worksheets(Ws.Name).Range("D:D")
    End If
Next Ws
End Sub

Eric · Answer

Bonjour, 

Je ne parviens pas à ouvrir le lien, mais merci beaucoup pour le code !

yg_be · Answer

bonjour, suggestion:
Dim src As Range, fdest As Worksheet
Set src = Sheets("mafeuilleprincipale").Range("A:A")
For Each fdest In ThisWorkbook.Worksheets
    src.Copy (fdest.[d1])
Next fdest

Copier donnée d'une colonne vers tout mon classeur

3 réponses

Discussions similaires