Demande une infos pour Vba

MuscatMimi · 5 Octobre 2009

Bonsoir Le Forum

J'aimerais savoir s'il est possible dans un Usf avec ListView, aprés un Doublecliq sur une ligne
de pouvoir afficher les données de cette ligne, dans des Textbox
situées dans un autre Usf

Merci de votre aide
Cordialement

roro69 · 6 Octobre 2009

Re : Demande une infos pour Vba

Bonjour

Pour récupérer le texte de la 1ere colonne de l'élément sélectionné:

usf(nom de ton usf).textbox=Me.ListView1.SelectedItem.Text

Pour les autres colonnes (tout dépend du nbre de colonnes):

usf(nom de ton usf).textbox=Me.ListView1.SelectedItem.SubItems(1)
usf(nom de ton usf).textbox=Me.ListView1.SelectedItem.SubItems(2)
usf(nom de ton usf).textbox=Me.ListView1.SelectedItem.SubItems(3)
usf(nom de ton usf).textbox=Me.ListView1.SelectedItem.SubItems(...)

A++

MuscatMimi · 7 Octobre 2009

Re : Demande une infos pour Vba

Bonjour Roro69

Merci de ta réponse, c'est gentil de ta part
Je viens d'essayer ,ça fonctionne,mais je ne peux pas sélectionner des colonnes aléatoir
Exemple

Private Sub ListView1_DblClick()

With creation
creation.TextBox1 = Me.ListView1.SelectedItem.Text

creation.TextBox2 = Me.ListView1.SelectedItem.SubItems(3)
creation.TextBox3 = Me.ListView1.SelectedItem.SubItems(4)
creation.TextBox4 = Me.ListView1.SelectedItem.SubItems(5)
creation.TextBox5 = Me.ListView1.SelectedItem.SubItems(6)
creation.TextBox6 = Me.ListView1.SelectedItem.SubItems(7)
'creation.TextBox7 = Me.ListView1.SelectedItem.SubItems(10)'Erreur
'creation.TextBox8 = Me.ListView1.SelectedItem.SubItems(11)'Erreur
'creation.TextBox9 = Me.ListView1.SelectedItem.SubItems(14)'Erreur
.Show
End With

End Sub

Bonne journée

roro69 · 7 Octobre 2009

Re : Demande une infos pour Vba

Bonjour je ne trouve pas ou est l'erreur
Je te joint un fichier pour voir.
Tu a surement un autre problème dans ton classeur;si tu ne trouve pas mais un ptit exemple.
A++

MuscatMimi · 7 Octobre 2009

Re : Demande une infos pour Vba

Bonsoir roro69

Milles excuses,je me suis trompé

En fait je prenais les N° des Colonnes ,mais dans ma Feuille
il fallait que je prenne les N° de colonnes de ma ListView
quel nul je suis
Merci de ton petit fichier,ainsi que du temps que tu a passé pour moi
a bientôt sur ce forum
Bonne soirée

Demande une infos pour Vba

MuscatMimi

XLDnaute Accro

roro69

XLDnaute Impliqué

MuscatMimi

XLDnaute Accro

roro69

XLDnaute Impliqué

Pièces jointes

MuscatMimi

XLDnaute Accro

Discussions similaires

Demande une infos pour Vba

MuscatMimi

XLDnaute Accro

roro69

XLDnaute Impliqué

MuscatMimi

XLDnaute Accro

roro69

XLDnaute Impliqué

Pièces jointes

MuscatMimi

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency