High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Visual Basic Formulaire

Dernière réponse le 6 mai 2009 à 17:05:37 juliet, le 6 mai 2009 à 14:00:44 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP Internet Explorer 7.0

Meilleures réponses pour « Visual Basic Formulaire » dans :
Télécharger Visual Basic 6 Runtime (VB6 DLL) VoirLe Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...
Introduction à Visual Basic VoirPrésentation de Visual Basic Visual Basic est un outil développé par Microsoft pour développer facilement des applications fonctionnant sous Microsoft Windows ©. Visual Basic est, comme son nom l'indique, un outil visuel permettant de créer...
Introduction à VBScript VoirPrésentation de VB Script VBScript (aussi appelé Visual Basic Scripting Edition) est un sous-ensemble du langage Visual Basic for Applications (VBA), un langage propriétaire de Microsoft prévu pour être intégré aux produits Microsoft Office©, le...
Posez votre question Répondre

1

pijaku, le 6 mai 2009 à 15:29:42

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? Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

   
Répondre à pijaku

3

juliet, le 6 mai 2009 à 16:03:31

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

   
Répondre à juliet

4

pijaku, le 6 mai 2009 à 16:11:08

Essaye de rajouter ceci :
Private Sub UserForm_Activate()
Me.textbox=Sheets("onglet excel").Range("F6").Value
End Sub Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

   
Répondre à pijaku

5

juliet, le 6 mai 2009 à 16:40:18

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...

   
Répondre à juliet

6

pijaku, le 6 mai 2009 à 16:51:07

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 Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

   
Répondre à pijaku

7

juliet, le 6 mai 2009 à 17:03:47

Merci bien, ca marche comme je veux

   
Répondre à juliet

8

 pijaku, le 6 mai 2009 à 17:05:37

Alors clique sur résolu (en haut à droite du premier post de ce topic...)
@+ Ce qui vaut la peine d'être fait vaut la peine d'être bien fait.

   
Répondre à pijaku
Posez votre question Répondre
Ils ont besoin de votre aide