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 -
A voir également:
- Globaliser un macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
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