Coloriage de cellule, sous condition
Résolu
uly2562
Messages postés
86
Statut
Membre
-
uly2562 Messages postés 86 Statut Membre -
uly2562 Messages postés 86 Statut Membre -
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
4 réponses
-
Re,
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 -
Bonjour,
uniquement si une certaine cellule est supprimée. Contenu efface ou cellule supprimee ??? -
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 -
MERCIIIII
tout simplement nickel.
Mon patron est content, c'est cool
je te remercie encore une fois f894009, et bonne continuation
