bonjours merci tes trop fort par contre tu me détaillé à quoi sert trouve = ok et if trouve stp
For ligne = 2 To fin
If Sheets("BDDtableaux").Cells(ligne, 5).Value = Me.ComboBox1.Value Then
Me.Lblid.Caption = Sheets("BDDtableaux").Cells(ligne, 1).Value 'ID
Me.TextBox1.Value = Sheets("BDDtableaux").Cells(ligne, 3).Value
Me.TextBox2.Value = Sheets("BDDtableaux").Cells(ligne, 4).Value
Me.ComboBox2.Value = Sheets("BDDtableaux").Cells(ligne, 6).Value
Me.ComboBox3.Value = Sheets("BDDtableaux").Cells(ligne, 7).Value
Me.ComboBox4.Value = Sheets("BDDtableaux").Cells(ligne, 8).Value
Me.TextBox3.Value = Sheets("BDDtableaux").Cells(ligne, 9).Value
Me.TextBox4.Value = Sheets("BDDtableaux").Cells(ligne, 10).Value
Me.TextBox5.Value = Sheets("BDDtableaux").Cells(ligne, 11).Value
Me.ComboBox5.Value = Sheets("BDDtableaux").Cells(ligne, 12).Value
Me.TextBox6.Value = Sheets("BDDtableaux").Cells(ligne, 13).Value
Me.Image1.Picture = LoadPicture(Sheets("BDDtableaux").Cells(ligne, 14).Value)
trouve = "OK"
End If
Next
If trouve = « » Then
Me.Lblid.Caption = Sheets(« BDDtableaux »).Cells(ligne, 1).Value 'ID
Me.TextBox1.Value = « »
Me.TextBox2.Value = « »
Me.ComboBox2.Value = « »
Me.ComboBox3.Value = « »
Me.ComboBox4.Value = « »
Me.TextBox3.Value = « »
Me.TextBox4.Value = « »
Me.TextBox5.Value = « »
Me.ComboBox5.Value = « »
Me.TextBox6.Value = « »
Me.Image1 = « »
End If