Discussion :

[Wyzzart]

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

[Wyzzart]

Voici le code:

Code :

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

1
2
3
4
Private Sub TextBox1_Activate()
        Call ["&"nsemaine].Show
 
    End Sub

nsemaine étant le nom de ma variable.

[zipbox]

Bonjour,

Code :

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

UserForm1.TextBox1.Text = Str(nSemaine)

[Wyzzart]

Bonjour,

Code :

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

UserForm1.TextBox1.Text = Str(nSemaine)

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

Code :

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

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

:/

[zipbox]

version 1 :

Code :

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

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 :

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

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

[Wyzzart]

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 :/