Discussion :

[scoulibri]

Bonjour,
J'ai des cellules ayant une mise en forme conditionnelle (fond rouge) si la cellule est vide

Mon probleme est d'arriver a extraire le resultat: A savoir si dans cette plage il y une cellule rouge alors affiche le message

J'ai reussi a realier 2 codes mais qui sont pas satisfaisant.
Que j'ai de cellules rouges ou pas mon msgbox est active
Pouvez-vous me dire ou j'ai peche?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub SearchFormat(Cell As Range)
Dim FC As FormatCondition
Dim Pb As Variant
 
If Cell.FormatConditions.Count > 0 Then
 
        For Each FC In Cell.FormatConditions
            If FC.Type = xlExpression Then
                Select Case FC.Interior.ColorIndex
                        Case Is = 3
                      MsgBox "A remplir"
                        Case Is <> 3
 
                    End Select
            End If
         Next
    End If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub SearchFormat1(Cell As Range)
With Cell.FormatConditions(1)
    If .Interior.ColorIndex = 3 Then
    MsgBox "cool"
    Else: MsgBox "pas cool"
    End If
 
 
 
End With
 
End Sub

merci

[eric4459]

Bonjour Scoulibri,
Comme tu mentionnes que ton format conditionnel s'applique aux cellules vides, pourquoi ne fais tu pas ta recherche sur ces cellules?
Tu pourrais avoir quelquechose comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each MaCellule In MaPlage
If MaCellule = "" Then
MsgBox " A remplir"
End If
Next MaCellule

Eric

[scoulibri]

Hello eric4459
Pourquoi faire simple quand on peux faire complique?

Je ressaie demain avec une autre formule dans la lignee de ce que tu viens de noter.

Il faut neanmoins que j'elimine le For each car je veux qu'un msgbox tant qu'il existe des cellules vides...Do while

bref, un message sans grand interet poru la communaute

[eric4459]

Scoulibri,
Le Do While, je ne vois pas trop comment tu va pouvoir l'utiliser, enfin ça dépend de ta condition...
Si tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do While MaCellule =""
MsgBox "A Remplir"
Loop

A la première cellule non vide, ta boucle s’arrêtera, idem si tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do While MaCellule <>""
MsgBox "A Remplir"
Loop

là, la boucle s’arrête sur la première cellule vide.
Eric

[scoulibri]

histoire que cette conversation soit utile a d'autres,
J'ai trouve mon bonheur sur un autre site.

J'ai souhaite trouver un code qui me permette de vérifier si une plage de donnée discontinue, que j'ai nommée "data", contient des cellules vides. Et si c'est le cas, je souhaite qu'un message d'alerte s'affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Application.CountA(Range("data")) <> Range("data").Cells.Count Then
    MsgBox " Please fill all the boxes", vbOKOnly + vbExclamation, "Error"
    Range("data").SpecialCells(xlCellTypeBlanks)(1).Select
End If