Lien entre listbox et texbox

Version imprimable

20/05/2017, 09h30
sds95

Tout d'abord bonjour à tous,

Je cherche depuis plus d'une semaine sur divers forum sans trouver solution à mon problème, je ne suis pas très calée dans la partie "VBA" de excel c'est pour cela que je me permets de vous exposez mon "énigme" :mouarf:

J'ai un Userform 1 sur lequel je fais une recherche via une combobox qui reprend les entêtes de mon tableau de base de données (Nom, prénom, ville, CP, téléphone ....) et une textbox pour choisir le mot à rechercher dans la catégorie choisie de ma combobox.

Cette recherche va chercher ses données dans ma base de donnée (feuille excel). Une fois la recherche lancé les résultats s'affiche dans ma listbox (toujours sur mon Userform1) qui reprend les 11 colonnes de ma bases de données avec les entêtes.

J'aimerai pouvoir modifier les enregistrements de ma base de données via un formulaire pour cela sur mon Userform1 j'ai programmé un bouton Modifier qui ouvre mon Userform2 dans lequel j'aimerai pouvoir récupérer les informations de ma ligne sélectionné de ma listbox mais répartie dans 11 textbox reprennant les entêtes de ma base de données (Nom, prénom, ville, CP, téléphone ....)

J'espère que quelqu'un parmi vous pourra m'aider :calim2:

J'ai l'impression d'avoir été claire mais n'hésiter pas à me demander si au final je suis la seule à me comprendre :mrgreen:

Merci d'avance !
20/05/2017, 09h56
mjpmjp

bonjour,
j'ai pas tout compris, 8O

Citation:

J'ai un Userform 1

ok...

Citation:

je fais une recherche via une combobox qui reprend les entêtes de mon tableau de base de données (Nom, prénom, ville, CP, téléphone ....)

une combo avec 11 colonnes ?

Citation:

et une textbox pour choisir le mot à rechercher dans la catégorie choisie de ma combobox.

tu veux dire choisir la colonne ? (si pas çà ...explique)

Citation:

Cette recherche va chercher ses données dans ma base de donnée (feuille excel). Une fois la recherche lancé les résultats s'affiche dans ma listbox (toujours sur mon Userform1) qui reprend les 11 colonnes de ma bases de données avec les entêtes.

tu re expliques les lignes du dessus ou on parle d'autres choses ?

Citation:

J'aimerai pouvoir modifier les enregistrements de ma base de données via un formulaire pour cela sur mon Userform1 j'ai programmé un bouton Modifier qui ouvre mon Userform2 dans lequel j'aimerai pouvoir récupérer les informations de ma ligne sélectionné de ma listbox mais répartie dans 11 textbox reprennant les entêtes de ma base de données (Nom, prénom, ville, CP, téléphone ....)

le form 2 n'est pas obligatoire mais bon....

donc,
tu as une liste de 11 colonnes ...quand tu cliques sur la ligne (de 11 colonnes)...aucun problème pour répartir les colonnes 0 à 10 dans chaque textbox
mais avant tout... re explique

@+JP
20/05/2017, 11h21
sds95

:mrgreen: Désolée de mal m'exprimer..

Donc au départ j'ai ma base de donnée sur feuil excel en forme de tableau.

J'ai un formulaire (userform1) qui me permet de faire une recherche dans ma base de données, ce formulaire est composé d'une ComboBox qui reprend les entêtes que j'ai donné à mon tableau de Base de données (IDENTIFICATION, ADRESSE, VILLE...), d'une TextBox dans laquelle si par exemple je met PARIS en ayant choisie dans ma combobox Ville, il va dans la LISTBOX de ce même formulaire me donner toutes les lignes de ma basse de donnée ou j'ai pour la colonne ville "PARIS".

Et dans ma listbox, je reprend également les entêtes de ma base de données.

