Recuperer la valeur d'une textbox lors de l'initialisation.

[Creepy]

Salut le forum,

Lors de l'initialisation de ma page, je fais appel à une textbox pour que l'utilisateur saisisse un chiffre. Le pb c'est que je me mange dans la tete un erreur de type 13 et je ne sais pas pkoa. Ci joint le code source !

INITIALIZE :
-------------------------------------------------
Option Explicit
Dim Pdts As Integer
Private Sub Workbook_Open()
Dim I As Integer
Dim Feuille As Worksheet

Application.ScreenUpdating = False

Feuil1.Range("c1:ee27").Delete
Feuil2.Range("c1:ee27").Delete

Combien.Show

Pdts = Combien.TxtCombien.Value

If Pdts > 12 Then
MsgBox "Le Mapping risque d'être illisible !! " & Pdts & " points !!!", vbExclamation, "Attention..."
End If


For I = 1 To Pdts
--------------------------------------

USERFORM :
--------------------------------------
Private Sub Image1_Click()
If Not IsNumeric(TxtCombien) Then
MsgBox "Sasie non numérique !! Veuillez recommencer S.V.P. ;-)"
Else
'Unload Me
Exit Sub
End If
End Sub
Private Sub UserForm_Activate()
TxtCombien.Value = ""
End Sub
--------------------------------------

Merci d'avance de votre aide car là, je ne vois pas !! ??

Creepy

 

[sousou]

essaie Pdts = val(Combien.TxtCombien.Value)

 

[Creepy]

J'ai trouvé !! Comme quoi faire du VBA tard le soir parfois c'est une mauvaise idée c'était si simple !!!

En faites je decharge la Userform dans ma procedure bouton_click, ce qui fait que quand je reviens dans mon code de Workbook_initialize, ba forcement la valeur de la Textbox elle existe plus !!!

Fallait faire dans la procedure clique : userform.hide

et dans la procedure initialize :
Pdts = val(Combien.TxtCombien.Value)
Unload userform

Et là ca marche impeccable !!!

++

Creepy