message box

J

jp14

XLDnaute Barbatruc

• 18 Mars 2009

• #2

Re : message box

Bonjour

Un code à tester

Code:

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

JP

 

Vote positif 0 Vote négatif

R

Ricsavoy

XLDnaute Junior

• 18 Mars 2009

• #3

Re : message box

Test et Approuver !!!!

Merci JP.

J'adore ce foruuuuum.

 

Vote positif 0 Vote négatif

R

Ricsavoy

XLDnaute Junior

• 18 Mars 2009

• #4

Re : message box

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

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

 

Pièces jointes

• Classeur3.xls

  22.5 KB · Affichages: 43
• Classeur3.xls

  22.5 KB · Affichages: 35
• Classeur3.xls

  22.5 KB · Affichages: 41

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 18 Mars 2009

• #5

Re : message box

Bonjour
Un exemple de code

Code:

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

JP

 

Vote positif 0 Vote négatif

R

Ricsavoy

XLDnaute Junior

• 18 Mars 2009

• #6

Re : message box

C'est toujours aussi bien.

Merci beaucoup du coup de main JP.

Big UP

 

Vote positif 0 Vote négatif