Discussion :

[fleur_d_eden]

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

[ZebreLoup]

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.

[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 :

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

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,

[ZebreLoup]

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

[fleur_d_eden]

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 ,

[ZebreLoup]

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

[fleur_d_eden]

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 :

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

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,

[ZebreLoup]

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