Comment faire pour que la formule fct sur toute la colonne?

[faust]

Bonjour,

Petit problème sur VBA.
Sur mon fichier excel, si on tape oui (en minuscule) et que la date n'est pas entrée la case devient rouge, si on tape non la case devient marron et si on tape oui avec une date il ne se passe rien.
Mais question est comment faire pour que cela s'affecte à toute la colonne?

Merci de votre aide.

Mon code est le suivant :

Sub couleurcase()

Dim vyesno As Range
Dim vdate As Range


Set vyesno = Range("X9")
Set vdate = Range("Y9")


If vyesno = "oui" And vdate = "" Then
With vdate
.Interior.ColorIndex = 3
End With
ElseIf vyesno = "non" And vdate = "" Then
With vdate
.Interior.ColorIndex = 53
End With

Else
With vdate
.Interior.ColorIndex = 0
End With

End If

End Sub

 

[vbacrumble]

Re : Comment faire pour que la formule fct sur toute la colonne?

Bonjour


Pourquoi créer un second post ?

Tu as des réponses dans le premier non ????
https://www.excel-downloads.com/threads/menu-deroulant-couleur-message-derreur.118268/