Colorer x cellules en fonction d'une valeur [Résolu/Fermé]

Signaler
Messages postés
8
Date d'inscription
lundi 20 avril 2015
Statut
Membre
Dernière intervention
3 juin 2015
-
Messages postés
8
Date d'inscription
lundi 20 avril 2015
Statut
Membre
Dernière intervention
3 juin 2015
-
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


2 réponses

Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
532
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

Messages postés
8
Date d'inscription
lundi 20 avril 2015
Statut
Membre
Dernière intervention
3 juin 2015

Ha merci beaucoup, j'ai passé du temps à chercher!
Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
532
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
Messages postés
8
Date d'inscription
lundi 20 avril 2015
Statut
Membre
Dernière intervention
3 juin 2015

Merci,

je reconnais que j'ai oublié le précédent post.
Erreur à ne pas reproduire,

Cordialement