Private Sub CommandButton6_Click()
If WorksheetFunction.CountIf(Sheets("EMPRUNT MATERIEL").Range("MISSRefMISSION"), Me.ComboBox2.Value) = 0 Then
GoTo 5
End If
With Me
'.ListBox2 = Application.WorksheetFunction.VLookup(Me.ComboBox2, Sheets("EMPRUNT MATERIEL").Range("LISTEMPRUNT"), 8, 0)
'.TextBox1 = Application.WorksheetFunction.VLookup(Me.ComboBox2, Sheets("EMPRUNT MATERIEL").Range("LISTEMPRUNT"), 4, 0)
.TextBox2 = Application.WorksheetFunction.VLookup(Me.ComboBox2, Sheets("EMPRUNT MATERIEL").Range("LISTEMPRUNT"), 5, 0)
.TextBox3 = Application.WorksheetFunction.VLookup(Me.ComboBox2, Sheets("EMPRUNT MATERIEL").Range("LISTEMPRUNT"), 6, 0)
.TextBox4 = Application.WorksheetFunction.VLookup(Me.ComboBox2, Sheets("EMPRUNT MATERIEL").Range("LISTEMPRUNT"), 7, 0)
.ComboBox1 = Application.WorksheetFunction.VLookup(Me.ComboBox2, Sheets("EMPRUNT MATERIEL").Range("LISTEMPRUNT"), 1, 0)
End With
5
End Sub