Tableau dans Userform VBA Excel

Bonjour,
j'ai un Gros soucis , je vous explique
je suis débutante en VBA Excel , j'ai commencer a programmer une application de gestion de stock récemment et je suis bloqué depuis une semaine sur un truc :
je voudrais afficher un tableau ( le stock) dans mon userform , qui va contenir le résultat d'une requête SELECT avec jointure (connexion avec la BD ...) et je bloque , j'ai rien trouvé sur le sujet
j'ai vu qu'il y'avait un control qui s'appelait "GRID Control" mais je ne sais pas comment l'alimenter , ni le manipuler
Si vous avez la moindre Idée , Merci de me le faire savoir , je bloque vraiment :cry:

S'il n'y a pas trop de colonnes, tu peux regarder du coté des zones de liste. Elles peuvent avoir plusieurs colonnes. Et pour le coup, il y aura plein de tutos sur le site ou dans la FAQ.

Si tu veux afficher un tableau dans un UserForm utilise le controle SpreadSheet. Ton tableau dois être préalablement affiché sur une feuille que tu peux masqué ou pas.

Après de comment les valeurs sont rentrés dans le tableau, ça on s'en fiche.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub cbDonnées_Click() On Error Resume Next Me.Controls.Remove (Img.Name)     With Me.Spreadsheet1 .Visible = True Set Plage = Sheets("TA FEUILLE").Range("Nom_Plage_Tableau") For Each c In Plage .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1) = c.Value .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1).NumberFormat = c.NumberFormat Next c End With End Sub

---

Cdt,

C'est aussi une idée, mais si c'est uniquement pour de l'affichage, c'est peut-être un peu plus compliqué ou du moins source de mauvaise manipulation. De plus, ce contrôle ne fait pas partie des contrôles "standard" et je ne suis pas certain qu'il soit présent par défaut sur toutes les versions d'Excel, attention donc aux problèmes de compatibilité.

Si tu y tiens quand même, fais attention, le code fourni par notre ami jackborogar est bien spécifique et outre ce qu'il faut enlever, il présuppose que les données se trouvent quelque part dans une feuille de ton classeur. Il sera plus simple de remplir directement les cellules de ton contrôle SpreadSheet via le résultat de ta requête SQL.

En ce qui concerne le listBox, je l'utilise rarement comme ça, mais je me demande si tu ne peux pas directement lui associer une requête comme source de données, ce qui serait encore plus simple. A vérifier

Citation:

---

Envoyé par jackborogar

Si tu veux afficher un tableau dans un UserForm utilise le controle SpreadSheet. Ton tableau dois être préalablement affiché sur une feuille que tu peux masqué ou pas.

Après de comment les valeurs sont rentrés dans le tableau, ça on s'en fiche.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub cbDonnées_Click() On Error Resume Next Me.Controls.Remove (Img.Name)     With Me.Spreadsheet1 .Visible = True Set Plage = Sheets("TA FEUILLE").Range("Nom_Plage_Tableau") For Each c In Plage .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1) = c.Value .Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1).NumberFormat = c.NumberFormat Next c End With End Sub

---

Cdt,

---

Mercii mais je ne voudrais pas afficher un simple tableau , c'est un tableau ou je vais afficher le résultat d'une requête,

Regarde la deuxième partie de cet élément de la FAQ, je pense que ça répond à ton besoin

Citation:

---

Envoyé par ZebreLoup

En ce qui concerne le listBox, je l'utilise rarement comme ça, mais je me demande si tu ne peux pas directement lui associer une requête comme source de données, ce qui serait encore plus simple. A vérifier

---

c'est a ça que je voulais arriver!! enfaîte je suis un peu habitué a travailler avec du c# et c simple , genre on peut afficher dans une "gridView" le résultat d'une requête avec un commandText

malheureusement ce controle n'existe pas en VBA , et moi je galère ,

Regarde le message juste au dessus, au cas où tu l'aurais raté. Ca devrait t'aider.

ouiii Merci j'ai vu , ça répond un peu a ce que je veux ,
n'y aurait-il pas une propriété pour afficher les lignes du tableau ?

enfaîte j'ai un autre petit soucis cette fois avec ma requête ,

j'ai une jointure avec plusieurs tables et apparemment j'ai un problème avec la syntaxe de la jointure puisque VBA me retourne une erreur de type "Nombre d'arguments incorrect ou affectation de propriété incorrecte"

voila ma requete si vous pouvez me dire ou est le HIC

Code:

---

1 2 3 4 5 6 7 8 9 10

Set Rs = New ADODB.Recordset With Rs .ActiveConnection = cnn .Open "SELECT departementCentre.nom, employe.nom, [type_materiel].[nom_type], materiel.designation, materiel.nserie, affectation.[date_affectation] FROM DepartementCentre INNER JOIN Employe ON (DepartementCentre.[id_dep]=employe.[id_depart_ctr]) INNER JOIN affectation ON (employe.[id_emp]=affectation.[id_emp]) INNER JOIN Materiel ON (affectation.[id_mat]=materiel.[id_mat]) INNER JOIN TypeMateriel ON (materiel.type=typemateriel.[id_type]) WHERE ( departementCentre.nom = ('" & UserForm5.ComboBox1.Text & "') ) ;", cnn _ , , adOpenStatic, adLockOptimistic, adCmdText

---

Merci bcp ,

Salut,

Alors, déjà je te conseille de séparer en deux étapes. Mets la requête dans une variable dans un premier temps et ouvre ensuite ton recordSet avec cette variable. Si l'erreur vient bien de la requête, tu pourras récupérer la requête exacte avec un Print taVariableRequête dans la fenêtre debug. Et la tester directement dans ta base de donnée.
Je trouve qu'il est plus simple de débugger le VBA dans Excel et le SQL dans la base.
Après je ne connais pas ta base, mais a première vue, étant donné le message d'erreur, je dirais que tu as une faute de type ou autre dans un nom de champ ou de table.

Merci bcp

j'ai pu résoudre le problème , c’était la syntaxe de la jointure qui était défaillante voila la bonne réponse :

Code:

---

.Open "SELECT departementCentre.nom, employe.nom, typemateriel.[nom_type], materiel.designation, materiel.nserie, affectation.[date_aff] FROM DepartementCentre INNER JOIN (Employe INNER JOIN (affectation INNER JOIN (Materiel INNER JOIN TypeMateriel ON materiel.type=typemateriel.[id_type])ON affectation.[id_mat]=materiel.[id_mat]) ON employe.[id_emp]=affectation.[id_emp]) ON DepartementCentre.[id_dep]=employe.[id_depart_ctr] WHERE ( departementCentre.nom = ('" & UserForm5.ComboBox1.Text & "') AND affectation.recupere=('0') ) " _

---