Discussion :

[MichaSarah]

Bonjour à tous,
Je suis actuellement bloqué sur le point suivant. Peut être pourriez-vous m'aider ?
J'ai un tableau Excel avec des données (15 colonnes). Afin de rendre plus convivial la lecture et la documentation, j'ai créé des formulaires comme suit :
1°) 1er userform > les données sont affichées dans un texbox avec juste 5 colonnes pour synthétiser.
2°) 2ème userform > Il comporte l'ensemble des champs du tableau Excel.

Je souhaiterais qu'en doublecliquant sur une ligne du texbox, le 2ème Userform s'affiche et que toutes les informations correspondantes à la ligne sélectionnée s'affichent.
J'ai trouvé la fonction doubleClic du textBox mais je ne sais pas comment alimenter tous les champs. A l'affichage ils sont tous vides .

Merci par avance
MichaSarah

[sabzzz]

bonjour MichaSarah ,

dans un texbox avec juste 5 colonnes

est ce que tu parle d'un ListBox (5 colonnes) ?
ou de 5 TexBox ?

[MichaSarah]

Bonjour Sabzzz,
J'utilise une textbox mais celà n'est peut-être pas le plus adapté. J'ai régulièrement des doutes sur l'utilisation des TextBox/ListBox.
Ce que je souhaite avoir à l'écran , c'est une image des données d'un tableau Excel (avec certaines colonnes masquées).

Salutations
MichaSarah

[sabzzz]

bonjour MichaSarah,

pour retrouver la position d'une valeur dans le tableau j'utilise la fonction de feuille de calcul EQUIV combiné à la fonction ESTERREUR en vba,
par exemple si la valeur à retrouver est en colonne A

Code :

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

1
2
3
If Not IsError(Application.Match(Me.TextBox1, Sheets("Feuil1").Range("A:A"), 0)) Then
ligne = Application.Match(Me.TextBox1, Sheets("Feuil1").Range("A:A"), 0)
End If

pour alimenter un ListBox

Code :

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

1
2
3
4
5
With Me
.ListBox1.RowSource = "Prestations!A" & ligne & " :E" & ligne
.ListBox1.ColumnCount = 5    'nombre de colonne 5
.ListBox1.ColumnWidths = "50;30;20;20;20"  'largeur des colonnes
End With

[MichaSarah]

Bonsoir sabzzz,
Je n'ai pas très bien compris ton explication . J'ai peut être mal expliqué ou je bloque.
J'ai une ListBox "ResultatRecherche" qui affiche les infos issues d'un tableau Excel. Lorsque je doubleClick sur une des lignes de cette ListBox, un autre formulaire s'affiche avec toutes les informations de la ligne de la ListBox. En Cherchant sur différents sites j'ai pu créer le code suivant. Le nouveau problème que je recontre est que le deuxième formulaire affiche les informations avec un décalage d'un coup .
Ex je doubleClick sur une ligne de la listeBox et rien ne s'affiche dans le 2ème formulaire. Je doubleclick à nouveau sur la listBox et les informations qui s'affichent dans le nouveau formulaire sont celles qui auraient dues s'afficher avec le Doubleclick précédent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ResultatRecherche_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim i As Long
 
    If UsfListeElectrique.ResultatRecherche.ListCount < 1 Then Exit Sub
    i = UsfListeElectrique.ResultatRecherche.ListIndex
 
    UsfElectrique.Show
        UsfElectrique.TxtCommentaire = UsfListeElectrique.ResultatRecherche.List(i, 0)
        UsfElectrique.TxtQuestions = UsfListeElectrique.ResultatRecherche.List(i, 1)
 
End Sub

Merci pour votre aide
MichaSarah

[sabzzz]

bonjour MichaSarah,

il faudrait déclarer i en variable de niveau module et public.
mais attention si tu as utilisé i dans d'autre macro il faudrait changer de lettre.

Code :

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

Public i As Long

Code :

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

1
2
3
4
5
6
7
Private Sub ResultatRecherche_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If UsfListeElectrique.ResultatRecherche.ListCount < 1 Then Exit Sub
i = UsfListeElectrique.ResultatRecherche.ListIndex
UsfElectrique.Show
UsfElectrique.TxtCommentaire = UsfListeElectrique.ResultatRecherche.List(i, 0)
UsfElectrique.TxtQuestions = UsfListeElectrique.ResultatRecherche.List(i, 1)
End Sub

[MichaSarah]

Bonjour sabzzz,

J'ai déclaré i en variable de niveau module et public mais maintenant quel que soit la ligne "douclecliquée" ce sont uniquement les items de la première ligne qui s'affichent. Pour éviter toutes confusion j'ai renommé "i"

merci
Salutations
MichaSarah

[sabzzz]

bonjour MichaSarah,

j'ai fait un test sur le fichier suivant, je n'arrive pas à reproduire le probleme que tu rencontre, si tu peut, ajoute un point d'arrêt dans la macro et tu pourra suivre son execution en mode pas à pas.
http://cjoint.com/?fkrT7LpcQq"]http://cjoint.com/?fkrT7LpcQq[/URL]

[MichaSarah]

Bonsoir sabzzz,
J'ai du faire une erreur que je ne retrouve pas dans la première procédure . J'ai tout réécris en suivant tes dernières explications et celà fonctionne.

Encore merci pour ton aide précieuse.
MichaSarah