Valider ListBox dans Formulaire ACCESS via EXCEL

Bonjour,

J'utilise le Pack Office Pro en version 2007.
Je cherche a développer des interactions entre EXCEL et ACCESS en utilisant le langage VBA (pas courant dans ce sens).

A partir d'EXCEL je renseigne une liste box dans un formulaire ACCESS, pour afficher lablel et zone texte "Gamme" il faut que je sorte de la liste box par la touche Entrée.

Comment remplacer ça par du VBA?

Pièce jointe 163986

Merci d'avance,

P.Jean

Bonjour,
regarde ça: http://www.developpez.net/forums/d13...l/#post7173972

Merci pour votre message et votre réactivité,

Par contre je ne comprend pas comment répondre à ma question avec les éléments apportés.
J'ai légèrement modifié ma question en espérant qu'elle soit plus claire.

oui désolé erreur de lien.
je te donne le zip il contient la base Access dézip tout le répertoire sur ton disck

Si j'ai bien compris l'exemple envoyé en pièce jointe, il permet d'écrire avec Excel dans une Table Access.

SANS VBA / Quand je suis dans ACCESS et j'utilise mon formulaire si je sélectionne l'Action Export, j'ai le champ Gamme qui apparaît, sinon il est masqué.
AVEC VBA DEPUIS EXCEL / Voici comment je renseigne ma liste box Action :

Code:

---

1 2 3

'Renseignement du Formulaire par Edition objAccess.DoCmd.GoToControl "Action" objAccess.Screen.ActiveForm.Controls("Action") = "Exporter"

---

J'essai de rendre actif le champ Gamme pour pouvoir le remplir. En remplissant l'action en tapant Export et en réalisant Entrée je me suis rendu compte que le Champ Gamme devenait Actif.

dans cet exemple pour QQ1 du forum j'utilise une SUB pour renseigner une combobox!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub UserForm_Initialize() OpenConnexion Fichier ReseigneListe Cnx, Feuille, Me.ComboBox1 Cnx.Close Set Cnx = Nothing End Sub   Sub ReseigneListe(Cnx as object,Table As String, Champ As String, Lst As ComboBox) Dim sql As String Dim Rs As Object Dim MySelect As String sql = "select distinct Frm." & Champ & " from [" & Table & "] as frm " Set Rs = CreateObject("ADODB.RECORDSET") Rs.Open sql, Cnx Lst.Clear If Rs.EOF = False Then Lst.ColumnCount = Rs.fields.Count Lst.BoundColumn = Rs.fields.Count Lst.List = Application.WorksheetFunction.Transpose(Rs.getrows) End If Rs.Close Set Rs = Nothing End Sub

---

Décidément j'ai du mal a être suffisamment claire,

Rappel de l'objectif :
Rendre accessible les champs complémentaire a remplir tributaire du champs Action.
Mon Champs Action est une zone liste qui peu avoir que deux valeurs, "Exporter" ou "Importer". Sur activation d'une de ces deux valeurs

Solution 1 / J'écris Exporter dans mon champ Action et je fais Entrée

Code:

---

1 2 3 4

'Renseignement du Formulaire Passerelle objAccess.DoCmd.GoToControl "Action" objAccess.Screen.ActiveForm.Controls("Action") = "Exporter" '+ Action de la touche Entrée sur la Liste Action du formulaire Access

---

Solution 2 / Je sélectionne la valeur 1 de la liste de choix

Code:

---

'Je ne connais pas le code

---

Merci encore de votre disponibilité,

oui effectivement j'ai rien compris, désolé!

Avez vous quand même une idée?