Pour dhany
a
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
a
Bonjour dhany
Tu n'as pas du voir mon post
Cordialement