Jusque là j'ai pas de souci, ça fonctionne, mon souci vient après car j'aimerai par rapport a cette liste pouvoir sélectionner une des lignes, cliquer sur mon bouton modifier et qu'il m'ouvre un nouveau formulaire(userform2) avec une TextBox par colonne, modifier ce que je souhaite et pouvoir l'enregistrer dans ma bases de données.

Ci dessous une capture des 2 Formulaires en question pour aider si besoin.
http://zupimages.net/viewer.php?id=17/20/bwfc.jpg

Merci

bonjour,
ok donc tu as une liste de ligne "résultat de recherche"

il te faut juste le code pour extraire les colonnes vers les textbox..

code à main levée...code à mettre dans form 1 ---> de la liste
remplacer "TextBox1" par le vrai nom
Code:

1 2 3 4 5 6 7 Private Sub ExtraireColonne(ByVal objLbx As Object, objForm as Object) 'parcourir le nombre de colonne For n = 0 To objLbx.ColumnCount-1 objForm.TextBox1.Text = objLbx.List(objLbx.ListIndex, n) Next n End Sub
appel dans form 1 ---> de la liste
sur événement, au choix et a tester, "Click ", "MouseDown",...
Call ExtraireColonne(Me.NomDeListe,UserForm2)

attention à la propriété des Form : en cas de problème : ShowModal = False
@+JP

1 pièce(s) jointe(s)

bonjour,

pour utiliser la boucle objForm.TextBox1.Text ne fonctionne pas ...:aie:
je l'ai désactivée (en commentaire)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub ExtraireColonne(ByVal objLbx As Object, ByRef objForm As Object)
    'parcourir le nombre de colonne
    'For n = 0 To objLbx.ColumnCount-1
        objForm.TextBox1.Text = objLbx.List(objLbx.ListIndex, 0)
        objForm.TextBox2.Text = objLbx.List(objLbx.ListIndex, 1)
        objForm.TextBox3.Text = objLbx.List(objLbx.ListIndex, 2)
        objForm.TextBox4.Text = objLbx.List(objLbx.ListIndex, 3)
        objForm.TextBox5.Text = objLbx.List(objLbx.ListIndex, 4)
        objForm.TextBox6.Text = objLbx.List(objLbx.ListIndex, 5)
        objForm.TextBox7.Text = objLbx.List(objLbx.ListIndex, 6)
        objForm.TextBox8.Text = objLbx.List(objLbx.ListIndex, 7)
        objForm.TextBox9.Text = objLbx.List(objLbx.ListIndex, 8)
        objForm.TextBox10.Text = objLbx.List(objLbx.ListIndex, 9)
        objForm.TextBox11.Text = objLbx.List(objLbx.ListIndex, 10)
    'Next n
End Sub

Pièce jointe 277509

appel

Code:

1
2
3
4
 
Private Sub ListBox1_Click()
    Call ExtraireColonne(Me.ListBox1, UserForm2)
End Sub

@+JP

bonjour,

avec ce code, on s'approche de la solution, mais s'il y a des autres contrôles !!!! ;)
Code:

1 2 3 4 For n = 0 To objLbx.ColumnCount - 1 objForm.Controls.Item(n).Text = objLbx.List(objLbx.ListIndex, n) Next n
@+JP

bonjour,

ce code fonctionne :applo:

Code:

1
2
3
4
 
    For n = 0 To objLbx.ColumnCount - 1
        objForm.Controls("TextBox" & n + 1).Text = objLbx.List(objLbx.ListIndex, n)
    Next n

@+JP

Je te remercie pour ton labeur :plusser::rose2:

Je ne voudrais pas abuser de ta gentillesse mais comme dit au début je suis pas fortiche dans le VBA du coup j'ai essayé de rentrer ton code comme je l'ai compris mais cela ne fonctionne pas pourrai-tu me guider ...

Dans le code du premier formulaire (userform1) ou il y a ma listbox j'ai mis ça pour quand je clic sur le bouton modifier :

Code:

1
2
3
4
Private Sub CommandButton2_Click()
userform2.Show
Call ExtraireColonne(Me.ListBox1, userform2)
End Sub

