[RESOLU] : Mise en forme conditionnelle

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir a tous et a toutes
SVP chers membres quelle est la juste formule que je dois ecrire ..ou la macro necessaire ..dans ce sujet :
Si je choisis comme exemple la cellule (M10) sa couleur sera grise..dés que je choisis une autre la couleur de cette cellule (M10) sera blanche .
Merci d'avance pour n'importe quelle suggestion
Cordialement
MADA BLACK

 

[job75]

Re : Mise en forme conditionnelle

Bonsoir MADA,

Voyez le fichier joint.

Bonne nuit.

 

[MADAGASCAR]

Re : Mise en forme conditionnelle

Bonsoir
BRAVO maitre JOB75
merci pour votre formidable démonstration
merci pour votre excellente leçon de formule ..MFC
merci pour votre gentillesse et suivi de ce sujet
Parfaitement résolu
Cordialement
MADA BLACK

 

[job75]

Re : [RESOLU] : Mise en forme conditionnelle

Bonjour MADA, le forum,

Autre solution qui a l'inconvénient d'effacer toutes les MFC existantes et de ne fonctionner que sur une version française d'Excel :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete 'RAZ
With ActiveCell
  .FormatConditions.Add xlExpression, Formula1:="=DECALER(" & .Address & ";;-1)=""Oui"""
  .FormatConditions(1).Interior.ColorIndex = 3
  .FormatConditions(1).Font.ColorIndex = 2
  .FormatConditions(1).Font.Bold = True
  .FormatConditions.Add xlExpression, Formula1:="=DECALER(" & .Address & ";;-1)=""Non"""
  .FormatConditions(2).Interior.ColorIndex = 4
  .FormatConditions(2).Font.Bold = True
End With
End Sub

Fichier (2).

Bonne journée.

 

[CISCO]

Re : [RESOLU] : Mise en forme conditionnelle

Bonjour à tous, bonjour Job75

@ Job75 : Si j'ai bien compris, la colonne B n'est pas utile dans le post #2.

@plus

 

[MADAGASCAR]

Re : [RESOLU] : Mise en forme conditionnelle

Bonjour JOB75
Merci maitre
Merci pour cette nouvelle formidable version
SVP si aurez un peu de temps .. comment faire pour preciser une seule cellule ..et on applique MFC par exemple A1..cliquer dessus sera verte ..cliquer sur toutes les autres cellules ..cette cellule A1 prend sa couleur initiale
Merci d'avance pour votre aide .. plutot leçon
Cordialement
MADA BLACK

 

[job75]

Re : [RESOLU] : Mise en forme conditionnelle

Re,

@ CISCO : la colonne A n'est pas vraiment utile dans la définition de la MFC, sauf si l'on insère une colonne devant.

@ MADA : avec la version (1) il faut préciser la plage d'application, avec la version (2) seule la cellule active est concernée.

A+

 

[MADAGASCAR]

Re : [RESOLU] : Mise en forme conditionnelle

Bonjour maitre JOB75
Merci 1000 fois pour votre explication
Merci beaucoup pour votre formidable suivi de ce sujet
Cordialement
MADA

 

[job75]

Re : [RESOLU] : Mise en forme conditionnelle

Re,

Une autre version (1 bis) avec l'évènement Calculate.

On peut se passer de la macro mais alors il faut appuyer sur F9 après chaque sélection.

A+

 

[MADAGASCAR]

Re : [RESOLU] : Mise en forme conditionnelle

Bonsoir maitre JOB75
Merci pour votre extra suivi
Merci pour votre gentillesse
Je vais prendre la version MFC2 du post#4 .. c'est plus facile pour moi
Merci pour tous
Cordialement
MADA BLACK

 

[job75]

Re : [RESOLU] : Mise en forme conditionnelle

Re,

Je vais prendre la version MFC2 du post#4 .. c'est plus facile pour moi

Avec la version (2), ainsi que la version (1 bis), il n'est pas possible de faire du Copier-Coller.

Aucun problème avec la version (1) du post #2.

A+

 

[job75]

Re : [RESOLU] : Mise en forme conditionnelle

Re,

Une version (2 bis) si l'on veut faire du Copier-Coller :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode Then If MsgBox("Coller le contenu du presse-papiers ?", 4) = 6 _
  Then Application.EnableEvents = False: Me.Paste: Application.EnableEvents = True
Cells.FormatConditions.Delete 'RAZ
With ActiveCell
  .FormatConditions.Add xlExpression, Formula1:="=DECALER(" & .Address & ";;-1)=""Oui"""
  .FormatConditions(1).Interior.ColorIndex = 3
  .FormatConditions(1).Font.ColorIndex = 2
  .FormatConditions(1).Font.Bold = True
  .FormatConditions.Add xlExpression, Formula1:="=DECALER(" & .Address & ";;-1)=""Non"""
  .FormatConditions(2).Interior.ColorIndex = 4
  .FormatConditions(2).Font.Bold = True
End With
End Sub

A+

 

[MADAGASCAR]

Re : [RESOLU] : Mise en forme conditionnelle

Bonsoir
Merci maitre ..je n'ai qu'a vous dire
BRAVO
Oui la version du post#12 est la meilleure
Cordialement
MADA BLACK

 

[job75]

Re : [RESOLU] : Mise en forme conditionnelle

Re,

Tiens j'aurai appris quelque chose aujourd'hui.

C'est la police "gras" de la MFC qui empêchait le Copier-Coller.

Les bordures empêchent aussi le Copier-Coller.

Testez donc ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete 'RAZ
With ActiveCell
  .FormatConditions.Add xlExpression, Formula1:="=DECALER(" & .Address & ";;-1)=""Oui"""
  .FormatConditions(1).Interior.ColorIndex = 3
  .FormatConditions(1).Font.ColorIndex = 2
  '.FormatConditions(1).Font.Bold = True 'police gras
  .FormatConditions.Add xlExpression, Formula1:="=DECALER(" & .Address & ";;-1)=""Non"""
  .FormatConditions(2).Interior.ColorIndex = 4
  '.FormatConditions(2).Font.Bold = True 'police gras
  '.FormatConditions(2).Borders.Weight = xlThin 'bordures
End With
End Sub

A+

 

[MADAGASCAR]

Re : [RESOLU] : Mise en forme conditionnelle

Bonsoir maitre
Oui j'ai testé ce magnifique et impeccable code du poste #14
Toutes les versions sont formidables .. et chaque version est plus mieux que l'autre
J'ai appris plusieurs leçons grace a vous
Merci beaucoup
Cordialement
MADA BLACK