Bonjour à tous

voila j'ai dans un userform un textbox et un bouton

quand je clique sur le bouton

je voudrais que si le texbox est vide alors dans la cellule D30 soit mis "RAS"
et si on a ecrit quelque chose dans la texbox alors dans la cellule d30 soit lis ce qui est ecrit

voici mon code
mais pas l'air de fonctionner

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 
If TextBox1.Value = "" Then Range("d30") = "RAS"
 
ElseIf TextBox1.Value <> "" Then Range("d30").Value = TextBox1
 
End Sub
merci d'avance