B
bono
Guest
Bonsoir ! a toutes et à tous
Je cherche à faire un planning, mais j'ai un PB ! avec ma macro, y-a t-il une ame CHARITABLE qui pourait m'aider !!
Public Sub Dessine()
Ligne = 13:
While Cells(Ligne, 15) <> ""
Debut = 20 + CInt(Cells(Ligne, 11).Value) - CInt(Cells(Ligne, 10).Value)
Fin = 20 + CInt(Cells(Ligne, 15).Value) - CInt(Cells(Ligne, 11).Value)
Couleur = 3
For Z = Debut To Fin
Cells(Ligne, Z).Select
With Selection.Interior
.ColorIndex = Couleur: .Pattern = Solid
.PatternColorIndex = xlAutomatic
End With
Next Z
Ligne = Ligne + 1
Wend
End Sub
Merci de vos aides
bono
Je cherche à faire un planning, mais j'ai un PB ! avec ma macro, y-a t-il une ame CHARITABLE qui pourait m'aider !!
Public Sub Dessine()
Ligne = 13:
While Cells(Ligne, 15) <> ""
Debut = 20 + CInt(Cells(Ligne, 11).Value) - CInt(Cells(Ligne, 10).Value)
Fin = 20 + CInt(Cells(Ligne, 15).Value) - CInt(Cells(Ligne, 11).Value)
Couleur = 3
For Z = Debut To Fin
Cells(Ligne, Z).Select
With Selection.Interior
.ColorIndex = Couleur: .Pattern = Solid
.PatternColorIndex = xlAutomatic
End With
Next Z
Ligne = Ligne + 1
Wend
End Sub
Merci de vos aides
bono