Option Explicit Private Sub worksheet_range(ByVal Target As Range) Dim Lig As Long Dim Col As Integer If Intersect(Target, Range(ComboBox1.Value, ComboBox2.Value)) Is Nothing Or _ Target.Cells.Count > 1 Or _ IsEmpty(ComboBox1.Value) Or IsEmpty(ComboBox2.Value) Then Exit Sub For Lig = 2 To [A65536].End(xlUp).Row If Range("A" & Lig) = ComboBox1 Then Exit For Next Lig For Col = 3 To Range("IV1").End(xlToLeft).Column If Cells(1, Col) = ComboBox2 Then Cells(Lig, Col) = TextBox2 End If Next Col End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question