Re : Formulaire VBA avec erreur de compilation
Bonjour,
Peut être que le module pourrais s'écrire comme cela ?
Sub test_Click()
UserForm2.Show
Dim i As Byte
ligne = ListView1.ListItems(Item.Index).ListSubItems(18 - 1).Text
'Stop
If Me.OptionButton2 Then 'modifier
TextBox1.Text = Cells(ligne, 1) 'ListView1.ListItems(Item.Index).Text
For i = 2 To 47
Me("TextBox" & i).Text = Cells(ligne, i) 'ListView1.ListItems(Item.Index).ListSubItems(i - 1).Text
Next i
End If
Puis d'esactivé celui-ci car il n'y a pas de feuille fiche technique.
''''' Private Sub Workbook_Open()
''''' Sheets("fiche technique").Select
''''' End Sub
End Sub