G
Guest
Invité
bonjours je viens vair vous pour améliorer ma macro elle fonctionne très bien mais je voudrais que la macro ce lance a la moindre modification d'une des cases sélectionnées et ne pas être obliger d'entrer dans une case pour la lancer voici ma chose
Sub copies()
Range("A1: D33").Select
Range("a1: D33").Activate
Selection.Copy
Sheets("florian ").Select
Range("A1: D33").Select
Range("a1").Activate
Sheets(Array("Florian ", "Jean Marc", "Philippe ", "Francis", "Nicolas", _
" sans les heures tec th", "yoan", "dorian", "kurdy", "chetritt", "pierre", _
"Richard ", "Bruno ", "Patrick ", "mily picart", "virgile", " sans les heures tec EU", _
"Nicole ", "Isabelle ", "Babeth ", "Nathalie", "Dorine", "Géraldine", "Annie Saldana", "admin th ss les heures")).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("planing gen").Select
Sheets("planing gen").Activate
End Sub
votre avis m’intéresse :d
et si le code est simplifiable je prend aussi
Sub copies()
Range("A1: D33").Select
Range("a1: D33").Activate
Selection.Copy
Sheets("florian ").Select
Range("A1: D33").Select
Range("a1").Activate
Sheets(Array("Florian ", "Jean Marc", "Philippe ", "Francis", "Nicolas", _
" sans les heures tec th", "yoan", "dorian", "kurdy", "chetritt", "pierre", _
"Richard ", "Bruno ", "Patrick ", "mily picart", "virgile", " sans les heures tec EU", _
"Nicole ", "Isabelle ", "Babeth ", "Nathalie", "Dorine", "Géraldine", "Annie Saldana", "admin th ss les heures")).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("planing gen").Select
Sheets("planing gen").Activate
End Sub
votre avis m’intéresse :d
et si le code est simplifiable je prend aussi