Bonjour
Essaie après avoir modifié comme suit les code dans l'USF2
Remplace
Public lg As Integer
Private Sub ComboBox1_Change()
Dim cherch As String, derlign As Long
derlign = Sheets("GESTIONNAIRE_DES_PLANS").Range("B1000").End(xlUp).Row
cherch = ComboBox1
lg = Sheets("GESTIONNAIRE_DES_PLANS").Range("B2:B" & derlign).Find(cherch, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False).Row
TextBox1.Value = Cells(lg, 3)
TextBox2.Value = Cells(lg, 4)
TextBox3.Value = Cells(lg, 5)
'TextBox4.Value = Cells(lg, 8)
'TextBox5.Value = Cells(lg, 9)
End Sub
Vielle bien à ce que la variable lg soit bien déclarée en premier !! Donc au dessus de ta première macro dans l'USF
Ensuite modifie :
Private Sub CommandButton1_Click()
Cells(lg, 8) = TextBox4.Value
Cells(lg, 9) = TextBox5.Value
Unload Me
End Sub
Tant qu'à faire modifie aussi celui ci-après
Private Sub UserForm_Initialize()
With Sheets("GESTIONNAIRE_DES_PLANS")
For Each cell In .Range("B2:B" & .Range("B1000").End(xlUp).Row)
ComboBox1.AddItem cell
Next
End With
End Sub
Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil
Amicalement