augment le nombre de mise forme conditionnel

Question

Bonjour,

Je voudrais savoir comment augmenter le nombre de mise en forme conditionnelle sous excel 2003 bien sur sous forme vba.

Merci

Mike-31 · Answer

Salut,

Avec ce genre de code dans les propriétés feuille par exemple, de la colonne A à T en saisissant un chiffre dans c'est exemple de 1 à 5

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Column = Columns("A:T") Then
    Dim Couleur As Integer, I As Integer, R As Long
    R = Target.Row
    Select Case UCase(Target)
    Case "1": Couleur = 6
    Target.Interior.ColorIndex = Couleur
    Target.Borders.ColorIndex = 16      'Pour associer le contour de cellule ici en noir
    Case "2": Couleur = 4
    Target.Interior.ColorIndex = Couleur
    Target.Borders.ColorIndex = 16
    Case "3": Couleur = 45
    Target.Interior.ColorIndex = Couleur
    Target.Borders.ColorIndex = 16
    Case "4": Couleur = 38
    Target.Interior.ColorIndex = Couleur
    Target.Borders.ColorIndex = 16
    Case "5": Couleur = 33
    Target.Interior.ColorIndex = Couleur
    Target.Borders.ColorIndex = 16
        'Si cellule vide
    Case Else: Couleur = Couleur
    Target.Interior.ColorIndex = xlNone
    Target.Borders.ColorIndex = xlNone
    End Select
'For I = 2 To 2
'Cells(R, I).Interior.ColorIndex = Couleur
'Cells(R, I).interior.ColorIndex = Couleur
'Cells(R, I).Borders.ColorIndex = 16
'Next
    End If
End Sub
A+


Un problème sans solution est un problème mal posé  (Einstein)

Augment le nombre de mise forme conditionnel

1 réponse

Votre réponse

Discussions similaires

Newsletters