Porblème optimisation code

Bonjour,

Peut-être des retours lignes :

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy _
Destination:=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy _
Destination:=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub

Camille


"YeTi" wrote:

Bonjour,

Je n'arrive pas a optimiser ce programme sans avoir une erreur. Voici le code:

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Sheets("Notes").Visible = True
Sheets("Calculs").Visible = True
Sheets("Calculs").Select
Range("A2:A25").Select
Selection.Copy
Sheets("Notes").Select
Range("A4").Select
ActiveSheet.Paste
Rows("38:38").Select
Application.CutCopyMode = False
Selection.Copy
Rows("4:37").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("A28:AE39").Select
Selection.ClearContents
Range("H4").Select
Sheets("Intro").Select
Sheets("Calculs").Visible = False
End Sub


Voici ma version (buguée):

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy
Destination:=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy
Destination:=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub


Malheureusement, ca ne marche pas, ou pas comme il faut!

Qqn peut-il m'aider?

En fait, le problème est que je ne veux pas que la ligne 38 soit copiée et
collée sur toutes les autres. Je veux seulement que la mise en forme soit
copiée!

Bonjour,

Peut-être des retours lignes :

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy _
Destination:=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy _
Destination:=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub

Camille


"YeTi" wrote:

Bonjour,

Je n'arrive pas a optimiser ce programme sans avoir une erreur. Voici le code:

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Sheets("Notes").Visible = True
Sheets("Calculs").Visible = True
Sheets("Calculs").Select
Range("A2:A25").Select
Selection.Copy
Sheets("Notes").Select
Range("A4").Select
ActiveSheet.Paste
Rows("38:38").Select
Application.CutCopyMode = False
Selection.Copy
Rows("4:37").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("A28:AE39").Select
Selection.ClearContents
Range("H4").Select
Sheets("Intro").Select
Sheets("Calculs").Visible = False
End Sub


Voici ma version (buguée):

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy
Destination:=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy
Destination:=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub


Malheureusement, ca ne marche pas, ou pas comme il faut!

Qqn peut-il m'aider?

tente ça...
Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy
Destination=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy
Destination=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub

ça devrait marcher là

Voici ma version (buguée):

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy
Destination:=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy
Destination:=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub


Malheureusement, ca ne marche pas, ou pas comme il faut!

Qqn peut-il m'aider?

Je ne pense pas qu'il faut regarder MON optimisation car elle ne marche pas
comme je veux...

Je pense qu'il faut regarder le premier code, le plus long, et essayer
d'améliorer celui-là plutôt!

tente ça...
Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy
Destination=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy
Destination=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub

ça devrait marcher là

Voici ma version (buguée):

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy
Destination:=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy
Destination:=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub


Malheureusement, ca ne marche pas, ou pas comme il faut!

Qqn peut-il m'aider?

oups, desolé, je n'avais pas fait attention au fait que ça ne
concordait pas... je pensais juste à une erreur de syntaxe
tiens, essaye ça ^^

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Sheets("Calculs").Range("A2:A25").Copy
Destination = Worksheets("Notes").Range("A4")
Rows("38:38").Copy
Rows("4:37").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False
Range("A28:AE39").ClearContents
End Sub

Bonjour Yeti,

Si tu veux copier le format de la plage A2:G2 de la feuil2
sur d'autres plages de cellules, voici 2 façons de faire !

IL faudra les adapter à ton application.


'-------------------------------
Sub test()

Dim Rg As Range
Set Rg = Worksheets("Feuil1").Range("A2:G2")
Rg.Copy
For Each sh In Worksheets
sh.Range("A5:G10").PasteSpecial xlPasteFormats
Next
Application.CutCopyMode = False

End Sub

'-------------------------------
Sub test2()

Dim Rg As Range
Set Rg = Worksheets("Feuil1").Range("A2:G2")
Rg.Copy
Worksheets("Feuil2").Range("A1:G5").PasteSpecial xlPasteFormats
Worksheets("Feuil3").Range("A10:G25").PasteSpecial xlPasteFormats
Application.CutCopyMode = False

End Sub
'-------------------------------


Salutations!





"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news: 54027E5F-49B4-484A-BBF0-FC24FEF98EB5@microsoft.com...
Bonjour,

Je n'arrive pas a optimiser ce programme sans avoir une erreur. Voici le code:

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Sheets("Notes").Visible = True
Sheets("Calculs").Visible = True
Sheets("Calculs").Select
Range("A2:A25").Select
Selection.Copy
Sheets("Notes").Select
Range("A4").Select
ActiveSheet.Paste
Rows("38:38").Select
Application.CutCopyMode = False
Selection.Copy
Rows("4:37").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("A28:AE39").Select
Selection.ClearContents
Range("H4").Select
Sheets("Intro").Select
Sheets("Calculs").Visible = False
End Sub


Voici ma version (buguée):

Private Sub Image1_Click()
'On copie la liste des branches étudiées à l'école secondaire
Worksheets("Calculs").Range("A2:A25").Copy
Destination:=Worksheets("Notes").Range("A4")
Worksheets("Notes").Rows("38:38").Copy
Destination:=Worksheets("Notes").Rows("4:37")
Range("A28:AE39").ClearContents
End Sub


Malheureusement, ca ne marche pas, ou pas comme il faut!

Qqn peut-il m'aider?