Introduire variable numérique dans un userform

Bonjour à tous et à toutes,
Pourriez vous m'expliquer comment afficher une variable numérique issue d'une fonction dans une textbox?
Après d'innombrables essais je n'y arrive pas, je pense ne pas encore avoir bien compris comment fonctionne le vba... ^^'
Merci d'avance de prendre le temps de me répondre

Voici le code:

Code:

---

1 2 3 4

Private Sub TextBox1_Activate() Call ["&"nsemaine].Show   End Sub

---

nsemaine étant le nom de ma variable.

Bonjour,

Code:

---

UserForm1.TextBox1.Text = Str(nSemaine)

---

:?

Citation:

---

Envoyé par zipbox

Bonjour,

Code:

---

UserForm1.TextBox1.Text = Str(nSemaine)

---

:?

---

Avec votre solution la compilation s'effectue correctement mais la valeur ne s'affiche pas...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Dim nsemaine As Integer   Function Semaine() nsemaine = Worksheets("semaine").Range("D24").Value   End Function   Public Sub CommandButton1_Click() If CommandButton1 Then nsemaine = "&nsemaine + 1"   End If   End Sub Private Sub TextBox1_Activate() UserForm1.TextBox1.Text = Str(nsemaine)       End Sub

---

:/

version 1 :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() ' Dim nSemaine As Integer ' nSemaine = Sheets("semaine").Range("d24").Value ' UserForm1.TextBox1.Text = nSemaine ' End Sub

---

version 2 :

Code:

---

UserForm1.TextBox1.Text = Sheets("semaine").Range("d24").Value

---

;)

Merci beaucoup, mais je viens de tester le code et quand je fais <<executer l'userform>> ça ne fonctionne pas, je n'ai toujours pas la valeur de ma cellule :/