erreur dans mon code

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:

---

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

Bonjour

bien que la casse soit pas le point fort de vba il y a des regles a respecter

les conditions if elseif en font parti

si tu met

Code:

---

if machin=truc then chose= machin

---

tu ne peut pas mettre en dessous

Code:

---

elseif chose=truc

---

a moins de mettre un doublepoint avnt le "then" pour signifier que tu change de ligne

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click()   If TextBox1.Value = "" Then   Range("d30") = "RAS"' 'et en plus ici a ta place je preciserais le sheets   ElseIf TextBox1.Value <> "" Then Range("d30").Value = TextBox1 'ici aussi le sheet   End Sub

---

au plaisir

merci bien

Vincent