Tableau dans Userform VBA Excel
Kenbellezen
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
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
1 réponse
-
Bonjour
une piste en utilisant peut-^tre une listbox mais sans bien connaitre le pourquoi du comment de ce qui t'es demandé....
technologie ADO
If requete.EOF Then ' teste si requete vide MsgBox "Plage vide..." Exit Sub End If '---------- affectation des membres de la requête dans un tableau intermédiaire With requete .MoveFirst Do While Not .EOF Tableau(0, X) = .Fields(0) Tableau(1, X) = .Fields(1) Tableau(2, X) = .Fields(2) X = X + 1 ReDim Preserve Tableau(2, X) .MoveNext Loop End With ' -------------------- affectations des valeurs du tableau à la liste de données Me.LbxDonnees.Column() = Tableau Me.tbx_nbre.Value = " Nombre d'éléments dans la liste: " & X + 1