Et dans le code de mon deuxième formulaire (userform2) j'ai repris ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ExtraireColonne(ByVal objLbx As Object, ByRef objForm As Object)
    'parcourir le nombre de colonne
    For n = 0 To objLbx.ColumnCount - 1
        objForm.Controls("TextBox" & n + 1).Text = objLbx.List(objLbx.ListIndex, n)
        objForm.TextBox1.Text = objLbx.List(objLbx.ListIndex, 0)
        objForm.TextBox2.Text = objLbx.List(objLbx.ListIndex, 1)
        objForm.TextBox3.Text = objLbx.List(objLbx.ListIndex, 2)
        objForm.TextBox4.Text = objLbx.List(objLbx.ListIndex, 3)
        objForm.TextBox5.Text = objLbx.List(objLbx.ListIndex, 4)
        objForm.TextBox6.Text = objLbx.List(objLbx.ListIndex, 5)
        objForm.TextBox7.Text = objLbx.List(objLbx.ListIndex, 6)
        objForm.TextBox8.Text = objLbx.List(objLbx.ListIndex, 7)
        objForm.TextBox9.Text = objLbx.List(objLbx.ListIndex, 8)
        objForm.TextBox10.Text = objLbx.List(objLbx.ListIndex, 9)
        objForm.TextBox11.Text = objLbx.List(objLbx.ListIndex, 10)
     Next n
End Sub

Vraiment désolée d'abuser :oops::oops:

:merci:

bonjour,
à la place de

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub ExtraireColonne(ByVal objLbx As Object, ByRef objForm As Object)
    'parcourir le nombre de colonne
    'For n = 0 To objLbx.ColumnCount-1
        objForm.TextBox1.Text = objLbx.List(objLbx.ListIndex, 0)
        objForm.TextBox2.Text = objLbx.List(objLbx.ListIndex, 1)
        objForm.TextBox3.Text = objLbx.List(objLbx.ListIndex, 2)
        objForm.TextBox4.Text = objLbx.List(objLbx.ListIndex, 3)
        objForm.TextBox5.Text = objLbx.List(objLbx.ListIndex, 4)
        objForm.TextBox6.Text = objLbx.List(objLbx.ListIndex, 5)
        objForm.TextBox7.Text = objLbx.List(objLbx.ListIndex, 6)
        objForm.TextBox8.Text = objLbx.List(objLbx.ListIndex, 7)
        objForm.TextBox9.Text = objLbx.List(objLbx.ListIndex, 8)
        objForm.TextBox10.Text = objLbx.List(objLbx.ListIndex, 9)
        objForm.TextBox11.Text = objLbx.List(objLbx.ListIndex, 10)
    'Next n
End Sub

utilise

Code:

1
2
3
4
 
    For n = 0 To objLbx.ColumnCount - 1
        objForm.Controls("TextBox" & n + 1).Text = objLbx.List(objLbx.ListIndex, n)
    Next n

dans tous les cas met ce code dans le form 1 celui de la liste
@+JP

je met juste :

Code:

1
2
3
    For n = 0 To objLbx.ColumnCount - 1
        objForm.Controls("TextBox" & n + 1).Text = objLbx.List(objLbx.ListIndex, n)
    Next n

Pas de private ... et de End ??

bonjour,

Code:

1
2
3
4
5
6
7
 
Private Sub ExtraireColonne(ByVal objLbx As Object, ByRef objForm As Object)
    'parcourir le nombre de colonne
    For n = 0 To objLbx.ColumnCount - 1
        objForm.Controls("TextBox" & n + 1).Text = objLbx.List(objLbx.ListIndex, n)
    Next n
End Sub

pourquoi dans le form1 et pas dans le 2 ?
c'est à cause de "la portée des variables", fais une recherche tu comprendras

@+JP

20/05/2017, 17h00
sds95

Un grand merci à toi c'est :resolu:

Et bon week end :D