Microsoft 365 Si cellule = incolore alors 1 sinon 0

Solcas · 22 Décembre 2020

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 · 22 Décembre 2020

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 · 22 Décembre 2020

Bonsoir Solcas, Exl-Noob,
Essayez cela :

VB:

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.

Code:

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

zebanx · 22 Décembre 2020

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

Code:

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

Microsoft 365 Si cellule = incolore alors 1 sinon 0

Solcas

XLDnaute Nouveau

Exl-Noob

Guest

sylvanu

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Pièces jointes

Discussions similaires