OVH Cloud OVH Cloud

Comment puis-je contrôler si j'ai des mises en forme conditionnelles?

2 réponses
Avatar
Emile
Bonjour à tous,

Je cherche à faire un contrôle sur une sélection s'il y a des mises en forme
conditionnelles,
selon l'exemple ci-dessous. Mais bien sûr ça ne fonctionne pas ;-)
Si quelqu'un pouvait m'apporter son aide, je vous en remercie d'avance...


If Selection.FormatConditions.Value > 0 Then
Selection.FormatConditions.Delete
End if
--
Cordialement,

Emile

2 réponses

Avatar
MichDenis
Bonjour Émile,

Pour ton contrôle en vba, tu dois utiliser la même formule que tu as créé pour ta mise en forme conditionnelle et tu
testes chacune de tes cellules à l'intérieur d'une boucle !


Salutations!





"Emile" a écrit dans le message de news: uE$B$
Bonjour à tous,

Je cherche à faire un contrôle sur une sélection s'il y a des mises en forme
conditionnelles,
selon l'exemple ci-dessous. Mais bien sûr ça ne fonctionne pas ;-)
Si quelqu'un pouvait m'apporter son aide, je vous en remercie d'avance...


If Selection.FormatConditions.Value > 0 Then
Selection.FormatConditions.Delete
End if
--
Cordialement,

Emile
Avatar
Emile
Bonjour MichDenis,

Merci pour ta réponse. :-)
Je cherche juste à savoir s'il y a ou non des conditions dans une sélection
(et non laquelle)
En tatonnant un peu j'en suis arrivé au code ci-dessous. qui apparement
fonctionne comme je le souhaitais.
affecté à un bouton sur une barre d'outil il bascule entre: mettre et
enlever les conditions.
Tu penses que c'est perfectible ?
Meilleures salutations.
Emile

Sub CouleurLigne()
On Error Resume Next
Application.ScreenUpdating = False
If Selection.FormatConditions.Count = 0 Then
Selection.FormatConditions.Add Type:=xlExpression, _
Formula1:="=MOD(LIGNE();2)"
With Selection.FormatConditions(1).Interior
.ColorIndex = 35
.PatternColorIndex = 2
.Pattern = xlGray50
End With
Else:
Selection.FormatConditions.Delete
End If
Application.ScreenUpdating = False
End Sub


"MichDenis" a écrit dans le message de news:
u$
| Bonjour Émile,
|
| Pour ton contrôle en vba, tu dois utiliser la même formule que tu as créé
pour ta mise en forme conditionnelle et tu
| testes chacune de tes cellules à l'intérieur d'une boucle !
|
|
| Salutations!
|
|
|
|
|
| "Emile" a écrit dans le message de
news: uE$B$
| Bonjour à tous,
|
| Je cherche à faire un contrôle sur une sélection s'il y a des mises en
forme
| conditionnelles,
| selon l'exemple ci-dessous. Mais bien sûr ça ne fonctionne pas ;-)
| Si quelqu'un pouvait m'apporter son aide, je vous en remercie d'avance...
|
|
| If Selection.FormatConditions.Value > 0 Then
| Selection.FormatConditions.Delete
| End if
| --
| Cordialement,
|
| Emile
|
|