Dans un UserForm j'ai un TextBox qui récupère une valeur à l'aide d'une
douchette code barre.
le code suivant est dans le TextBox
--------------------------------------------
Private Sub TextBox1_Change()
Dim Maxi As String
Maxi = 10
If Len(TextBox1.Value) = Maxi Then
Code = TextBox1.Value ' Code = variable Public
Unload UserForm1
End If
End Sub
--------------------------------------------
pour essayer je fais
--------------------------
Sub essai()
UserForm1.show
MsgBox Code
End Sub
-----------------------------------------
Et rien pas de MsgBox qui s'ouvre, pour avoir le résultat il faut que
je mette deux "MsgBox Code" à la suite pour en avoir une seule qui
s'ouvre
avec le résultat
-------------------------
Sub essai()
UserForm1.show
MsgBox Code
MsgBox Code
End Sub
-----------------------
Je fais quoi comme bêtise ?
