Problème EXCEL VBA

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:

---

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

salut
utilise la formulation en coordonées relative r1c1

Code:

---

1 2 3 4 5 6 7

Dim a As Integer For a = 1 To 20 ActiveWorkbook.Sheets("Cas1").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = a Cells(2, 3).FormulaR1C1 = "='Puissance sdv'!R[2]C[a + 1]" Next a End Sub

---

R represente le décalage en ligne, et C le decalage en colone, ce qui va permetre d'utiliser une variable. dans ton cas, tu peux utiliser a en lui ajoutant ou retirant une valeur que tu défini. pour trouver facilement la valeur adéquate, tu enregistre une macro, tout simplement, généralement, c'est directement en r1c1.

Ca ne marche pas
Il est indiqué erreur d'exécution 1004
Erreur définié par l'application ou par l'objet

Que faire ??

ouai, j'ai vu, j'ai pas la réponse
si c'est une créatrion dont tu n'as besoin qu'une seule fois, tu as cette solution

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub essais() Dim a As Integer For a = 1 To 20 ActiveWorkbook.Sheets("Cas1").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = a Cells(2, 3) = Worksheets("Puissance sdv").Cells(a + 3, 5) Cells(3, 3) = Worksheets("Puissance sdv").Cells(a + 6, 2) Cells(3, 4) = Worksheets("Puissance sdv").Cells(a + 6, 5) Cells(4, 3) = Worksheets("Puissance sdv").Cells(a + 5, 2) Cells(4, 4) = Worksheets("Puissance sdv").Cells(a + 5, 5) Cells(7, 3) = Worksheets("Puissance sdv").Cells(a + 15, 5) Cells(7, 9) = Worksheets("Puissance sdv").Cells(a + 17, 5) Next a End Sub

---

là ça marche, j'ai testé, mais ça ne t'installe pas la liaison, ça ne fait que copier les valeurs. si tu ne dois extraire tes données qu'une seule fois, ça va le faire.