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

Wayki

XLDnaute Impliqué

• 2 Septembre 2021

• #2

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

 

Pièces jointes

• Classeur1.xlsm

  23.5 KB · Affichages: 10

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 2 Septembre 2021

• #3

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.

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 2 Septembre 2021

• #4

DAVID-44- à dit:

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.

Cliquez pour agrandir...

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

VB:

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

 

Pièces jointes

• MFC_Classeur1.xlsm

  45.2 KB · Affichages: 9

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 2 Septembre 2021

• #5

DAVID-44- à dit:

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.

Cliquez pour agrandir...

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 +

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 2 Septembre 2021

• #6

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

 

Pièces jointes

• Classeur1.xlsm

  24 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Septembre 2021

• #7

Bonjour DAVID-44-, Wayki, Jacky67,

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

VB:

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+

 

Pièces jointes

• Classeur(1).xlsm

  17.4 KB · Affichages: 12

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 2 Septembre 2021

• #8

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Septembre 2021

• #9

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

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

 

Pièces jointes

• Cellule colorée lors saisie puis reprend sa couleur d'origine.xlsm

  16.5 KB · Affichages: 12

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 2 Septembre 2021

• #10

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 3 Septembre 2021

• #11

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.

 

Pièces jointes

• STOCK - 03 - 09 - 2021 - PROBLEME..xlsm

  227.3 KB · Affichages: 8

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Septembre 2021

• #12

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 "" ....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2021

• #13

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+

 

Pièces jointes

• STOCK - 03 - 09 - 2021 - PROBLEME(1).xlsm

  209.3 KB · Affichages: 9

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 3 Septembre 2021

• #14

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

 

Vote positif 0 Vote négatif