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
A voir également:
- Tableau dans Userform VBA Excel
- Tableau word - Guide
- Trier un tableau excel - Guide
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
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
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
quand vous dites Technologie ADO , vous voulez dire ADODB?