Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel MSGBOS SUR DES MISE EN FORME CONDITIONNELLE

MSGBOS SUR DES MISE EN FORME CONDITIONNELLE

8 réponses
Avatar
sleg
BOnsoir all,

je cherche a afficher une msgbos si dans une plage de cellule ( a1 =E0
I200) j'ai suis a une mise en forme conditionnelle des cellules avec
un fond rouge, est possible et si oui comment ?

merci de votre aide.

bonne soir=E9e.
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
isabelle
bonjour sleg,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plg = Application.Intersect(Target, Range("A1: I5"))
If Not plg Is Nothing Then
With Target
For Each fc In .FormatConditions
If fc.Type = 2 Then
If Evaluate(fc.Formula1) Then MsgBox "condition vrai"
Else
If Evaluate(fc.Formula1) = c Then MsgBox "condition vrai"
End If
Next
End With
End If
End Sub


isabelle

sleg a écrit :
BOnsoir all,

je cherche a afficher une msgbos si dans une plage de cellule ( a1 à
I200) j'ai suis a une mise en forme conditionnelle des cellules avec
un fond rouge, est possible et si oui comment ?

merci de votre aide.

bonne soirée.



Avatar
isabelle
bonjour sleg,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plg = Application.Intersect(Target, Range("A1:I200"))
If Not plg Is Nothing Then
With Target
For Each fc In .FormatConditions
If fc.Type = 2 Then
If Evaluate(fc.Formula1) Then MsgBox "condition vrai"
Else
If Evaluate(fc.Formula1) = c Then MsgBox "condition vrai"
End If
Next
End With
End If
End Sub


isabelle

sleg a écrit :
BOnsoir all,

je cherche a afficher une msgbos si dans une plage de cellule ( a1 à
I200) j'ai suis a une mise en forme conditionnelle des cellules avec
un fond rouge, est possible et si oui comment ?

merci de votre aide.

bonne soirée.



Avatar
sleg
Bonjour Isabelle et merci,

mais j'ai un message d'erreur sur la ligne :
If Evaluate(fc.Formula1) Then

erreur d'execution 13
incompatibilite de type

une idée plizz ?



On 8 oct, 03:18, isabelle wrote:
bonjour sleg,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plg = Application.Intersect(Target, Range("A1:I200"))
If Not plg Is Nothing Then
With Target
 For Each fc In .FormatConditions
    If fc.Type = 2 Then
       If Evaluate(fc.Formula1) Then MsgBox "condition vrai"
    Else
       If Evaluate(fc.Formula1) = c Then MsgBox "condition vrai "
   End If
 Next
End With
End If
End Sub

isabelle

sleg a écrit :



> BOnsoir all,

> je cherche a afficher une msgbos si dans une plage de cellule ( a1 à
> I200)  j'ai suis a une mise en forme conditionnelle des cellules avec
> un fond rouge, est possible et si oui comment ?

> merci de votre aide.

> bonne soirée.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
isabelle
bonjour sleg,

dit moi quel sont la (les) mfc utilisées sur cette plage ?
si tu peut met ton fichier sur ci-joint,

isabelle

sleg a écrit :
Bonjour Isabelle et merci,

mais j'ai un message d'erreur sur la ligne :
If Evaluate(fc.Formula1) Then

erreur d'execution 13
incompatibilite de type

une idée plizz ?



On 8 oct, 03:18, isabelle wrote:

bonjour sleg,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plg = Application.Intersect(Target, Range("A1:I200"))
If Not plg Is Nothing Then
With Target
For Each fc In .FormatConditions
If fc.Type = 2 Then
If Evaluate(fc.Formula1) Then MsgBox "condition vrai"
Else
If Evaluate(fc.Formula1) = c Then MsgBox "condition vrai"
End If
Next
End With
End If
End Sub

isabelle

sleg a écrit :




BOnsoir all,

je cherche a afficher une msgbos si dans une plage de cellule ( a1 à
I200) j'ai suis a une mise en forme conditionnelle des cellules avec
un fond rouge, est possible et si oui comment ?

merci de votre aide.

bonne soirée.- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -







Avatar
sleg
ok je le met le ficher demain mtin

merci de ton aide

On 8 oct, 14:16, isabelle wrote:
bonjour sleg,

dit moi quel sont la (les) mfc utilisées sur cette plage ?
si tu peut met ton fichier sur ci-joint,

isabelle

sleg a écrit :



> Bonjour Isabelle et merci,

> mais j'ai un message d'erreur sur la ligne :
> If Evaluate(fc.Formula1) Then

> erreur d'execution 13
> incompatibilite de type

> une idée plizz ?

> On 8 oct, 03:18, isabelle wrote:

