COuleur de cellule

[pitchi]

Bonjour,

Voilà, je débute en VBA et j'aimerais écrire un bout de script qui change la couleur de fonc d'une cellule en fonction du contenu d'une autre cellule

voici ce que j'ai commencé :

Function comment_type(typejeu)
Select Case typejeu
Case 'QUIZ '
comment_type = 'Mot souhaité :'

Case 'JEU'
comment_type = 'Quel type ?'

Case Else
comment_type = ''

End Select
End Function

J'aimerais que dans le cas où la cellule n'est pas vide (case 'QUIZ' et case 'JEU', la couleur de fond de la cellule D12 devienne grise.

Merci de votre aide !

 

[Léa]

bonjour,

tu ajoutes dans ton code la ligne suivante
Range('Xn').interiorColor.Index=22
22 tu auras du gris clair
56 du gris foncé

attention 'Xn' représente l'adresse de le cellule concernée exemple 'A7'

bon courage