Excel ne détecte pas une cellule

Bonjour,

J'ai un problème que je n'arrive pas à résoudre si quelqu'un peut m'aider.

Excel ne détecte pas si une case est remplie quand je mets ce code. Pourtant si je change de cellule le code marche. Quelqu'un sait quel est le problème svp ?

Merci d'avance.

Sub BottleStraw()
    If Range("D23") = "No" Or Not IsEmpty(Range("D27")) Then
        Range("C28") = "Is there a straw ?"
        With Range("D28").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                Formula1:="Yes,No"
        End With
    End If
End Sub

Bonjour toutes et tous

à tester dans le WorkSheet de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
' ton code
End Sub

crdlt,

André

Bonjour,

Merci pour la réponse, j'ai fait ça mais ça m'affiche une erreur et ça me ferme excel

Bonjour,

Placé dans le module de feulle concerné, ton code fonctionne parfaitement :

Quand C23 contient No ou quand C27 n'est pas vide, il écrit le texte en C28 et place la validation en D28.

Si tu le places dans un module standard, pour garantir son fonctionnement il vaut mieux préciser le parent (i.e. la feuille) de chaque range.

Hello,

Merci pour la réponse j'ai résolu le problème.