Re : traduction de ligne VBA
je vous ai mis le code complet car c'est le code d'origine et moi je voudrait remplacer textbox par combobox est ce possible
et moi je n'ai plus 18 colonnes mais 6 colonnes
quelqu'un a une idée?
Private Sub Listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
' Quel ligne
Ligne = ListView1.ListItems(Item.Index).ListSubItems(18 - 1).Text
TextBox1.Text = Cells(Ligne, 1) 'ListView1.ListItems(Item.Index).Text
For Ind = 1 To 13
If Ind = 2 Then
Me.DateSaisine.Value = Format(Cells(Ligne, Ind), "mm/dd/yyyy")
ElseIf Ind = 3 Then
Me.DT.Value = Cells(Ligne, Ind)
ElseIf Ind = 11 Then
Me.DateCloture.Value = Format(Cells(Ligne, Ind), "mm/dd/yyyy")
Else
Me.Controls("Textbox" & Ind) = Cells(Ligne, Ind)
End If
Next Ind
End Sub