Bonjour,
Mon astuce c'est la fonction Split, qui permet de séparer des valeurs par rapport à un séparateur.
Private Sub btnEntrer_Click()
Dim tabDuree As Variant
derligne = Sheets("Tableau").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Tableau").Cells(derligne, 1) = Formulaire.cboMarque
Sheets("Tableau").Cells(derligne, 2) = Formulaire.cboModele
Sheets("Tableau").Cells(derligne, 3) = Formulaire.cboProduit
tabDuree = Split(Formulaire.cboDuree, "/")
Sheets("Tableau").Cells(derligne, 4) = tabDuree(0)
Sheets("Tableau").Cells(derligne, 5) = tabDuree(1)
Sheets("Tableau").Cells(derligne, 6) = Formulaire.txtMontant
Unload Me
Formulaire.Show
'to code
End Sub
Les tableaux obtenus avec Split ont une seule dimension et leur premier index est 0.
Mais pour être honnête, tu te compliques la vie à vouloir deux valeurs dans une combobox, pourquoi ne pas faire une zone de saisie pour la distance, et une pour l'âge du véhicule? ça serait tellement plus simple à gérer, et tu n'aurais pas à faire une liste avec 108 éléments.