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

[Toubabou]

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

 

[job75]

Merci à vous tous, tout semble fonctionner parfaitement

Très bien mais il serait bien de nous dire quelle solution vous allez finalement utiliser.

 

[Toubabou]

Très bien mais il serait bien de nous dire quelle solution vous allez finalement utiliser.

Dans un premier temps j’ai essayé la proposition de :

• Sylvanu, qui à répondu à mes attentes.
• Ensuite celle de Job75 qui fonctionne très bien également
• Celle de TooFatBoy n’a pas voulu fonctionner, compte tenu du fait que, effectivement cela concerne toutes les cellules en bleu du fichier.
• La solution de Job75 consistant de construire une MFC est pour moi la meilleure, car elle permet de re colorer la cellule si l’on efface la saisie Parfait.
• Par contre je n’ai pas compris comment utiliser la Macro de Job75:

• 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

 

[job75]

• Par contre je n’ai pas compris comment utiliser la Macro de Job75:

• 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

La feuille à traiter est la feuille active, elle doit avoir des cellules colorées en bleu.

Vous collez la macro où vous voulez, dans le code de cette feuille ou dans un module standard.

Puis vous l'exécutez (touches Alt+F8).

Ensuite touche F5 => sélectionnez "Plage" => OK pour sélectionner la plage et créer la MFC.

 

[Toubabou]

La feuille à traiter est la feuille active, elle doit avoir des cellules colorées en bleu.

Vous collez la macro où vous voulez, dans le code de cette feuille ou dans un module standard.

Puis vous l'exécutez (touches Alt+F8).

Ensuite touche F5 => sélectionnez "Plage" => OK pour sélectionner la plage et créer la MFC.

Petit soucis, lorsque je fais F5, je ne trouve pas "Plage"

 

[job75]

Petit soucis, lorsque je fais F5, je ne trouve pas "Plage"

J'ai bien dit que la macro du post #14 doit être exécutée avant toute chose c'est à dire sur le fichier du post #1 avant toute modification.

Bien comprendre que si on crée d'abord la MFC la couleur de fond bleu est effacée et alors le nom "Plage" ne peut pas être créé.

 

[TooFatBoy]

Celle de TooFatBoy n’a pas voulu fonctionner, compte tenu du fait que, effectivement cela concerne toutes les cellules en bleu du fichier.

T'as rien perdu : c'était la même chose que le camarade sylvanu, à ceci près que je ne faisais la mise en couleur que pour la cellule B4, alors que lui le fait pour n'importe quelle cellule modifiée (et qu'il met un fond blanc alors que je supprime le fond).

 

[Toubabou]

J'ai bien dit que la macro du post #14 doit être exécutée avant toute chose c'est à dire sur le fichier du post #1 avant toute modification.

Bien comprendre que si on crée d'abord la MFC la couleur de fond bleu est effacée et alors le nom "Plage" ne peut pas être créé.

Alors lorsque je transpose vos informations dans mon fichier, je dois rater quelques choses pour que cela ne fonctionne pas

 

[job75]

Ah oui évidemment sur le fichier du poste 22 ce n'est plus le même bleu.

Le RGB est RGB(218,238,243) alors qu'au post #1 c'est RGB(220,230,241)

Il faut modifier le VBA en conséquence.

 

[Toubabou]

Ah oui évidemment sur le fichier du poste 22 ce n'est plus le même bleu.

Le RGB est RGB(218,238,243) alors qu'au post #1 c'est RGB(220,230,241)

Il faut modifier le VBA en conséquence.

Super quelle erreur de ma part. Effectivement tout fonctionne parfaitement. Un grand merci à vous.
Encore une petite question comment trouvez-vous le RGB des couleurs?

 

[TooFatBoy]

Je ne sais pas où vous en être avec Job75 (vous avez l'air partis sur l'idée que je proposais au départ, à savoir reconstruire par macro la MFC de la feuille, ce que je serais bien incapable de mettre en œuvre), mais attention dans sa macro de #5, la logique de comparaison entre Target et les cellules potentiellement coloriables est fausse. 🙁

 

[Toubabou]

Je ne sais pas où vous en être avec Job75, mais attention dans sa macro de #5, la logique de comparaison entre Target et les cellules potentiellement coloriables est fausse. 🙁

Pourtant cela fonctionne correctement chez moi

 

[TooFatBoy]

Pourtant cela fonctionne correctement chez moi

C'est probablement parce que tu n'as testé que les choses qui justement fonctionnent, et pas celles qui colorent des cellules qui ne devraient pas l'être. 😉

Mais de toute façon, vous êtes partis dans une autre direction donc pas de souci.


Bonne soirée

 

[Toubabou]

C'est probablement parce que tu n'as testé que les choses qui justement fonctionnent, et pas celles qui colorent des cellules qui ne devraient pas l'être. 😉

Mais de toute façon, vous êtes partis dans une autre direction donc pas de souci.


Bonne soirée

Cela deviens compliqué pourmoi

 

[TooFatBoy]

Cela deviens compliqué pourmoi

Pas grave. Ne t'en occupe pas pour l'instant.
On pourra voir ça après, quand ton problème sera résolu, si tu le veux.

 

[Toubabou]

Pas grave. Ne t'en occupe pas pour l'instant.
On pourra voir ça après, quand ton problème sera résolu, si tu le veux.

Merci beaucoup, mais je pense maintenant qu'il est résolu car cela fonctionne parfaitement bien