Macro MFC

[Atiom]

Bonjour le forum

Je sèche sur une macro pour une MFC.

Voila le problème :

Les colonnes A, B et C contiennent des MFC.

Maintenant je souhaiterai créer la macro suivante :

Si la valeur de la colonne C est égal à Zéro, alors effacer les mise en formes existantes dans les colonnes A, B et C et colorer ces colonnes de rouge.

Bien entendue pour les lignes de la colonne C que la valeur n’est pas égal a zéro on garde les MFC existantes.

 

[Compte Supprimé 979]

Re : Macro MFC

Salut Atiom,

Si j'ai bien compris, utilise le code ci-dessous

Sub SupMFCSiC0()
Dim DerLig As Long, Lig As Long
With Sheets("Feuil1")
  DerLig = .Range("A" & Rows.Count).End(xlUp).Row
  For Lig = 1 To DerLig
    If .Range("C" & Lig) = 0 Then
      ' Supprime les MFC
      .Range("A" & Lig).FormatConditions.Delete
      ' Met le fond en rouge
      .Range("A" & Lig).Interior.ColorIndex = 3
      .Range("A" & Lig).Interior.Pattern = xlSolid
      ' Supprime les MFC
      .Range("B" & Lig).FormatConditions.Delete
      ' Met le fond en rouge
      .Range("B" & Lig).Interior.ColorIndex = 3
      .Range("B" & Lig).Interior.Pattern = xlSolid
      ' Supprime les MFC
      .Range("C" & Lig).FormatConditions.Delete
      ' Met le fond en rouge
      .Range("C" & Lig).Interior.ColorIndex = 3
      .Range("C" & Lig).Interior.Pattern = xlSolid
    End If
  Next Lig
End With
End Sub

Voilà 😉

A+

 

[skoobi]

Re : Macro MFC

Bonjour,

Si j'ai bien compris, voici une macro événementielle à mettre dans le code de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = 0 Then
    Range("A" & Target.Row & ":C" & Target.Row).FormatConditions.Delete
    Range("A" & Target.Row & ":C" & Target.Row).Interior.ColorIndex = 3
End If
End Sub

Edit: Bonjour Bruno, on a compris la même chose 😉 sauf que l'on ne voit pas le rouge avec la même intensitée 😀

 

[Compte Supprimé 979]

Re : Macro MFC

Salut Skoobi,

Effectivement, je suis daltonien 😀

En plus j'ai décomposé la suppression des MFC, j'suis pas certain que ce soit vraiment clair, mon truc 😕

A+

 

[Atiom]

Re : Macro MFC

Salut, BrunoM45 et skoobi

Impeccable skoobi. Ça fonctionne.
Merci.

Merci aussi à toi BrunoM45, j’ai testé ta solution et il y a quelque chose que tourne pas rond.
Seulement la première ligne de coloré.

Mais c’est pas grave la solution de skoobi, me convient

Encore merci a vos deux et bonne soirée🙂

 

[Compte Supprimé 979]

Re : Macro MFC

Salut Atiom,

Je peux t'assurer que mon code fonctionne très bien, puisqu'il fonctionne de la même manière que celui de Skoobi !

De plus comme tous les codes que je donne, je l'ai testé avant 😉

Donc voilà