copier onglet

[yoco]

bonjour,
je cherche à copier des formules se trouvant dans mon onglet "jour" sur tous mes onglets.
sachant que la cellule source à la meme a adresse que la cellule de destination.
J'ai fait un petit essai mais il y a des erreurs


Private Sub essai_click()
Dim ws1, ws2 As Worksheet
Dim N, nb As Integer
N = 1
nb = Sheets.Count
Set ws1 = Sheets("jour")
Set ws2 = Sheets(N)
For N = 2 To nb Step 1
ws1.Range("A3").Copy Destination:=ws2(N).Range("A3")
Next

End Sub



Merci
super forum

 

[C@thy]

Bonjour Yoco,

j'ai essayé ça, ça fonctionne

Private Sub essai_click()
Dim ws1 As Worksheet
Dim N, nb As Integer
nb = Sheets.Count
Set ws1 = Worksheets("jour")
For N = 2 To nb Step 1
ws1.Range("A3").Copy Destination:=Worksheets(N).Range("A3")
Next
End Sub

 

[Mytå]

Bonjour Yoco

Voila le code modifier

Private Sub essai_click()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim N As Integer, nb As Integer
N = 1
nb = Sheets.Count
Set ws1 = Sheets("jour")
For N = 2 To nb Step 1
Set ws2 = Sheets(N)
ws1.Range("A3").Copy Destination:=ws2.Range("A3")
Next N
End Sub

Mytå

 

[Mytå]

Oups C@thy a été plus rapide

Mais faite attention au DIM

Mytå

 

[C@thy]

Myta, Yoco,

ça fonctionne sauf pour la 2ème feuille!

 

[C@thy]

Ah ben non, j'ai rien dit, ça fonctionne aussi sur la 2!

C@thy

 

[yoco]

merci de votre aide
mais cela ne marche pas pour mon fichier ,une boite de dialogue indique une erreur objet requis erreur 424.



Private Sub essai_click()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim N As Integer, nb As Integer
N = 1
nb = Sheets.Count
Set ws1 = Worksheets("731A")
For N = 2 To (nb-2) Step 1
Set ws2 = Sheets(N)
ws1.Range("bu27").Copy Destination:=w2.Range("bu27")
ws1.Range("bv27").Copy Destination:=w2.Range("bv27")
ws1.Range("bw27").Copy Destination:=w2.Range("bw27")
ws1.Range("bx27").Copy Destination:=w2.Range("bx27")
ws1.Range("by27").Copy Destination:=w2.Range("by27")
ws1.Range("bz27").Copy Destination:=w2.Range("bz27")
ws1.Range("cA27").Copy Destination:=w2.Range("cA27")
ws1.Range("cb27").Copy Destination:=w2.Range("cb27")
ws1.Range("cc27").Copy Destination:=w2.Range("cc27")
Next
End Sub

 

[C@thy]

Voir P.J.

 

[Mytå]

re yoco

remplace le w2 par ws2

ws1.Range("bu27").Copy Destination:=ws2.Range("bu27")

Et tous devrait aller

Mytå

 

[C@thy]

au lieu de faire 9 fois ta copie :

ws1.Range("bu27:cc27").Copy Destination:=ws2.Range("bu27")

 

[yoco]

merci de votre aide mais ca marche pas dans mon cas je ne sais pas pourqoi et ca me donne des cheveux blancs
si vous pouvez voir mon fichier ca serait gentil.
En tout cas ce site est super ,il m'a appris bcp de choses

 

[yoco]

merci de votre aide mais ca marche pas dans mon cas je ne sais pas pourqoi et ca me donne des cheveux blancs
si vous pouvez voir mon fichier ca serait gentil.
En tout cas ce site est super ,il m'a appris bcp de choses

 

[yoco]

merci de votre aide mais ca marche pas dans mon cas je ne sais pas pourqoi et ca me donne des cheveux blancs
si vous pouvez voir mon fichier ca serait gentil.
En tout cas ce site est super ,il m'a appris bcp de choses
qui pourrait voir mon fichier je n'ai pas pu l'envoyer il fait 2.20mega alors par mail perso

 

[C@thy]

Yoco,

tu peux envoyer directement dans ma BAL stp, je ne lis pas les .zip sur le forum.

Merci.