Globaliser un macro
Résolu
lauraSoe
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
-
lauraSoe Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
lauraSoe Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une macro valable pour certains cas mais je voudrai la globaliser pour tout mon carnet de commande, et aussi l'améliorer !
Pouvez-vous m'aider ?
Voici:
Merci beaucoup !
Bonne fin d'après-midi
J'ai une macro valable pour certains cas mais je voudrai la globaliser pour tout mon carnet de commande, et aussi l'améliorer !
Pouvez-vous m'aider ?
Voici:
'C/P des colonnes commandes et dates de livraisons
Sheets("CRNET-CDE").Range("C:C").Copy Destination:=Sheets("MACRO").Range("C1")
Sheets("CRNET-CDE").Range("F:F").Copy Destination:=Sheets("MACRO").Range("B1")
'C/P des retards
Sheets("CRNET-CDE").Select
Range("G:AH").Select
Selection.Copy
Sheets("MACRO").Select
Range("I1").Select
ActiveSheet.Paste
'Somme des retards
Range("I21").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-19]C:R[-1]C)"
Range("I21").Select
Selection.AutoFill Destination:=Range("I21:AJ21"), Type:=xlFillDefault
Range("I21:AJ21").Select
Range("AG22").Select
'Réorganisation, transpose
Range("I21:AJ21").Select
Selection.Copy
Range("I22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, transpose:=False
Range("I2:AJ21").Select
Range("I21").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("I1:AJ2").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, transpose:=True
'supression
Range("H1:AO2").Select
Selection.Delete Shift:=xlToLeft
Merci beaucoup !
Bonne fin d'après-midi
2 réponses
-
Est-ce que je peux simplifier comme ça ? (ce qui est en gras est ce que je supprime)
'C/P des colonnes commandes et dates de livraisons
Sheets("CRNET-CDE").Range("C:C").Copy Destination:=Sheets("MACRO").Range("C1")
Sheets("CRNET-CDE").Range("F:F").Copy Destination:=Sheets("MACRO").Range("B1")
'C/P des retards
Sheets("CRNET-CDE").Select
Range("G:AH").Select
Selection.Copy
Sheets("MACRO").Select
Range("I1").Select
ActiveSheet.Paste
'Somme des retards
Range("I21").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-19]C:R[-1]C)"
Range("I21").Select
Selection.AutoFill Destination:=Range("I21:AJ21"), Type:=xlFillDefault
Range("I21:AJ21").Select
Range("AG22").Select
'Réorganisation, transpose
Range("I21:AJ21").Select
Selection.Copy
Range("I22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, transpose:=False
Range("I2:AJ21").Select
Range("I21").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("I1:AJ2").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, transpose:=True
'supression
Range("H1:AO2").Select
Selection.Delete Shift:=xlToLeft -
C'est bon j'ai trouvé
