Discussion :

[macto]

Bonjour,

J'ai comme feuille :
* Pres°_provisoire
* Pres°_vierge
* et un nombre aléatoire de feuille (en fonction de mes besoins)

J'aimerai savoir comment faire pour copier à partir de la ligne A3 (jusqu'au bout) de la feuille Pres°_vierge dans toutes les autres feuilles à partir de la ligne A3 (sauf Pres°_provisoire et Pres°_vierge).


Pour expliquer autrement :
J'aimerai que les information de la feuille Pres°_vierge (à partir de la ligne A3), soit réparti dans toutes les autres feuilles (aussi à partir de la ligne A3). Sans coller dans les feuilles : Pres°_provisoire et Pres°_vierge



J'éspère avoir été assez clair.
Je vous remercie de votre réponse si vous le savez, merci.
Cordialement

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Reporter()
Dim ws As Worksheet
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Pres°_vierge")
   LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
   For Each ws In ThisWorkbook.Worksheets
      If Left(ws.Name, 6) <> "Pres°_" Then .Range("A3:X" & LastLig).Copy ws.Range("A3")
   Next ws
End With
End Sub

[macto]

Merci beaucoup pour ta réponse !
C'est parfait, et en plus j'ai pu apprendre avec le code