Augment le nombre de mise forme conditionnel
lotussss
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je voudrais savoir comment augmenter le nombre de mise en forme conditionnelle sous excel 2003 bien sur sous forme vba.
Merci
Je voudrais savoir comment augmenter le nombre de mise en forme conditionnelle sous excel 2003 bien sur sous forme vba.
Merci
Configuration: Windows Vista Internet Explorer 7.0
A voir également:
- Augment le nombre de mise forme conditionnel
- Mise en forme conditionnelle excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Clé de mise à niveau windows 7 gratuit - Guide
- Nombre de page - Guide
1 réponse
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)
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)
