Discussion :

[-Naek-]

Je dispose de 3 feuilles :

-infos_systemes
-Classement_dynamique
-Scan_Semaine

Je veux copiée des valeurs de la feuille infos_systemes dans la feuille Scan_Semaine. Je lance ma macro à partir de la feuille Classement_dynamique. Les données vont se mettre dans celle-ci alors que dans mon code je précise la feuille sélectionner par défaut est Scan_Semaine. Pouvez-vous me dire comment faire pour définir dans mon code que je suis bien dans la page Scan_Semaine avec Sheets("Scan_Semaine").Select ...

Mon code est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Transfert()
    
Dim cel As Variant, i As Long

Set cel = Range("A2")
Nb_Lignes = Sheets("infos_systemes").Range("a65536").End(xlUp).Row

For i = 1 To Nb_Lignes
Sheets("Scan_Semaine").Select
 cel(i, 1).FormulaR1C1 = "=infos_systemes!RC"
 cel(i, 2).FormulaR1C1 = "=infos_systemes!RC"
 cel(i, 3).FormulaR1C1 = "=infos_systemes!RC"
 cel(i, 4).FormulaR1C1 = "=infos_systemes!RC"
Next i


End Sub

Merci de votre aide

[casefayere]

Bonjour,
oublies ton select

Code :

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

1
2
3
4
5
6
with Sheets("Scan_Semaine")
 .cel(i, 1).FormulaR1C1 = "=infos_systemes!RC"
 .cel(i, 2).FormulaR1C1 = "=infos_systemes!RC"
 .cel(i, 3).FormulaR1C1 = "=infos_systemes!RC"
 .cel(i, 4).FormulaR1C1 = "=infos_systemes!RC"
end with

[-Naek-]

Bonjour,
oublies ton select

Code :

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

1
2
3
4
5
6
with Sheets("Scan_Semaine")
 .cel(i, 1).FormulaR1C1 = "=infos_systemes!RC"
 .cel(i, 2).FormulaR1C1 = "=infos_systemes!RC"
 .cel(i, 3).FormulaR1C1 = "=infos_systemes!RC"
 .cel(i, 4).FormulaR1C1 = "=infos_systemes!RC"
end with

Merci de ton aide en faite je me suis trompé pour l'appel de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Transfert()

Sheets("Scan_Semaine").Select

Dim cel As Variant, i As Long
Set cel = Range("A2")
Nb_Lignes = Sheets("infos_systemes").Range("a65536").End(xlUp).Row

For i = 1 To Nb_Lignes

 cel(i, 1).FormulaR1C1 = "=infos_systemes!RC"
 cel(i, 2).FormulaR1C1 = "=infos_systemes!RC"
 cel(i, 3).FormulaR1C1 = "=infos_systemes!RC"
 cel(i, 4).FormulaR1C1 = "=infos_systemes!RC"
Next i

End Sub

Merci de l'aide quand meme

[casefayere]

J'ai oublié de dire que si ce ne sont que des valeurs à copier, ce n'est pas la peine de passer par des formules, style

Code :

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

.FormulaR1C1 = "=infos_systemes!RC"