Hello,
Voici :
Dans userform1 :
Private Sub UserForm_Initialize()
Dim i As Long
i = 4
Do Until Sheets("interventions").Cells(i, 1) = ""
ComboBox1.AddItem Sheets("interventions").Cells(i, 1)
i = i + 1
Loop
End Sub
dans la combobox1 :
Private Sub ComboBox1_Change()
Dim lng_ID As Long
Dim i As Long
lng_ID = ComboBox1
i = 4
Do Until Sheets("interventions").Cells(i, 1) = lng_ID
i = i + 1
Loop
With Sheets("formulaire interventions")
.[I6] = Sheets("interventions").Cells(i, "C")
.[E10] = Sheets("interventions").Cells(i, "E")
'... continuer sur toutes les colonnes
End With
'Call preparer_feuille1.preparer_feuille1_lanceur
End Sub
Je te laisse continuer pour les autres infos à compléter dans ton formulaire, mais tu as compris le principe