Coloriage de cellule, sous condition
Résolu
uly2562
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
uly2562 Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
uly2562 Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train de faire un gros programme en langage VBA, et j'ai un petit souci:
Je voudrai colorier une plage de cellule en blanc, uniquement si une certaine cellule est supprimée.
Je rappelle que c'est une macro qui tourne en continue. voici un extrait:
Private Sub Worksheet_Change(ByVal Target As Range)
// macro concernant la suppression
==>
//
If Not Intersect(Target, Range("D11")) Is Nothing Then
Range("D13:D26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("E11")) Is Nothing Then
Range("E13:E26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("F11")) Is Nothing Then
Range("F13:F26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("G11")) Is Nothing Then
Range("G13:G26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("H11")) Is Nothing Then
Range("H13:H26").Font.ColorIndex = 1
End If
End Sub
Je suis en train de faire un gros programme en langage VBA, et j'ai un petit souci:
Je voudrai colorier une plage de cellule en blanc, uniquement si une certaine cellule est supprimée.
Je rappelle que c'est une macro qui tourne en continue. voici un extrait:
Private Sub Worksheet_Change(ByVal Target As Range)
// macro concernant la suppression
==>
//
If Not Intersect(Target, Range("D11")) Is Nothing Then
Range("D13:D26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("E11")) Is Nothing Then
Range("E13:E26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("F11")) Is Nothing Then
Range("F13:F26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("G11")) Is Nothing Then
Range("G13:G26").Font.ColorIndex = 1
End If
If Not Intersect(Target, Range("H11")) Is Nothing Then
Range("H13:H26").Font.ColorIndex = 1
End If
End Sub
A voir également:
- Coloriage de cellule, sous condition
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Coloriage 2 - Télécharger - Études & Formations
- Aller à la ligne dans une cellule excel - Guide
- Impossible de fusionner cellule excel ✓ - Forum Excel
4 réponses
Re,
Couleur ecriture blanche si cellule vide: (d'apres votre code)
Couleur ecriture blanche si cellule vide: (d'apres votre code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D11:H11")) Is Nothing And Target = "" Then
Range(Target.Address).Offset(3, 0).Resize(14).Font.ColorIndex = 2
End If
End Sub
oui, c'est ca.
Par exemple, si je supprime le contenu de la cellule F13 (donnée aléatoire)
Et bien j'aimerai que une certaine plage de cellule soit colorier en blanc.
"Je parle bien du contenu, et non de la cellule elle-même"
Merci de ton attention
Le Husky un chien de traineaux, le chihuahua un chien de trainée
Par exemple, si je supprime le contenu de la cellule F13 (donnée aléatoire)
Et bien j'aimerai que une certaine plage de cellule soit colorier en blanc.
"Je parle bien du contenu, et non de la cellule elle-même"
Merci de ton attention
Le Husky un chien de traineaux, le chihuahua un chien de trainée