Bonjour,

Je travaille sur Excel et je veux créer une macro afin de créer automatiquement des feuilles à partir d'une première feuille de base
Voici pour le moment le code que j'ai fait:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim a As Integer
For a = 1 To 20
ActiveWorkbook.Sheets("Cas1").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = a
Cells(2, 3) = "='Puissance sdv'!E4"
Cells(3, 3) = "='Puissance sdv'!B7"
Cells(3, 4) = "='Puissance sdv'!E7"
Cells(4, 3) = "='Puissance sdv'!B6"
Cells(4, 4) = "='Puissance sdv'!E6"
Cells(7, 3) = "='Puissance sdv'!$E$16"
Cells(7, 9) = "='Puissance sdv'!$E$18"
Next
End Sub
Le problème que j'ai c'est que la cellule 2,3 par exemple correspond à 'Puissance sdv'!E4 pour la feuille 1, mais pour la feuille 2, il s'agit de 'Puissance sdv'!F4, etc... Comment effectuer ce décalage?

Merci par avance pour vos réponses