Comment puis-je contrôler si j'ai des mises en forme conditionnelles?
2 réponses
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,
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de news: uE$B$pzGFHA.3628@TK2MSFTNGP15.phx.gbl...
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,
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
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 | |
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" <michdenis@hotmail.com> a écrit dans le message de news:
u$QS6J0GFHA.3908@TK2MSFTNGP10.phx.gbl...
| 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" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de
news: uE$B$pzGFHA.3628@TK2MSFTNGP15.phx.gbl...
| 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
|
|
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 | |