Bonjour,
j'ai deux questions à poser concernant un userform que j'ai créé.
Dans un module, après plusieurs manipulations, un variable est définie (tsval) :
-----------première question-------------
' code....
For A = Len(s) - 6 To Len(s) - 5
tsval = tsval + Mid(s, A, 1)
Next
Userform1.show
'code....
Dans Private Sub UserForm_Initialize() j'aimerais utiliser cette valeur.
Je sais qu'il faut que je la déclare en PUBLIC, mais je ne sais pas comment faire.....
-----------deuxième question-------------
Voici le code de mon userform, grâce à celui-ci je créé dynamiquement un certain nombre de textbox correspondant au nombre de cell de ma sélection.
A la suite de cette mise en place, je n'arrive pas à utiliser ces textbox. En fait, j'aimerais qu'une fois toutes les textbox éditées par l'utilisateur, elles puissent toutes remplacer les anciennes valeurs dans ma sélection.
Private Sub UserForm_Initialize()
Dim i As Integer, j As Integer, x As Integer, y As Integer
Dim TxtB As Control
y = 1
For Each cell In Selection
Set TxtB = Me.Controls.Add("forms.Textbox.1" )
With TxtB
.Left = x * 36
.Top = 10 + ((y - 1) * 20)
.Width = 30
.Height = 15
.Text = cell.Value & " "
End With
x = x + 1
If x = tsval Then
x = 0
y = y + 1
End If
Set TxtB = Nothing
Next cell
End Sub
