Colorier des cellules suivant une valeur

[akilon]

Bsr à tous

D'abord merci a vous pour vos réponses d'hier et avant hier

J'ai un nouveau pb je voudrai si possible automatiser le coloriage de cellule suivant une valeur

ex : valeur : A1=7 je voudrai que 7 cellules en ligne soit colorié

merci à vous😕

 

[Celeborn61]

Re : Colorier des cellules suivant une valeur

Salut,

Par la mise en forme conditionnelle.
Une formule pour surveiller ta cellule A1

 

[phlaurent55]

Re : Colorier des cellules suivant une valeur

Bonsoir akilon

voir fichier joint
la macro colorie un mnombre de cellules egal à la valeur de A1 après avoir "mis à blanc" less cellules coloriées lors de l'essai précédent

vois si cela te convient

 

[akilon]

Re : Colorier des cellules suivant une valeur

merci pour ta reponse mais je ne vois pas car je voudrai que suivant la valeur A1 ex 4 je voudrai que D1; E1; F1; G1 soit colorié si A1=6 D1 E1 F1 G1 H1 I1 soit colorié

merci

 

[phlaurent55]

Re : Colorier des cellules suivant une valeur

Re,
il suffisait de le préciser au départ
modifie ta macro comme ceci

Dim nombre
nombre = Range("a1").Value
For i = 1 To 256
Cells(1, i).Interior.ColorIndex = 0
Next i
For i = 1 To nombre
Cells(1, i + [COLOR="Blue"]3[/COLOR]).Interior.ColorIndex = 6
Next i
[COLOR="blue"]Range("A1").Select[/COLOR]

tu peux également mettre le code dans

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nombre
nombre = Range("a1").Value
For i = 1 To 256
Cells(1, i).Interior.ColorIndex = 0
Next i
For i = 1 To nombre
Cells(1, i + 3).Interior.ColorIndex = 6
Next i
Range("A1").Select
End Sub

à+

 

[akilon]

Re : Colorier des cellules suivant une valeur

Salut,

Par la mise en forme conditionnelle.
Une formule pour surveiller ta cellule A1

merci pour ta reponse en faite je voudrai que si A1 = 2 j'ai D1 et E1 qui se colorie et si A1 = 3 j'ai D1 E1 F1 qui se colorie

 

[Cousinhub]

Re : Colorier des cellules suivant une valeur

Bonjour,
sélectionne la zone que tu veux coloriée (De D1 à .....)
Format/Mise en forme conditionnelle
La formule est : =COLONNE()-$A1<=3
Format : ce que tu veux
OK

 

[phlaurent55]

Re : Colorier des cellules suivant une valeur

Re,

un petit oubli, tu seras limité à "<254" dans ta cellule A1

ph Laurent

 

[akilon]

Re : Colorier des cellules suivant une valeur

Re,
il suffisait de le préciser au départ
modifie ta macro comme ceci

Dim nombre
nombre = Range("a1").Value
For i = 1 To 256
Cells(1, i).Interior.ColorIndex = 0
Next i
For i = 1 To nombre
Cells(1, i + [COLOR="Blue"]3[/COLOR]).Interior.ColorIndex = 6
Next i
[COLOR="blue"]Range("A1").Select[/COLOR]

tu peux également mettre le code dans

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nombre
nombre = Range("a1").Value
For i = 1 To 256
Cells(1, i).Interior.ColorIndex = 0
Next i
For i = 1 To nombre
Cells(1, i + 3).Interior.ColorIndex = 6
Next i
Range("A1").Select
End Sub

à+

merci bien pour ta macro super sympa
en faite je voulais faire ca dans le but de ma créer une plannif
ex : avec la date de debut et de fin des cellule de la meme ligne se colorie
voir fichier joint

encor merci

 

[akilon]

Re : Colorier des cellules suivant une valeur

merci bien pour ta macro super sympa
en faite je voulais faire ca dans le but de ma créer une plannif
ex : avec la date de debut et de fin des cellule de la meme ligne se colorie
voir fichier joint

encor merci

en faite je suis nouveau dans le forum et g du mal a suivre les discussions en temps reel je ne sais pas pq mais je suis obligé de sortir puis de revenir pour voir vo reponse🙁

 

[akilon]

Re : Colorier des cellules suivant une valeur

bonsoir
ou bien ceci

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X, I, Z    ' déclaration des variables
    X = Range("A1").Value    ' x = la valeur de A1
    If X = "" Then
        For Z = 1 To 249    ' Z =  de 1 à 249
            With Range("A1").Offset(0, Z).Interior
                .ColorIndex = xlNone
            End With
            Next Z
        End If
        'efface la couleur de fond de toute la ligne
        For Z = 1 To 249    ' Z =  de 1 à 249
            With Range("A1").Offset(0, Z).Interior
                .ColorIndex = xlNone
            End With
        Next Z    'suivant
        '        colorise le nombre de cellules voulues
        For I = 1 To X    'I =  de 1 à la valeur de X
            With Range("A1").Offset(0, I).Interior    ' pour les cellules adjacentes à A1 de la première à la I éme pour le fond
                .ColorIndex = 5    'l'index de couleur est 5
            End With    'fin de pour
        Next I    'suivant

    End Sub

merci pour ta reponse genial la macro
mais je voudrai la meme chose avec des date de debut et de fin c'est possible ?? voir fichier