Colorer x cellules en fonction d'une valeur
Résolu
romaingateau
Messages postés
9
Statut
Membre
-
romaingateau Messages postés 9 Statut Membre -
romaingateau Messages postés 9 Statut Membre -
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
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
2 réponses
-
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
-
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
