Discussion :

[developez_dz]

je suis un débutant en éxcel je vous serai grés de bien vouloir m'aider merci

dans le classeur j'ai deux feuilles
la première est un model
la suivante contient de colonnes de date
je voudrai copier la feuille("modèle") en n fois de la feuille(2).colonne(3) qui contiens des dates merci

[SilkyRoad]

bonsoir

tu peux utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Ws As Worksheet
Dim Cell As Range
 
Set Ws = ThisWorkbook.Worksheets(2)
 
Application.ScreenUpdating = False
 
For Each Cell In Ws.Range("C1:C" & Ws.Range("C1").End(xlDown).Row)
    ThisWorkbook.Worksheets("modèle").Copy After:= _
        ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = "Ajout" & Cell.Row
Next Cell
 
Application.ScreenUpdating = True

bonne soirée
michel