Colorier une cellule suite a une condition

Bonjour,

Voici mon code qui me permet de vérifier des champs qui doivent être remplis aussi la vérification d'autres conditions avant qu'il mette un xx dans la cellule 42 si toutes les conditions sont vraies

je voulais savoir comment faire pour colorier si il y'a une ou plusierus cellules vides parmis cette selection (Range("A:H, J:R").) et envoyer un message d'erreur .

Merci

 For q = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    Set MaPlage = Range("A:H, J:R").Rows(q)
    If CStr(ActiveSheet.Cells(q, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" _
         And WorksheetFunction.CountIf(MaPlage, "") = 0 Then
        Select Case UCase(ActiveSheet.Cells(q, 14).Value)
            Case "INA_CIN"

                ActiveSheet.Cells(q, 42).Value = "XX"
         End Select

    End If
Next q

Bonjour...il y a celui-ci qui est basique :

Dim c As Range
For Each c In maplage
If IsEmpty(c) Then c.Interior.ColorIndex = 3
Next
End Sub

où la plage est déterminée dans une variable

Sinon celui-ci

Feuil1.Cells.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3

Qui colorie toutes les cellules vides de la zone utilisé par le tableau (de A1 à la dernière cellule non vide)

Bonsoir,

Ci-joint une autre proposition à tester.

J'ai l'impression que la plage définie ci-dessous ne renvoie pas ce que l'on attend ?

Set MaPlage = Range("A:H, J:R").Rows(q)

Bonne soirée

Bouben

Ouii vous avez bien raison elle prend seulement la premiere partie c'est du A à H

bonjour ,

j'ai essayè ce code et ça marche pas vraiment :

            
       For q = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    Set maplage = Range("A:H, J:R").Rows(q)

    For Each c In maplage
If IsEmpty(c) Then c.Interior.ColorIndex = 3

    If CStr(ActiveSheet.Cells(q, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" _
         And WorksheetFunction.CountIf(maplage, "") = 0 Then
        Select Case UCase(ActiveSheet.Cells(q, 14).Value)
            Case "INA_CIN"
                ActiveSheet.Cells(q, 42).Value = "XX"
        End Select

    End If

Next

Next q
    

Set maplage = Range("A" & q & ":H" & q & ",J" & q & ":R" & q)

Ça ne garantit pas le bon fonctionnent du reste de la macro mais garantit que les plages voulues seront bien affectées à "maplage"