Microsoft 365 Macro pour changer la couleur d'une cellule si...

Toubabou · Hier à 18:51

Bonsoir à tous,
Ma cellule B4...., est vide et de couleur bleu. Si je rempli cette cellule, je voudrai supprimer cette couleur, sans passer par la "MISE EN FORME CONDITIONNEL" (ce serait trop long).
Je recherche donc une macro pouvant modifier plusieurs cellules voir une série de cellule.

Merci beaucoup

TooFatBoy · Hier à 19:04

Bonjour,

Toubabou à dit:
Ma cellule B4...., est vide et de couleur bleu. Si je rempli cette cellule, je voudrai supprimer cette couleur, sans passer par la "MISE EN FORME CONDITIONNEL" (ce serait trop long).

Que veux-tu dire par "ce serait trop long" ?

Toubabou · Hier à 19:08

TooFatBoy à dit:
Bonjour,

Que veux-tu dire par "ce serait trop long" ?

Je voudrais le faire pour tout le fichier

sylvanu · Hier à 19:43

Bonsoir Toubabou, TooFatBoy,
Idem, pas bien compris le "ce serait trop long" .
Un essai au pif en PJ. Lorsqu'on modifie une cellule quelconque d'une quelconque feuille, elle devient bleu si vide et blanche si non vide.
Macro à mettre dans ThisWorkbook.

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Fin
With Sh.Range(Target.Address)
    If Target = "" Then
        .Interior.Color = RGB(220, 230, 240)
    Else
        .Interior.Color = vbWhite
    End If
End With
Fin:
End Sub

job75 · Hier à 19:50

Bonsoir Toubabou, TooFatBoy, sylvanu,

Mettez une macro de ce genre dans chaque feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
With [B4:E4,C6:E6,F5:I7,C18:E20,G18:I20,C24:E26,G24:I26,C30:E32,G30:I32,C36:E38,G36:I38,C42:E44,G42:I44,C48:E50,G48:I50,C54:E56,G54:I56]
    If Intersect(Target, .Cells) Is Nothing Then Exit Sub
    For Each Target In Target
        If IsEmpty(Target) Then Target.Interior.Color = RGB(220, 230, 241) Else Target.Interior.ColorIndex = xlNone
    Next
End With
End Sub

Modifiez le contenu d'une ou plusieurs cellules colorées en bleu.

S'il y a beaucoup de cellules colorées il faudra faire l'union de plusieurs plages car le texte de chaque Range est limité à 255 caractères.

A+

TooFatBoy · Hier à 19:53

Toubabou à dit:
Je voudrais le faire pour tout le fichier

Proposition :

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub
    With Range("B4")
        If .Value = "" Then
            .Interior.Color = RGB(220, 230, 241)
        Else
            .Interior.Color = xlNone
        End If
    End With
End Sub

job75 · Hier à 20:08

@TooFatBoy il est évident que le problème ne concerne pas seulement B4 !!!

TooFatBoy · Hier à 20:14

job75 à dit:
@TooFatBoy il est évident que le problème ne concerne pas seulement B4 !!!

La question est pourtant :

Toubabou à dit:
Ma cellule B4...., est vide et de couleur bleu. Si je rempli cette cellule, je voudrai supprimer cette couleur, sans passer par la "MISE EN FORME CONDITIONNEL" (ce serait trop long).

Toubabou à dit:
Je voudrais le faire pour tout le fichier

Toubabou à dit:
Je recherche donc une macro pouvant modifier plusieurs cellules voir une série de cellule.

Come quoi, une question mal posée est évidemment non claire et donne lieu à divers interprétations.

Toubabou · Hier à 20:17

TooFatBoy à dit:
La question est pourtant :

Come quoi, une question mal posée est évidemment non claire et donne lieu à divers interprétations.

Effectivement, excusez moi

Toubabou · Hier à 20:18

sylvanu à dit:
Bonsoir Toubabou, TooFatBoy,
Idem, pas bien compris le "ce serait trop long" .
Un essai au pif en PJ. Lorsqu'on modifie une cellule quelconque d'une quelconque feuille, elle devient bleu si vide et blanche si non vide.
Macro à mettre dans ThisWorkbook.

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error GoTo Fin With Sh.Range(Target.Address) If Target = "" Then .Interior.Color = RGB(220, 230, 240) Else .Interior.Color = vbWhite End If End With Fin: End Sub

Merci beaucoup

Toubabou · Hier à 20:19

job75 à dit:
Bonsoir Toubabou, TooFatBoy, sylvanu,

Mettez une macro de ce genre dans chaque feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) With [B4:E4,C6:E6,F5:I7,C18:E20,G18:I20,C24:E26,G24:I26,C30:E32,G30:I32,C36:E38,G36:I38,C42:E44,G42:I44,C48:E50,G48:I50,C54:E56,G54:I56] If Intersect(Target, .Cells) Is Nothing Then Exit Sub For Each Target In Target If IsEmpty(Target) Then Target.Interior.Color = RGB(220, 230, 241) Else Target.Interior.ColorIndex = xlNone Next End With End Sub

Modifiez le contenu d'une ou plusieurs cellules colorées en bleu.

S'il y a beaucoup de cellules colorées il faudra faire l'union de plusieurs plages car le texte de chaque Range est limité à 255 caractères.

A+

Merci beaucoup

job75 à dit:
@TooFatBoy il est évident que le problème ne concerne pas seulement B4 !!!

Oui effectivement cela concerne toutes les cellules bleu de mon fichier

TooFatBoy · Hier à 20:31

Toubabou à dit:
Effectivement, excusez moi

T'inquiètes, ce n'est pas grave. 😉

Au moins ça te permet d'avoir le choix parmi trois propositions.
La bonne solution est probablement un mélange.

job75 · Aujourd'hui à 07:42

Bonjour le forum,

Le plus simple est quand même de construire la MFC :

- touche F5 et entrez la plage :

Code:

B4:E4;C6:E6;F5:I7;C18:E20;G18:I20;C24:E26;G24:I26;C30:E32;G30:I32;C36:E38;G36:I38;C42:E44;G42:I44;C48:E50;G48:I50;C54:E56;G54:I56

- puis entrez le critère de la MFC : Cellules vides => couleur

A+

job75 · Aujourd'hui à 09:16

Vous allez me dire : comment faire pour obtenir la référence de la plage de la MFC, ce n'est pas évident.

En effet, il vaut mieux avant toute chose exécuter cette macro (à placer où vous voulez) :

VB:

Sub PlageMFC()
Dim c As Range, P As Range
For Each c In ActiveSheet.UsedRange
    If c.Interior.Color = RGB(220, 230, 241) Then Set P = Union(IIf(P Is Nothing, c, P), c) 'à partir des cellules colorées en bleu
Next
If P Is Nothing Then Exit Sub
P.Name = "Plage" 'plage nommée
P.Interior.ColorIndex = xlNone 'efface la couleur de fond
End Sub

Ensuite touche F5 => sélectionnez "Plage" et construisez la MFC (Cellules vides => couleur).

Une chose importante à noter : la formule définissant le nom "Plage" ne doit pas dépasser la limite de 8192 caractères.

Toubabou · Aujourd'hui à 12:08

Merci à vous tous, tout semble fonctionner parfaitement.

Microsoft 365 Macro pour changer la couleur d'une cellule si...

Toubabou

XLDnaute Impliqué

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

Toubabou

XLDnaute Impliqué

Toubabou

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

Discussions similaires

Microsoft 365 Macro pour changer la couleur d'une cellule si...

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency