Pour dhany

Bonjour dhany

Ton avis

Ma macro à ma façon à moi:

      With .Range("A1")
     .Characters(Start:=1, Length:=13).Font.ColorIndex = 5
     .Characters(Start:=14, Length:=1).Font.ColorIndex = 15
    .Characters(Start:=15, Length:=4).Font.ColorIndex = 3
     End With

     .Cells.Replace What:=An, Replacement:=An + 1
     .Cells.Replace What:=An - 1, Replacement:=An

     With .Range("A5")
     .Characters(Start:=7, Length:=7).Font.ColorIndex = 3
     .Characters(Start:=18, Length:=16).Font.ColorIndex = 3
      End With

      With .Range("A6")
     .Characters(Start:=7, Length:=7).Font.ColorIndex = 5
     .Characters(Start:=18, Length:=16).Font.ColorIndex = 5
      End With

      With .Range("G46")
     .Characters(Start:=18, Length:=16).Font.ColorIndex = 3
      End With

      With .Range("G47")
     .Characters(Start:=26, Length:=4).Font.ColorIndex = 3
     .Characters(Start:=41, Length:=2).Font.ColorIndex = 3
      End With

      With .Range("G53")
     .Characters(Start:=26, Length:=4).Font.ColorIndex = 3
     .Characters(Start:=41, Length:=2).Font.ColorIndex = 3
      End With

      With .Range("G54")
     .Characters(Start:=18, Length:=18).Font.ColorIndex = 3
     .Characters(Start:=57, Length:=6).Font.ColorIndex = 3
      End With

J'ai fait ça à ta façon à toi:

  With .[A1]
     .Characters(Start:=1, Length:=13).Font.ColorIndex = 5
     .Characters(Start:=14, Length:=1).Font.ColorIndex = 15
    .Characters(Start:=15, Length:=4).Font.ColorIndex = 3
    End With

     .Cells.Replace What:=An, Replacement:=An + 1        '1ère phase on augmente de 1 l'année supérieure
     .Cells.Replace What:=An - 1, Replacement:=An        '2ème phase on augmente de 1 l'année inférieure

     .[A5].Characters(Start:=7, Length:=7).Font.ColorIndex = 3
     .[A5].Characters(Start:=18, Length:=16).Font.ColorIndex = 3

     .[A6].Characters(Start:=7, Length:=7).Font.ColorIndex = 5
     .[A6].Characters(Start:=18, Length:=16).Font.ColorIndex = 5

     .[G46].Characters(Start:=18, Length:=16).Font.ColorIndex = 3

     .[G47].Characters(Start:=26, Length:=4).Font.ColorIndex = 3
     .[G47].Characters(Start:=41, Length:=2).Font.ColorIndex = 3

     .[G53].Characters(Start:=26, Length:=4).Font.ColorIndex = 3
     .[G53].Characters(Start:=41, Length:=2).Font.ColorIndex = 3

     .[G54].Characters(Start:=18, Length:=18).Font.ColorIndex = 3
     .[G54].Characters(Start:=57, Length:=6).Font.ColorIndex = 3

Amicalement

al87

Bonjour dhany

Tu n'as pas du voir mon post

Cordialement

Rechercher des sujets similaires à "dhany"