Modification d'un bout de code

[SSIAP2]

Bonsoir à tous

pouvez vous m'aider sur ce bout de code svp

Private Sub ListView2_DblClick()

With ListView2.SelectedItem
   On Error Resume Next
        Me.Combobox1= .ListSubItems(0).text
        Me.Combobox1= .ListSubItems(1).Text
        Me.Combobox2= .ListSubItems(2).Text
        Me.Combobox3= .ListSubItems(3).Text
        
End With

end with
je cherche comment faire pour dans Combobox0 s'affiche le premier colonne de ma listview quand je double clic dessus

j'ai essayer Me.Combobox1= .ListSubItems(0).Text et rien ne se passe

une bonne ame pourait il me venir en aide svp merci

 

[Hervé]

Re : Modification d'un bout de code

salut

utilises la méthode additem pour alimenter tes combobox :

With ListView2
   'On Error Resume Next'evite les routines d'erreur sans les gerer
        Me.ComboBox1.AddItem .SelectedItem 'premiere colonne
        Me.ComboBox1.AddItem .SelectedItem.ListSubItems(1) 'deuxieme colonne
        Me.ComboBox2.AddItem .SelectedItem.ListSubItems(2) 'troisieme colonne
End With

a plus

 

[SSIAP2]

Re : Modification d'un bout de code

bonjour hervé merci pour ton aide precieuse

alors j'ai essayer et cela ma fais une erreur membre methode donné introuvable

je précise que mes combobox son deja alimenté je veut juste en cliquant sur la ligne de ma listview celle ci affiche la meme valeur dans la colonne 1 de la listview et la combobox un sorte de copier coller

merci d'avance

 

[Hervé]

Re : Modification d'un bout de code

salut 🙂

tu n'aurais pas un fichier à nous fournir stp, ca serait plus simple

j'e t'avoue avoir une p....n de flemme pour créer une listview + combo

merci

a plus

 

[SSIAP2]

Re : Modification d'un bout de code

Comme tu ma demandé une petite pj

 

[Hervé]

Re : Modification d'un bout de code

salut

chez moi ce code fonctionne

Private Sub ListView1_DblClick()
With ListView1
   'On Error Resume Next'evite les routines d'erreur sans les gerer
        Me.ComboBox1 = .SelectedItem 'premiere colonne
        Me.ComboBox2 = .SelectedItem.ListSubItems(1) 'deuxieme colonne
        Me.ComboBox3 = .SelectedItem.ListSubItems(2) 'troisieme colonne
End With

tu peux simplifier les initialisations des combobox comme ceci :

With Sheets("Feuil1")
ComboBox1.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
ComboBox2.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
ComboBox3.List = .Range("c2:c" & .Range("c65536").End(xlUp).Row).Value
End With

salut 🙂

 

[SSIAP2]

Re : Modification d'un bout de code

Semble t'il ont c'est pas compris effectivement sa fonctionne bien mais sa me charge la liste mais ne m'affiche pas dans la combobox l'item sélectionner

pour qu'ont se trompe pas entre les terme technique

j'ai fais la même chose mais avec des textbox comment puis je faire svp
merci

 

[Si...]

Re : Modification d'un bout de code

Salut

à voir (Click plutôt que DoubleClick).

 

[SSIAP2]

Re : Modification d'un bout de code

bonjour si et merci pour ton intervention j'essais cela de suite
) bientot