Coloriage de cellule, sous condition

Résolu/Fermé
uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 - 22 févr. 2014 à 11:37
uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 - 22 févr. 2014 à 13:42
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 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
Modifié par f894009 le 22/02/2014 à 12:45
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 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
22 févr. 2014 à 12:18
Bonjour,

uniquement si une certaine cellule est supprimée. Contenu efface ou cellule supprimee ???
0
uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 1
Modifié par uly2562 le 22/02/2014 à 12:24
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 dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 1
22 févr. 2014 à 13:42
MERCIIIII
tout simplement nickel.
Mon patron est content, c'est cool
je te remercie encore une fois f894009, et bonne continuation
0