message box

[Ricsavoy]

Jour à toutes et tous

Comment faire ceci ? Tout bête je sais....

Merci.

 

[jp14]

Re : message box

Bonjour

Un code à tester

Private Sub Valider_Click()
If TextBox1.Value <> "" Then
        Sheets("Feuil1").Range("B4") = TextBox1.Value
End If
End Sub

JP

 

[Ricsavoy]

Re : message box

Test et Approuver !!!!

Merci JP.

J'adore ce foruuuuum.

 

[Ricsavoy]

Re : message box

et si je fais une ''petite''variante....

j'aurais peut être du creer un autre fil, je ne sais pas.

 

[jp14]

Re : message box

Bonjour
Un exemple de code

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Sheets("Feuil1").Range("b4").Value = OptionButton1.Caption
End Sub

JP

 

[Ricsavoy]

Re : message box

C'est toujours aussi bien.

Merci beaucoup du coup de main JP.

Big UP