Discussion :

[Sierra]

Bonjour,
Je pose une question peut-être un peu basique, mais je me remets au VBA après quelques années de pause…

J’ai une procédure qui récolte quelques données auprès de l’utilisateur par l’affichage successif de 2 InputBox, les affecte ensuite à des variables, ouvre Excel et remplit 2 champs avec les valeurs des variables.

Or, je dois désormais faire la même chose avec une dizaine de valeurs et il n’est donc pas question de faire ouvrir une dizaine de fois une InputBox.

Je voudrais utiliser un formulaire libre avec des champs à la place du genre monChamp1, monChamp2, les affecter aux variables maVariable1, maVariable2, etc. (jusque-là c’est facile, je sais faire).
J’ouvre mon formulaire par DoCmd.Open MonFormulaire et souhaite le fermer par clic sur un bouton.

Comment je gère l’affectation des valeurs aux variables ? À l’intérieur de la procédure MonFormulaire_Clic() ou par la procédure déjà existante ? Et comment faire en sorte à ce que mes valeurs entrées par l’utilisateur dans le formulaire soient affectées aux variables qui sont ensuite nécessaires pour l’exécution du code qui ouvre Excel ?

Merci pour votre aide (et l’indulgence),

Stefan

[ClaudeLELOUP]

Bonjour,

Avec une syntaxe qui a cette forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms!LeFormulaireQuiContientLesDonnées!LeContrôleEnQuestion

[Sierra]

Je me suis peut-être mal expliqué. Le formulaire fait office de boîte de dialogue. Il s'ouvre et l'utilisateur doit entrer les données ; puis, il clique sur OK et le formulaire se ferme en principe. Donc, les données ne sont plus accessibles à la procédure d'où est venu l'appel d'ouverture du formulaire.
Mais c'est peut-être moi qui construis mal le truc au départ...

Voilà à quoi ça ressemble au départ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub maProcedure
Dim maVariable1, maVariable2
 
maVariable1 = InputBox("Entrez votre valeur") ' cette ligne et la suivante sont à remplacer
maVariable2 = InputBox("Entrez votre valeur") ' par une boîte de dialogue
 
' Ouverture d'Excel
 
' Remplissage des cellules
    With maFeuille
        .Activate
        .Range("A1").Value = maVariable1
        .Range("A2").Value = maVariable2
    End With
End Sub

[ClaudeLELOUP]

Bien entendu, il faut exploiter les données du formulaire avant que celui-ci ne soit fermé !

Ou alors, ce formulaire alimente une table qui, elle, sera exploitable après la fermeture du formulaire. Mais à quoi bon ?

[Sierra]

Ok, j'ai compris.
Je dois donc exécuter le code dans monFormulaire_Clic et non pas dans maProcedure.

Merci beaucoup.