Recopier (rapidement) sur une feuille

[Claudy]

Bonjour à tous et bonne année ...
Un classeur, 25 feuilles, comment recopier dans une colonne de ma dernière feuille("zaza"), les montants se trouvant sur les autres feuilles en A1?
Par macro? ou autre astuce...
Merci d'avance,
Claudy

 

[JNP]

Re : Recopier (rapidement) sur une feuille

Bonjour Claudy 🙂,
En supposant que tes 25 feuilles s'appellent Feuil1 à Feuil25

Sub Recopie()
Dim I As Integer
For I = 1 To 25
Sheets("zaza").Cells(I, 1) = Sheets("Feuil" & I).Cells(1, 1)
Next I
End Sub

Bonne journée 🙂

 

[Claudy]

Re : Recopier (rapidement) sur une feuille

Ok et merci,

mais j'ai oublié de préciser:
les montants, oui mais avec une formule vers ces différentes feuilles, un peu comme si on faisait un copier avec liaison
A+
Claudy

 

[alexga78]

Re : Recopier (rapidement) sur une feuille

Bonjour, à tous
un essai en PJ
bonne journée

 

[Pierrot93]

Re : Recopier (rapidement) sur une feuille

Bonjour à tous

si j'ai bien compris, regarde le code ci-dessous :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "zaza" Then Sheets("zaza").Range("A65536").End(xlUp).Offset(1, 0).Formula = _
        "=" & ws.Name & "!A1"
Next ws
End Sub

bonne journée
@+

 

[Claudy]

Re : Recopier (rapidement) sur une feuille

Merci, Pierrot et les autres,
C'est bien ce qu'il me fallait, en adaptant un peu pour mes besoins,
Bon WE,
Claudy