Transfert de Données

Bonjour chers tous

Je voudrais depuis ma feuille "SOURCE" alimenter mes feuilles 1 a 6

J'ai fais le code ci dessous:

Sub Transferer()

With Sheets("SOURCE")

Sheets(1).Range("A1:A10").Value = .[A2:A11].Value

Sheets(2).Range("A1:A10").Value = .[B2:B11].Value

Sheets(3).Range("A1:A10").Value = .[C2:C11].Value

Sheets(4).Range("A1:A10").Value = .[D2:D11].Value

Sheets(5).Range("A1:A10").Value = .[E2:E11].Value

Sheets(6).Range("A1:A10").Value = .[F2:F11].Value

End With

End Sub

Est-il possible de le réécrire plus simplement à l'aide d'une boucle ?

Merci

3classeur1.xlsm (23.60 Ko)

Bonjour KTM,

à tester,

Sub Transferer()
With Sheets("SOURCE")
    For i = 1 To 6
        Sheets(i).Range("A1:A10").Value = .Range(Cells(2, i).Address, Cells(11, i).Address).Value
    Next
End With
End Sub

Je suis sans voix.

Merci

Rechercher des sujets similaires à "transfert donnees"