>> bonjour sleg,

>> copie cette macro sur la page code de la feuille,

>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> Set plg = Application.Intersect(Target, Range("A1:I200"))
>> If Not plg Is Nothing Then
>> With Target
>>  For Each fc In .FormatConditions
>>     If fc.Type = 2 Then
>>        If Evaluate(fc.Formula1) Then MsgBox "condition vrai"
>>     Else
>>        If Evaluate(fc.Formula1) = c Then MsgBox "condition v rai"
>>    End If
>>  Next
>> End With
>> End If
>> End Sub

>> isabelle

>> sleg a écrit :

>>> BOnsoir all,

>>> je cherche a afficher une msgbos si dans une plage de cellule ( a1 à
>>> I200)  j'ai suis a une mise en forme conditionnelle des cellules av ec
>>> un fond rouge, est possible et si oui comment ?

>>> merci de votre aide.

>>> bonne soirée.- Masquer le texte des messages précédents -

>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -

- Afficher le texte des messages précédents -


Avatar
sleg
Bonjour,

voici le fichier :
http://www.cijoint.fr/cjlink.php?file=cj200910/cijNnArmW2.xls

il faut prendre l'onglet seerveur pour le test.

merci.


On 8 oct, 22:09, sleg wrote:
ok je le met le ficher demain mtin

merci de ton aide

On 8 oct, 14:16, isabelle wrote:



> bonjour sleg,

> dit moi quel sont la (les) mfc utilisées sur cette plage ?
> si tu peut met ton fichier sur ci-joint,

> isabelle

> sleg a écrit :

> > Bonjour Isabelle et merci,

> > mais j'ai un message d'erreur sur la ligne :
> > If Evaluate(fc.Formula1) Then

> > erreur d'execution 13
> > incompatibilite de type

> > une idée plizz ?

> > On 8 oct, 03:18, isabelle wrote:

> >> bonjour sleg,

> >> copie cette macro sur la page code de la feuille,

> >> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> >> Set plg = Application.Intersect(Target, Range("A1:I200"))
> >> If Not plg Is Nothing Then
> >> With Target
> >>  For Each fc In .FormatConditions
> >>     If fc.Type = 2 Then
> >>        If Evaluate(fc.Formula1) Then MsgBox "condition vrai"
> >>     Else
> >>        If Evaluate(fc.Formula1) = c Then MsgBox "condition vrai"
> >>    End If
> >>  Next
> >> End With
> >> End If
> >> End Sub

> >> isabelle

> >> sleg a écrit :

> >>> BOnsoir all,

> >>> je cherche a afficher une msgbos si dans une plage de cellule ( a1 à
> >>> I200)  j'ai suis a une mise en forme conditionnelle des cellules avec
> >>> un fond rouge, est possible et si oui comment ?

> >>> merci de votre aide.

> >>> bonne soirée.- Masquer le texte des messages précédents -

> >> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
isabelle
bonjour sleg,

essaie celle-ci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fin
Set plg = Application.Intersect(Target, Range("A2:i200"))
If plg Is Nothing Then Exit Sub
With Sheets("Serveurs").Range(Target.Address)
For Each fc In .FormatConditions
Range("IV65536").FormulaLocal = .FormatConditions(1).Formula1
If Range("IV65536") Then MsgBox "VRAI"
Range("IV65536").Clear
Next
End With
fin:
End Sub

isabelle

sleg a écrit :
Bonjour,

voici le fichier :
http://www.cijoint.fr/cjlink.php?file=cj200910/cijNnArmW2.xls

il faut prendre l'onglet seerveur pour le test.

merci.



Avatar
isabelle
ps/

la raison pour lequel j'ai utilisé la cellule IV65536 pour évaluer la
formule,
c'est qu'en vba, avec la Fonction Evaluate, le texte doit être coté en
double guillemets
par exemple : x = EVALUATE(" =ET($A$2=""A"";$B2="""")")
et on ne peut pas mettre de double guillemets directement dans la
formule de la mfc,

isabelle

isabelle a écrit :
bonjour sleg,

essaie celle-ci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fin
Set plg = Application.Intersect(Target, Range("A2:i200"))
If plg Is Nothing Then Exit Sub
With Sheets("Serveurs").Range(Target.Address)
For Each fc In .FormatConditions
Range("IV65536").FormulaLocal = .FormatConditions(1).Formula1
If Range("IV65536") Then MsgBox "VRAI"
Range("IV65536").Clear
Next
End With
fin:
End Sub

isabelle

sleg a écrit :
Bonjour,

voici le fichier :
http://www.cijoint.fr/cjlink.php?file=cj200910/cijNnArmW2.xls

il faut prendre l'onglet seerveur pour le test.

merci.