Planning

[bono]

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

 

[ChristianS]

Bonjour le Forum, Salut Bono
Bono dis nous ce qui se passe avec cette macro quand tu l'appelles. (Messages, boucles infinies etc...) Ca nous aiderait à mieux cerner le Pb.
Je suppose qu'il y a d'autres procédures avec celle-ci
A+
ChS

 

[CHti160]

Salut "bono" et "ChristianS"
bonjour le "FORUM"
avec le peu d'infos j'ai bidouilé cela en interprétant la macro
donc tu regardes et tu commentes
A+++
Jean Marie

 

[Bernard]

Bonjour Bono

Une mise en forme et ça marche :

Option Explicit
Public Sub Dessine()
Dim Ligne As Integer
Dim Debut As Integer, Fin As Integer
Dim Couleur As Byte, Z As Integer

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
.PatternColorIndex = xlAutomatic
End With
Next Z
Ligne = Ligne + 1
Wend
End Sub

Cordialement

Bernard