Colorer x cellules en fonction d'une valeur

Résolu

romaingateau Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
romaingateau Messages postés 8 Date d'inscription Statut Membre Dernière intervention - 3 juin 2015 à 11:50

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

A voir également:

Colorer x cellules en fonction d'une valeur
Fonction si et - Guide
Site x - Guide
Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. - Forum VB / VBA
Mise en forme conditionnelle "compris entre" ✓ - Forum Excel

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

romaingateau Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Ha merci beaucoup, j'ai passé du temps à chercher!

Réponse 2 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

romaingateau Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Merci,

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

Cordialement

Discussions similaires

Dimensions L x l x H : comment lire ces infos ?

additionner nombres dans cellules avec texte

Excel : colorer une cellule sous condition d'une autre ?

Changer la couleur d'une cellule en fonction d'une autre cellule

Remplir une cellule (texte) en fonction d'une autre (texte).

Votre réponse

Discussions similaires