Visual Basic Formulaire
Résolu
juliet
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Sous Visual Basic, j'ai crée un userform qui me permet d'avoir un formulaire de saisie.
Les données saisies je les exporte sous une autre feuille de calcul, mais j'aimerai en plus que ces données restent dans le formulaire quand j'ouvre mon fichier.
Merci d'avance
Sous Visual Basic, j'ai crée un userform qui me permet d'avoir un formulaire de saisie.
Les données saisies je les exporte sous une autre feuille de calcul, mais j'aimerai en plus que ces données restent dans le formulaire quand j'ouvre mon fichier.
Merci d'avance
A voir également:
- Visual Basic Formulaire
- Whatsapp formulaire opposition - Guide
- Visual basic - Télécharger - Langages
- Formulaire de réclamation facebook compte désactivé - Guide
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
4 réponses
Ouvre ton fichier excel,
appuie sur ALT + F11, VBA s'ouvre,
sur la droite tu va voir ton userform Formulaireactivité
Exemple :
-Microsoft ExcelObjects
Feuil1
Feuil2
Feul3
- Feuilles
Formulaireactivité doubleclic dessus
Il s'affiche dans la fenêtre, double clic sur ton Userform (n'importe ou dedans mais pas sur un champ/bouton ou autre objet)
Tu vois maintenant :
Private Sub UserForm_Click()
End Sub
Au dessus légèrement à droite, menu déroulant click que tu remplaces par : Activate et tu recopies :
Private Sub UserForm_Activate()
Me.textbox=Sheets("onglet excel").Range("F6").Value
End Sub
appuie sur ALT + F11, VBA s'ouvre,
sur la droite tu va voir ton userform Formulaireactivité
Exemple :
-Microsoft ExcelObjects
Feuil1
Feuil2
Feul3
- Feuilles
Formulaireactivité doubleclic dessus
Il s'affiche dans la fenêtre, double clic sur ton Userform (n'importe ou dedans mais pas sur un champ/bouton ou autre objet)
Tu vois maintenant :
Private Sub UserForm_Click()
End Sub
Au dessus légèrement à droite, menu déroulant click que tu remplaces par : Activate et tu recopies :
Private Sub UserForm_Activate()
Me.textbox=Sheets("onglet excel").Range("F6").Value
End Sub
juliet
Merci bien, ca marche comme je veux
Bonjour,
De la manière inverse de ce que tu as fait pour transférer tes données du formulaire à ta feuille.
exemple :
saisie du formulaire :
[A4] = Textbox1.value
Tu changes par
TextBox1.value = [A4]
dans la procédure d'activation du userform :
Private Sub UserForm_Activate()
End Sub
Est-ce clair?
De la manière inverse de ce que tu as fait pour transférer tes données du formulaire à ta feuille.
exemple :
saisie du formulaire :
[A4] = Textbox1.value
Tu changes par
TextBox1.value = [A4]
dans la procédure d'activation du userform :
Private Sub UserForm_Activate()
End Sub
Est-ce clair?
Merci de ta réponse, mais je n'ai pas tout compris!
En fait dans mon userform, j'ai 2 boutons: 1 pour valider la saisie et 1 pou fermer le formulaire de saisie.
Et j'ai écris sous vb:
Private Sub Valider_Click()
Sheets("onglet excel").Range("F6").Value=Me.textbox
End Sub
Private Sub retour_Click()
Unload Me
End Sub
Ca marche bien, cependant quand je réouvre le formulaire userform, les données sont plus dans le formulaire
Merci
En fait dans mon userform, j'ai 2 boutons: 1 pour valider la saisie et 1 pou fermer le formulaire de saisie.
Et j'ai écris sous vb:
Private Sub Valider_Click()
Sheets("onglet excel").Range("F6").Value=Me.textbox
End Sub
Private Sub retour_Click()
Unload Me
End Sub
Ca marche bien, cependant quand je réouvre le formulaire userform, les données sont plus dans le formulaire
Merci
Essaye de rajouter ceci :
Private Sub UserForm_Activate()
Me.textbox=Sheets("onglet excel").Range("F6").Value
End Sub
Private Sub UserForm_Activate()
Me.textbox=Sheets("onglet excel").Range("F6").Value
End Sub
Ben j'ai oublié de précise quelquechose qui doit avoir toute son importance: pour arriver au formulaire je suis sur un feuille excel, et j'appuie sur un controle qui me permet d'accéder aux formulaire de saisie.
Et pour cela j'ai écris dans vb sous ma feuil1 dans Microsoft Excel Objets
Private Sub Activité_Click()
Formulaireactivité.Show
End Sub
Merci de ta patience...
Et pour cela j'ai écris dans vb sous ma feuil1 dans Microsoft Excel Objets
Private Sub Activité_Click()
Formulaireactivité.Show
End Sub
Merci de ta patience...
