Bonjour;
Je veut ecrire et lire une donnée en utilisant des commandes distinctes.
'----------------------------------
Dans le module de classe(Chiffre)
Private Nombre As String
Property Get Nbre() As String
Nbre = Nombre
End Property
Property Let Nbre(StrNbre As String)
Nombre = StrNbre
End Property
Sub ShowInfo()
MsgBox Nbre
End Sub
'---------------------------------
Bouton1(Saisir valeur)
Dans le Userform1
Private Sub CommandButton1_Click()
Dim MaVal As New Chiffre
MaVal.Nbre = Me.TextBox1
Unload Me
MaVal.ShowInfo
End Sub
'---------------------------------
BOuton2(revoir la valeur saisie)
je ne veux pas que cette valeur ne soit sur une feuille du classeur.
<<Je sais pas quel est le code utiliser avec MSGBOX>>
Ci-joint le classeur.
Merci de votre aide.
Je veut ecrire et lire une donnée en utilisant des commandes distinctes.
'----------------------------------
Dans le module de classe(Chiffre)
Private Nombre As String
Property Get Nbre() As String
Nbre = Nombre
End Property
Property Let Nbre(StrNbre As String)
Nombre = StrNbre
End Property
Sub ShowInfo()
MsgBox Nbre
End Sub
'---------------------------------
Bouton1(Saisir valeur)
Dans le Userform1
Private Sub CommandButton1_Click()
Dim MaVal As New Chiffre
MaVal.Nbre = Me.TextBox1
Unload Me
MaVal.ShowInfo
End Sub
'---------------------------------
BOuton2(revoir la valeur saisie)
je ne veux pas que cette valeur ne soit sur une feuille du classeur.
<<Je sais pas quel est le code utiliser avec MSGBOX>>
Ci-joint le classeur.
Merci de votre aide.