Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment réduire se code, et pourquoi mes fusion de cellule ne fonctionne pas

E

eddy38

XLDnaute Nouveau
Bonsoir a tous, j'aimerai gagner du temps sur l'affichage de cet macro ! qui reste rapide, mais je doit en ouvrir une grosse quantité a la suite et sa reste long ?

et mon autre souci sont mes fusion et centrage de cellule que bug complet et je me demande si en réduisant mon code je n'aurai pas fait une mauvaise manip ?

Merci d'avance pour votre aide

Sub Tableau_inventaire_secteur_frais()

' recupilatif des taches effectué par les inventoriste et analyse des incidents

'largeure des colonne
Columns("A:A").Select
Selection.ColumnWidth = 15
Columns("N:N").Select
Selection.ColumnWidth = 14
Columns("O:O").Select
Selection.ColumnWidth = 14
Columns("P").Select
Selection.ColumnWidth = 7
Columns("Q:Q").Select
Selection.ColumnWidth = 7
Columns("R:R").Select
Selection.ColumnWidth = 7
Columns("S:S").Select
Selection.ColumnWidth = 14
Columns("T:T").Select
Selection.ColumnWidth = 50
Columns("U:U").Select
Selection.ColumnWidth = 14
Columns("V:V").Select
Selection.ColumnWidth = 30
Columns("Y:Y").Select
Selection.ColumnWidth = 14
Columns("Z:Z").Select
Selection.ColumnWidth = 14
Columns("AA:AA").Select
Selection.ColumnWidth = 7
Columns("AB:AB").Select
Selection.ColumnWidth = 7
Columns("AC:AC").Select
Selection.ColumnWidth = 7
Columns("AD:AD").Select
Selection.ColumnWidth = 12
Columns("AE:AE").Select
Selection.ColumnWidth = 40
ActiveWindow.ScrollColumn = 24
Columns("AF:AF").Select
Selection.ColumnWidth = 15
Columns("AG:AG").Select
Selection.ColumnWidth = 20.14
Columns("AH:AH").Select
Selection.ColumnWidth = 14

'entête et fusion
Range("A22").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom

End With
Selection.Merge
ActiveCell.FormulaR1C1 = "frais"
With Selection.Font
.Name = "Calibri"
.Size = 14

End With
'Selection.Font.Bold = True
Range("E2").Select
ActiveCell.FormulaR1C1 = "FR"
With Selection.Font
.Name = "Calibri"
.Size = 14
End With

