XL 2010 Changer couleur de fond et de police de la cellule active.

[DAVID-44-]

Bonjour à tous,
Je souhaiterais changer la couleur de fond (rouge) et de police (blanc)de la cellule active.
Quand je sélectionne une autre cellule, le fond et la police redeviennent normaux.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.

 

[Wayki]

Salut,
J'ai repris ton ancien fichier que j'ai modifié.
Seul problème c'est qu'il lag un peu...
A +

 

[DAVID-44-]

BonjourWayki,
Merci beaucoup,
Je dois mal m'y prendre, car sur ma feuille les cellules restent en rouge et certaines ne changent pas de couleur.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.

 

[Jacky67]

Bonjour à tous,
Je souhaiterais changer la couleur de fond (rouge) et de police (blanc)de la cellule active.
Quand je sélectionne une autre cellule, le fond et la police redeviennent normaux.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.

Bonjour à tous,
Un exemple par la MFC et ceci dans la feuille en question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Calculate
End Sub

 

[Wayki]

BonjourWayki,
Merci beaucoup,
Je dois mal m'y prendre, car sur ma feuille les cellules restent en rouge et certaines ne changent pas de couleur.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.

Normal la plage est limitée.
For Each cellule In Range("a1", "h" & c)
Tu peux remplacer par exemple par "ZZ10000" pour agrandir la plage, mais avec ma macro plus elle sera grande, plus ça va laguer.
Peut être se rabattre vers un autre code moins "énergivore" comme celui de Jacky67 ?
A +

 

[Wayki]

Une amélioration qui fait largement moins laguer :
Par contre ça ne marche pas pour les cellules fusionnées.

 

[job75]

Bonjour DAVID-44-, Wayki, Jacky67,

Avec ce fichier la MFC est crée par macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete 'RAZ
If CStr(ActiveCell) = "" Then Exit Sub 'voir si c'est nécessaire
ActiveCell.FormatConditions.Add xlExpression, Formula1:=1
ActiveCell.FormatConditions(1).Interior.Color = vbRed 'rouge
ActiveCell.FormatConditions(1).Font.Color = vbWhite 'blanc
End Sub

Elle est créée si la cellule active n'est pas vide mais on peut supprimer la 3ème ligne.

A+

 

[DAVID-44-]

Bonjour job75, Wayki, Jacky67, le forum,
Super, ça fonctionne comme je le souhaitais
Merci beaucoup.
Bonne soirée.
Cordialement.
David.

 

[Eric C]

Bonsoir le forum
Bonsoir DAVID-44, Wayki, Jacky67 & job75

De ce que j'ai compris, voici ma contribution.
Bonne soirée à toutes & à tous

 

[DAVID-44-]

Bonjour Eric C, job75, Wayki, Jacky67, le forum,
C'est parfait.
Merci beaucoup.
Bonne soirée.
Cordialement.
David.

 

[DAVID-44-]

Bonjour Eric C, job75, Wayki, Jacky67, le forum,
Je reviens vers vous, car j'ai deux petits soucis.
J'utilise le code de Job75.
Quand je clique sur une cellule pleine la colonne B fait apparaître des "?" Alors qu'au par avant si dans la colonne "Produit" il n'y avait rien, la cellule de la colonne "B" restait blanche.
Le deuxième souci arrive quand j'utilise le bouton "Supprimer ligne".
J'ai une erreur "1004" et tout est bloqué.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.

 

[fanch55]

Re-salut,
La méthode de Job75 est destructive dans la mesure où les MFC existantes sont détruites .
Il existait une MFC qui vérifiait que si le fournisseur contient le produit , la couleur de la police est blanc sur fond blanc ( ce qui théoriquement ne devrait se produire que s'ils sont vides )
Celle-ci est caduque avec le sierreur utilisé dans les formules.
Il faudrait remplacer les "?" dans les sierreur par un "" ....

 

[job75]

Bonjour DAVID-44-, le fil,

Bien d'accord avec @fanch55, voyez le fichier joint avec la formule modifiée en colonne B.

Pour le bouton "Supprimer ligne" c'est un autre problème, un fil => une question.

A+

 

[DAVID-44-]

Bonjour fanch55, job75, le forum,
Ok je comprends et je vais modifier.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.