Mettre En rouge lorsque la ou les cellules sont vides

Bonsoir,

Merci Yvouille

J'avance très rapide avec mon programme par contre en faisant des tests approfondi que constate que cette ligne répond pas à mes attentes

[code][/ If Target.Range("A1").Interior.ColorIndex = 3 Then Target.Interior.Pattern = xlNone

code]

On peut rendre les cellules blanche que si j'ai des données dedans?

Salut,

Ronibo a écrit :

On peut rendre les cellules blanche que si j'ai des données dedans?

Oui, mais ça ne correspond pas à ta première demande

Amicalement.

Salut Yvouille

Oui c'est vrai, je pensais qu'avec la première méthode ca allée bien fonctionner...Mais je me suis trompé

Merci pour le fichier Yvouille

Bonne soirée

Bonsoir,

Je vous dérange de nouveau pour un petit problème que je rencontre, dans mon programme j'ai un cellule (A17) qui comporte une formule, Il s'aide d'une autre cellule (A1) pour obtenir le résultat.

Lorsque la cellule avec la formule est pleine (A17), il ne devient pas blanc.

J'ai sais c'est un peu flou, c'est pour cela je vous ai préparez un fichier exemple.

Avez une idée?

A+

Salut,

En ajoutant une condition à ta macro :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Range("A1") <> "" Then Target.Interior.Pattern = xlNone
  If Target = Range("A1") Then Range("A17").Interior.Pattern = xlNone
End Sub

Si tu nous avais fourni tout de suite ton fichier définitif, ça aurait quand même été plus simple.

Amicalement.

Bonsoir,

Merci beaucoup, j'ai pu finir avec cette étape (content car sa m'a prit 3h30), maintenant je n'ai plus de problème

A+

Le plus simple est dans Excel directement. Tu n'as qu'à faire une mise en forme conditionnelle. Voici le code pour mettre en rouge, tu n'as qu'à adapter à tes cellules

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$D$18="""""

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

With Selection.FormatConditions(1).Interior

.PatternColorIndex = xlAutomatic

.Color = 255

.TintAndShade = 0

End With

Selection.FormatConditions(1).StopIfTrue = False

Bonsoir,

Oui j'y avais pensé d'utiliser la MFC, je savais pas trop comment procédé, tu as un fichier exemple sous la main?

A voir si avec cette méthode je peux alléger mon fichier

Bonne soirée

Désolé, pas de fichier. Tu n'as qu'à enregistrer une macro dans excel. Par la suite, tu la copie le code dans ta macro.

PS. Ça marche avec des cellules fusionnées