Range("F2:G2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"


Range("N2").Select
ActiveCell.FormulaR1C1 = "frais"
With Selection.Font
.Name = "Calibri"
.Size = 14
End With

Range("S2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"

Range("Y2").Select
ActiveCell.FormulaR1C1 = "frais"
With Selection.Font
.Name = "Calibri"
.Size = 14
End With

Range("AE2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"

Range("N4:V4").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("R2:S2").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Range("O5:R5").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("Y4:AH4").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("Z5:AC5").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("AE2").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A5:J5").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Range("A12:J12").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With


Range("A24:C24").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A25:C25").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Range("A26:C26").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Range("A27:C27").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A28:C28").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Range("A29:C29").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Range("A30:C30").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A31:C31").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A32:C32").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A33:C33").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Selection.Merge
Range("A34:C34").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext

End With

'entête tableau colors bleu
Range("A5:J5").Select
ActiveCell.FormulaR1C1 = "emplacement vide picking, stockages (premier passage)"
Range("A12:J12").Select
ActiveCell.FormulaR1C1 = "emplacement vide picking, stockages (deuxième passage)"
Range("A24:C24").Select
ActiveCell.FormulaR1C1 = "index des taches"
Range("D24").Select
ActiveCell.FormulaR1C1 = "taches ab"
Range("E24").Select
ActiveCell.FormulaR1C1 = "lundi"
Range("F24").Select
ActiveCell.FormulaR1C1 = "mardi"
Range("G24").Select
ActiveCell.FormulaR1C1 = "mercredi"
Range("H24").Select
ActiveCell.FormulaR1C1 = "jeudi"
Range("I24").Select
ActiveCell.FormulaR1C1 = "vendredi"
Range("J24").Select
ActiveCell.FormulaR1C1 = "samedi"
Range("K24").Select
ActiveCell.FormulaR1C1 = "total"
Range("L24").Select
ActiveCell.FormulaR1C1 = "fr"
Range("N4:V4").Select
ActiveCell.FormulaR1C1 = "traitement des écarts"
Range("Y4:AH4").Select
ActiveCell.FormulaR1C1 = "gestion des blocages qualité"

'entête tableau clors rouge
Range("A6").Select
ActiveCell.FormulaR1C1 = "allées "
Range("B6").Select
ActiveCell.FormulaR1C1 = "41"
Range("C6").Select
ActiveCell.FormulaR1C1 = "42"
Range("D6").Select
ActiveCell.FormulaR1C1 = "43"
Range("E6").Select
ActiveCell.FormulaR1C1 = "44"
Range("F6").Select
ActiveCell.FormulaR1C1 = "45"
Range("G6").Select
ActiveCell.FormulaR1C1 = "46"
Range("H6").Select
ActiveCell.FormulaR1C1 = "47"
Range("I6").Select
ActiveCell.FormulaR1C1 = "48"
Range("J6").Select
ActiveCell.FormulaR1C1 = "49"
Range("A7").Select
ActiveCell.FormulaR1C1 = "evs"
Range("A8").Select
ActiveCell.FormulaR1C1 = "evp"

Range("A13").Select
ActiveCell.FormulaR1C1 = "allées "
Range("B13").Select
ActiveCell.FormulaR1C1 = "41"
Range("C13").Select
ActiveCell.FormulaR1C1 = "42"
Range("D13").Select
ActiveCell.FormulaR1C1 = "43"
Range("E13").Select
ActiveCell.FormulaR1C1 = "44"
Range("F13").Select
ActiveCell.FormulaR1C1 = "45"
Range("G13").Select
ActiveCell.FormulaR1C1 = "46"
Range("H13").Select
ActiveCell.FormulaR1C1 = "47"
Range("I13").Select
ActiveCell.FormulaR1C1 = "48"
Range("J13").Select
ActiveCell.FormulaR1C1 = "49"
Range("A14").Select
ActiveCell.FormulaR1C1 = "evs"
Range("A15").Select
ActiveCell.FormulaR1C1 = "evp"

Range("A25:C25").Select
ActiveCell.FormulaR1C1 = "écarts (ect)"
Range("D25").Select
ActiveCell.FormulaR1C1 = "ECT"
Range("A26:C26").Select
ActiveCell.FormulaR1C1 = "emplacement vide stockage (evs)"
Range("D26").Select
ActiveCell.FormulaR1C1 = "EVS"
Range("A27:C27").Select
ActiveCell.FormulaR1C1 = "emplacement vide picking (evp)"
Range("D27").Select
ActiveCell.FormulaR1C1 = "EVP"
Range("A28:C28").Select
ActiveCell.FormulaR1C1 = "emplacement bloqué (ebl)"
Range("D28").Select
ActiveCell.FormulaR1C1 = "EBL"
Range("A29:C29").Select
ActiveCell.FormulaR1C1 = "vérification dlc (dlc) "
Range("D29").Select
ActiveCell.FormulaR1C1 = "DLC"
Range("A30:C30").Select
ActiveCell.FormulaR1C1 = "inventaire raque dynamique (rd)"
Range("D30").Select
ActiveCell.FormulaR1C1 = "RD"
Range("A31:C31").Select
ActiveCell.FormulaR1C1 = "gestion des implantation (gip) "
Range("D31").Select
ActiveCell.FormulaR1C1 = "GIP"
Range("A32:C32").Select
ActiveCell.FormulaR1C1 = "gestion des désactivés (gdd)"
Range("D32").Select
ActiveCell.FormulaR1C1 = "GDD"
Range("A33:C33").Select
ActiveCell.FormulaR1C1 = "remise en stock (retour qualité) (rsq)"
Range("D33").Select
ActiveCell.FormulaR1C1 = "RSQ"
Range("A34:C34").Select
ActiveCell.FormulaR1C1 = "gestion incident chef d'équipe (gie)"
Range("D34").Select
ActiveCell.FormulaR1C1 = "GIE"

Range("N5").Select
ActiveCell.FormulaR1C1 = "jour"
Range("O5:R5").Select
ActiveCell.FormulaR1C1 = "emplacement"
Range("S5").Select
ActiveCell.FormulaR1C1 = "code"
Range("T5").Select
ActiveCell.FormulaR1C1 = "désignation"
Range("U5").Select
ActiveCell.FormulaR1C1 = "écart"
Range("V5").Select
ActiveCell.FormulaR1C1 = "observation"

Range("Y5").Select
ActiveCell.FormulaR1C1 = "jour"
Range("Z5:AC5").Select
ActiveCell.FormulaR1C1 = "emplacement"
Range("AD5").Select
ActiveCell.FormulaR1C1 = "code"
Range("AE5").Select
ActiveCell.FormulaR1C1 = "désignation"
Range("AF5").Select
ActiveCell.FormulaR1C1 = "date de blocage"
Range("AG5").Select
ActiveCell.FormulaR1C1 = "observation"
Range("AH5").Select
ActiveCell.FormulaR1C1 = "date de sortie"

'couleur entête tableau bleu
Range("A5:J5").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
End With
Range("A12:J12").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
End With
Range("A24:L24").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
End With

Range("N4:V4").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
End With

Range("Y4:AH4").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
End With

'couleur entête rouge
Range("A6:J6,A7:A8").Select
Range("A8").Activate
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With

Range("A13:J13,A14:A15").Select
Range("A14").Activate
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With
Range("A2534").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With

Range("N5:V5").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With

Range("Y5:AH5").Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With

'cadrillage tableau
Range("A5:J8").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Range("A12:J15").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Range("A24:K34").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Range("L24").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Range("N4:V50").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With


Range("A39:H39").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext

End With
Selection.Merge
Range("A40:B40").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Selection.Merge
Range("A41:B41").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A42:B42").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext

End With
Selection.Merge
Range("A43:B43").Select
With Selection
.HorizontalAlignment = xlCenter
.ReadingOrder = xlContext
End With

Range("A39:H39").Select
ActiveCell.FormulaR1C1 = "gestion du temps liée au traitement "
Range("A41:B41").Select
ActiveCell.FormulaR1C1 = "causse eddy"
Range("A42:B42").Select
ActiveCell.FormulaR1C1 = "mollard didier"
Range("C41").Select
ActiveCell.FormulaR1C1 = "1010541"
Range("C42").Select
ActiveCell.FormulaR1C1 = "42779"
Range("C40").Select
ActiveCell.FormulaR1C1 = "cd invent"
Range("D40").Select
ActiveCell.FormulaR1C1 = "incident recp"
Range("E40").Select
ActiveCell.FormulaR1C1 = "incident prep"
Range("F40").Select
ActiveCell.FormulaR1C1 = "incident carist"
Range("G40").Select
ActiveCell.FormulaR1C1 = "inventai tour"
Range("H40").Select
ActiveCell.FormulaR1C1 = "total"
Range("A39:H39").Select
With Selection.Interior
.Pattern = xlSolid
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599993896298105
End With
Range("A40:C43,D40:H40").Select
Range("D40").Activate
With Selection.Interior
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
End With

Range("Y4:AH50").Select

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With

Range("A39:H43").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
'With Selection.Borders(xlEdgeBottom)
'.LineStyle = xlContinuous
'.Weight = xlThin
'End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With

Range("A22").Select
End Sub
 
Trier par date Trier par votes

JCGL

XLDnaute Barbatruc
Re : Comment réduire se code, et pourquoi mes fusion de cellule ne fonctionne pas

Bonjour à tous,

Une piste :


Coucou à l"mai Didier
A+ à tous
 

Pièces jointes

  • Select_Selection.gif
    3.8 KB · Affichages: 67
  • Select_Selection.gif
    3.8 KB · Affichages: 66
Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc
Re : Comment réduire se code, et pourquoi mes fusion de cellule ne fonctionne pas

Bonjour à tous,

Un essai :

VB: 
Option Explicit


Sub Tableau_inventaire_secteur_frais()
' recupilatif des taches effectué par les inventoriste et analyse des incidents
'largeure des colonne
    Columns("A:A").ColumnWidth = 15
    Columns("N:O").ColumnWidth = 14
    Columns("P:R").ColumnWidth = 7
    Columns("S:S").ColumnWidth = 14
    Columns("T:T").ColumnWidth = 50
    Columns("U:U").ColumnWidth = 14
    Columns("V:V").ColumnWidth = 30
    Columns("Y:Z").ColumnWidth = 14
    Columns("AA:AC").ColumnWidth = 7
    Columns("AD:AD").ColumnWidth = 12
    Columns("AE:AE").ColumnWidth = 40
    Columns("AF:AF").ColumnWidth = 15
    Columns("AG:AG").ColumnWidth = 20.14
    Columns("AH:AH").ColumnWidth = 14


    'entête et fusion
    With Range("A22")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Merge
        .Formula = "Frais"
        With .Font
            .Name = "Calibri"
            .Size = 14
            '.Font.Bold = True
        End With
    End With


    With Range("E2")
        .Formula = "FR"
        With .Font
            .Name = "Calibri"
            .Size = 14
        End With
    End With


    Range("F2:G2").Formula = "=TODAY()"


    With Range("N2")
        .Formula = "Frais"
        With .Font
            .Name = "Calibri"
            .Size = 14
        End With
    End With


    Range("S2").Formula = "=TODAY()"


    With Range("Y2")
        .Formula = "Frais"
        With .Font
            .Name = "Calibri"
            .Size = 14
        End With
    End With


    Range("AE2").Formula = "=TODAY()"


    With Range("N4:V4")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("R2:S2")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("O5:R5")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("Y4:AH4")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("Z5:AC5")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("AE2")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("A5:J5")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("A12:J12")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    With Range("A24:C34")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With




    'entête tableau colors bleu
    Range("A5:J5") = "emplacement vide picking, stockages (premier passage)"
    Range("A12:J12") = "emplacement vide picking, stockages (deuxième passage)"
    Range("A24:C24") = "index des taches"
    Range("D24") = "taches ab"
    Range("E24") = "lundi"
    Range("F24") = "mardi"
    Range("G24") = "mercredi"
    Range("H24") = "jeudi"
    Range("I24") = "vendredi"
    Range("J24") = "samedi"
    Range("K24") = "total"
    Range("L24") = "fr"
    Range("N4:V4") = "traitement des écarts"
    Range("Y4:AH4") = "gestion des blocages qualité"


    'entête tableau clors rouge
    Range("A6") = "allées "
    Range("B6") = "41"
    Range("C6") = "42"
    Range("D6") = "43"
    Range("E6") = "44"
    Range("F6") = "45"
    Range("G6") = "46"
    Range("H6") = "47"
    Range("I6") = "48"
    Range("J6") = "49"
    Range("A7") = "evs"
    Range("A8") = "evp"


    Range("A13") = "allées "
    Range("B13") = "41"
    Range("C13") = "42"
    Range("D13") = "43"
    Range("E13") = "44"
    Range("F13") = "45"
    Range("G13") = "46"
    Range("H13") = "47"
    Range("I13") = "48"
    Range("J13") = "49"
    Range("A14") = "evs"
    Range("A15") = "evp"


    Range("A25:C25") = "écarts (ect)"
    Range("D25") = "ECT"
    Range("A26:C26") = "emplacement vide stockage (evs)"
    Range("D26") = "EVS"
    Range("A27:C27") = "emplacement vide picking (evp)"
    Range("D27") = "EVP"
    Range("A28:C28") = "emplacement bloqué (ebl)"
    Range("D28") = "EBL"
    Range("A29:C29") = "vérification dlc (dlc) "
    Range("D29") = "DLC"
    Range("A30:C30") = "inventaire raque dynamique (rd)"
    Range("D30") = "RD"
    Range("A31:C31") = "gestion des implantation (gip) "
    Range("D31") = "GIP"
    Range("A32:C32") = "gestion des désactivés (gdd)"
    Range("D32") = "GDD"
    Range("A33:C33") = "remise en stock (retour qualité) (rsq)"
    Range("D33") = "RSQ"
    Range("A34:C34") = "gestion incident chef d'équipe (gie)"
    Range("D34") = "GIE"


    Range("N5") = "jour"
    Range("O5:R5") = "emplacement"
    Range("S5") = "code"
    Range("T5") = "désignation"
    Range("U5") = "écart"
    Range("V5") = "observation"


    Range("Y5") = "jour"
    Range("Z5:AC5") = "emplacement"
    Range("AD5") = "code"
    Range("AE5") = "désignation"
    Range("AF5") = "date de blocage"
    Range("AG5") = "observation"
    Range("AH5") = "date de sortie"


    'couleur entête tableau bleu
    With Range("A5:J5").Interior
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
    End With
    With Range("A12:J12").Interior
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
    End With


    With Range("A24:L24").Interior
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
    End With


    With Range("N4:V4").Interior
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
    End With


    With Range("Y4:AH4").Interior
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
    End With


    'couleur entête rouge
    With Range("A6:J6,A7:A8").Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With


    With Range("A13:J13,A14:A15").Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With


    With Range("A2534").Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With


    With Range("N5:V5").Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With


    With Range("Y5:AH5").Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With


    'cadrillage tableau
    With Range("A5:J8").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With


    With Range("A12:J15").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With


    With Range("A24:K34").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With


    With Range("L24").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Range("N4:V50").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With


    With Range("A39:H39")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Merge
    End With


    With Range("A40:B40")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Merge
    End With


    With Range("A41:B41")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Merge
    End With


    With Range("A42:B42")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Merge
    End With


    With Range("A43:B43")
        .HorizontalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With


    Range("A39:H39") = "gestion du temps liée au traitement "
    Range("A41:B41") = "causse eddy"
    Range("A42:B42") = "mollard didier"
    Range("C41") = "1010541"
    Range("C42") = "42779"
    Range("C40") = "cd invent"
    Range("D40") = "incident recp"
    Range("E40") = "incident prep"
    Range("F40") = "incident carist"
    Range("G40") = "inventai tour"
    Range("H40") = "total"


    With Range("A39:H39").Interior
        .Pattern = xlSolid
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.599993896298105
    End With


    With Range("A40:C43,D40:H40").Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
    End With


    With Range("Y4:AH50").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With


    With Range("A39:H43").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With


    Range("A22").Select
End Sub

A+ à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

H
  • Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
291
vgendron
L
  • Question
Microsoft 365 Changement de couleurs de cellules dans plusieurs feuilles suite à une modification
Réponses
4
Affichages
370
lolo_excelbeginner
L
K
  • Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
578
Kevin38
K
R
  • Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
1 K
TooFatBoy
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
367
M@xu3L
M
S
  • Résolu(e)
XL 2019 VBA pour créer un nouvel onglet
Réponses
2
Affichages
478
sum01
S
M
  • Question
Microsoft 365 VBA fusion défusion cellule gestion cellules
Réponses
8
Affichages
249
mix770
M
  • Résolu(e)
XL 2013 Ecriture de code condensé
Réponses
9
Affichages
384
ZAKAO
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
3 K
Staple1600
L
  • Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
612
fanfan38
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…