S
stephbret56
Guest
Bonjour,
A travers un UserForm qui contient Une zone de texte et deux boutons j'aimerai utiliser ces éléments comme variable
La 1ere serait Variable1=datedujour
La seconde Variable2=Fic2
La trosiéme Variable3=Fic3
Mon problème est le suivant lorsque j'active mon UserForm celui-ci me renvoi bien la valeur de la date a travers une msgbox(me sert de test)
par contre les Variable2 et 3 son vide
Comment faire pour avoir la valeur de la variable2 ou 3 existe t-il un mode export ou autre?
Je vous mais mon ptit bout de code je précise que je débute en VBA
==========================================================
Private Sub TextBox1_Change()
'Saisie de la date
End Sub
Private Sub CommandButton6_Click()
'Choix du fichier
Variable6 = Fic2
End Sub
Private Sub CommandButton7_Click()
'Choix du fichier
Variable7 = FiC3
End Sub
Private Sub CommandButton1_Click()
'Résultat de la Saisie date sous la forme JJMMAA
'Et du choix du fichier
Variable1 = TextBox1
MsgBox Variable1
MsgBox Variable6
MsgBox Variable7
End Sub
Private Sub Label2_Click()
'Commentaire texte
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
A travers un UserForm qui contient Une zone de texte et deux boutons j'aimerai utiliser ces éléments comme variable
La 1ere serait Variable1=datedujour
La seconde Variable2=Fic2
La trosiéme Variable3=Fic3
Mon problème est le suivant lorsque j'active mon UserForm celui-ci me renvoi bien la valeur de la date a travers une msgbox(me sert de test)
par contre les Variable2 et 3 son vide
Comment faire pour avoir la valeur de la variable2 ou 3 existe t-il un mode export ou autre?
Je vous mais mon ptit bout de code je précise que je débute en VBA
==========================================================
Private Sub TextBox1_Change()
'Saisie de la date
End Sub
Private Sub CommandButton6_Click()
'Choix du fichier
Variable6 = Fic2
End Sub
Private Sub CommandButton7_Click()
'Choix du fichier
Variable7 = FiC3
End Sub
Private Sub CommandButton1_Click()
'Résultat de la Saisie date sous la forme JJMMAA
'Et du choix du fichier
Variable1 = TextBox1
MsgBox Variable1
MsgBox Variable6
MsgBox Variable7
End Sub
Private Sub Label2_Click()
'Commentaire texte
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub