XL 2019 Remplacer 2 texbox par 2 combobox avec une listview

[LOLO28]

Bonjour le forum,
J'ai récupéré un fichier sur le site mais je n'arrive pas à le modifier comme je le souhaite .
J'ai remplacé les textboxs 1 et 2 par deux comboboxs 3 et 4.
J'ai l'erreur suivante qui s'affiche . normal j'ai insérer 2 combobox
Comment puis je m'en sortir
Merci de votre aide
Regarde la pièce jointe 1083695

 

[Rhysand]

Bonsoir à tous

l'erreur est due au fait que "TextBox3" est manquant
vous pouvez corriger et créer une "TextBox3"
ou vous pouvez également le modifier comme expliqué dans l'exemple suivant

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

On Error GoTo errHandler ' pour éviter l'erreur 91 (listview = null)

Dim transferir
transferir = (ListView1.SelectedItem.Index)

Me.TextBox2.Value = ListView1.ListItems(transferir)
Me.TextBox4.Value = ListView1.ListItems(transferir).ListSubItems(1).Text
Me.TextBox5.Value = ListView1.ListItems(transferir).ListSubItems(2).Text
Me.TextBox6.Value = ListView1.ListItems(transferir).ListSubItems(3).Text
Me.TextBox10.Value = ListView1.ListItems(transferir).ListSubItems(4).Text
' ...
Me.ComboBox3.Text =  ListView1.ListItems(transferir).ListSubItems(8).Text
' ...
' ...continuer avec le même processus pour tous les autres "TextBox"
'vous pouvez modifier l'ordre dans lequel le "TextBox" reçoit les données du "ListView"

Exit Sub
errHandler:
    ' Cancel is true
    Exit Sub
End Sub

J'espère aider

 

[LOLO28]

Merci pour votre aide ,j'ai réussi a adapté pour mes comboboxs.Maintenant cela s'affiche correctement.
Par contre le bouton modifier et supprimer ne fonctionne plus.
Merci de votre aide

 

[Rhysand]

Bonjour à tous

la situation est la même que l'erreur précédente mais maintenant selon votre code l'erreur est due au fait que "TextBox1" est manquant

votre code est

Private Sub CommandButton1_Click()    'modifier
    Dim i As Byte, L As Long
' Stop
    Application.ScreenUpdating = False
    L = Me.ComboBox1.ListIndex
   '
    For i = 1 To 17
    Application.ThisWorkbook.Worksheets("Feuil1").Cells(ligne, i) = Me.Controls("TextBox" & i)
    Next i
   '
    Call Remplir_Liste(ComboBox1.Text)
     Call Remplir_Combobox
    Application.ScreenUpdating = True
    For i = 1 To 17
    Me.Controls("Textbox" & i) = ""
    Next i
End Sub

où vous référencez "For i = 1 To 17"

le code peut être complètement réécrit ou simplement ajouter une nouvelle variable
au code, comme dans l'exemple suivant, où "J = 2 à 17", ceci pour "TextBox"

Private Sub CommandButton1_Click()    'modifier

Dim i As Byte, L As Long, j As Integer
' Stop
Application.ScreenUpdating = False
L = Me.ComboBox1.ListIndex
'
For i = 1 To 16
   For j = 2 To 17
       Application.ThisWorkbook.Worksheets("Feuil1").Cells(ligne, i) = Me.Controls("TextBox" & j)
   Next j
Next i
'
Call Remplir_Liste(ComboBox1.Text)
Call Remplir_Combobox
Application.ScreenUpdating = True

For i = 1 To 17
    Me.Controls("Textbox" & i) = ""
Next i

End Sub

J'espère aider

 

[LOLO28]

Bonjour,
je viens de prendre connaissance de votre réponse, encore merci beaucoup je vais tester .