Microsoft 365 Si cellule = incolore alors 1 sinon 0

[Solcas]

Bonjour,

Je dois retraiter un fichier de gestion RH, et j'ai besoin d'identifier toutes les cellules qui n'ont pas remplissage pour déterminer le nombre de tickets restaurant à payer aux collaborateurs.

Je ne sais pas comment exprimer cette formules si cellule = incolore alors 1 sinon 0.

Je débute également sur VBA, soyez indulgeant ^^

Merci à vous pour votre aide et passez de belles fêtes de fin d'année

 

[Exl-Noob]

Salut Solcas,

Si tu nous joins un fichier exemple anonymisé, on pourra trouver une solution, et peut-être même pas avec une macro. Le principe c'est que tu nous dises ce que tu veux faire, pas comment on doit le faire, car le sachant ce n'est justement pas toi
Idéalement précise dans une cellule le résultat attendu.

@+

 

[sylvanu]

Bonsoir Solcas, Exl-Noob,
Essayez cela :

Sub Test()
If [A1].Interior.Color = vbWhite Then
    MsgBox "Cette cellule est blanche ( ou sans incolore )"
End If
End Sub

Le code ci dessous fait à priori la différence entre blanc et incolore.

Sub Test()
If [A1].Interior.Pattern = xlNone Then
    MsgBox "Cette cellule est incolore"
End If
End Sub

 

[zebanx]

.....
Le code ci dessous fait à priori la différence entre blanc et incolore.

Sub Test()
If [A1].Interior.Pattern = xlNone Then
    MsgBox "Cette cellule est incolore"
End If
End Sub

Bonjour Sylvanu , solcas, exnoob, le forum

Un essai

xl-ment