Private Sub TextBox1_Change()
Dim lig As Variant, i As Byte
lig = Application.Match(Val(TextBox1), Feuil1.[A:A], 0) 'Feuil1 => CodeName
For i = 1 To 4
Controls("Frame" & i).Visible = False
If IsNumeric(lig) Then
If Not IsEmpty(Feuil1.Cells(lig, 1 + i)) Then
Controls("Frame" & i).Visible = True
End If
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = " ": TextBox1 = "" 'masque les Frames
End Sub