Discussion :

[olivierm34]

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

[alsimbad]

salut
utilise la formulation en coordonées relative r1c1

Code :

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

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.

[olivierm34]

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

Que faire ??

[alsimbad]

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 :

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

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.