Colorer x cellules en fonction d'une valeur Résolu

Question

Bonjour, 

Je travaille sur un projet de planning automatique de la construction. 
Pour cela il faut que j'arrive à tracer colorer "x" cellules, "x" étant le temps affecté à une tâche.

Mon problème est que j'ai une erreur définie par l'application ou par l'objet.

Je pense que je n'arrive aps à écrire la borne supérieure de la zone à colorer.
Pouvez vous m'aider ? 

J'ai écrit cela:

Sub Caseàcocher43_Cliquer()
Dim cel
Dim plage As Range
Dim valeur As Integer

valeur = Cells(7, 2).Value       ' Correspond à la durée de la tâche 

MsgBox (valeur)
Set plage = Range(Cells(G7), Cells("G" & valeur)) 'met en couleur de la case G7 à G"x". 

    For Each cel In plage
        cel.Interior.ColorIndex = 4
    Next cel

End Sub


Configuration: Windows 7 / Chrome 42.0.2311.135

cs_Le Pivert · Answer

Bonjour,

tu poses des questions, mais tu ne réponds pas aux réponses qui t'ont été faites! 
Cela n'encourage pas à te répondre de nouveau.

https://forums.commentcamarche.net/forum/affich-31863820-formes-a-dimensions-automatiques

cs_Le Pivert · Answer

Voilà:

Sub Caseàcocher43_Cliquer()
Dim cel
Dim plage As Range
Dim valeur As Integer
valeur = Cells(7, 2).Value ' Correspond à la durée de la tâche
MsgBox (valeur)
 Range("G7:G" & valeur).Interior.ColorIndex = 4
End Sub

Colorer x cellules en fonction d'une valeur

2 réponses

Votre réponse

Discussions similaires