Affichage d'informations dans une textbox

Question

Ma question va peut &#234;tre vous paraitre simple cependant je ne connais
rien &#224; Vb j'essaye &#224; partir d'une feuille excel d'obtenir diff&#233;rentes
informations.

En effet j'ai 7 colonnes avec 25 lignes chacune, ma premiere colonne
correspond &#224; la d&#233;signation d'un produit, j'ai mis sous Vb cette
colonne sous une listbox. Afin d'obtenir un listing du produit une fois
la selection du produit faite j'aur&#233; aim&#233; que directement les
informations de ce produit apparaissent dans des zones de texte. Je n'y
parviens pas pouvez vous m'aider merci d'avance.

Tuning Max · Answer

J'ai un peu de mal &#224; comprendre ce que tu souhaite faire et ou est ton probl&#232;me?
Pourrais tu nous donner quelque pr&#233;cisions upl&#233;mentaires

cs_lacomm · Answer

ceci peut peut-&#234;tre t'aider, c'est ADO, avec bases access, mais j'imagine que le principe est le m&#234;me pour excel.


Private Sub Command2_Click()


'connection &#224; ta base access, cr&#233;ation d'une copie de ta base
Dim cmabase As New ADODB.Connection


Dim rmatable As New ADODB.Recordset


cmabase.Provider = "Microsoft.Jet.OLEDB.4.0"


'ta base contient dans la colonne1 les produits parmi lesquels "cache-nez et "bretelles"
cmabase.ConnectionString = App.Path & "\cmabase.mdb"


Set rmatable = New ADODB.Recordset


 cmabase.Open


rmatable.Open "SELECT * FROM mafeuille ", cmabase


rmatable.MoveFirst


'tu effaces le rich text box
RTB1.Text = ""


'ici tu affiches le titre de tes colonnes dans le rich text box si tu as choisi l'option1, ici "cache-nez"
If Option1.Value Then


RTB1.Text = RTB1.Text & " " & "Produits" & vbTab & vbTab & vbTab & " " & "Colonne2" & vbTab & " " & "colonne3" & vbTab & " " & "colonne4" & vbCr '& " " & "colonne5" & vbTab & " " & "colonne6" & vbTab & " " & "colonne7" & vbCr


If rmatable.RecordCount <> 0 Then


Do While Not rmatable.EOF


            'si tu trouves "cache-nez" dans la liste des produits
            res = InStr(1, rmatable(1), "cache-nez", 1)


If res = 1 Then


               'affiche les champs correspondant &#224; "cache-nez"
                RTB1.Text = RTB1.Text & " " & rmatable(2) & vbTab & " " & rmatable(3) & vbTab & " " & rmatable(4) & vbTab & " " & rmatable(5) & vbCr '& vbTab & " " & rmatable(6) & vbTab & " " & rmatable(7) & vbTab & " " & rmatable(8) & vbCr


End If


rmatable.MoveNext


Loop


End If


End If



'pareil pour bretelles  


If Option2.Value Then

ainsi de suite..

Affichage d'informations dans une textbox

2 réponses

Discussions similaires