Discussion :

[vincent59139]

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

if machin=truc then chose= machin

tu ne peut pas mettre en dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

elseif chose=truc

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vincent59139]

merci bien

Vincent