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   -
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
A voir également:

4 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

uniquement si une certaine cellule est supprimée. Contenu efface ou cellule supprimee ???
0
uly2562 Messages postés 70 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0
uly2562 Messages postés 70 Date d'inscription   Statut Membre Dernière intervention   1
 
MERCIIIII
tout simplement nickel.
Mon patron est content, c'est cool
je te remercie encore une fois f894009, et bonne continuation
0