Colorier des cellules suivant une valeur

Celeborn61 à dit:

Salut,

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

Cliquez pour agrandir...

phlaurent55 à dit:

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

Code:

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

Code:

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

à+

Cliquez pour agrandir...

akilon à dit:

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

Cliquez pour agrandir...

carcharodon-carcharias à dit:

bonsoir
ou bien ceci

Code:

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

Cliquez pour agrandir...