1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Private Sub CommandButton1_Click()
'pour aller chercher les résultats
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox2.Value = Worksheets("MESUP_FC").Cells(2, 2).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox3.Value = Worksheets("MESUP_FC").Cells(2, 5).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox4.Value = Worksheets("MESUP_FC").Cells(2, 6).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox5.Value = Worksheets("MESUP_FC").Cells(2, 7).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox6.Value = Worksheets("MESUP_FC").Cells(2, 8).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox7.Value = Worksheets("MESUP_FC").Cells(2, 9).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox8.Value = Worksheets("MESUP_FC").Cells(2, 10).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox9.Value = Worksheets("MESUP_FC").Cells(2, 11).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox10.Value = Worksheets("MESUP_FC").Cells(2, 12).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox11.Value = Worksheets("MESUP_FC").Cells(2, 13).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox12.Value = Worksheets("MESUP_FC").Cells(2, 14).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox13.Value = Worksheets("MESUP_FC").Cells(2, 15).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox14.Value = Worksheets("MESUP_FC").Cells(2, 16).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox15.Value = Worksheets("MESUP_FC").Cells(2, 17).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox16.Value = Worksheets("MESUP_FC").Cells(2, 18).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox17.Value = Worksheets("MESUP_FC").Cells(2, 19).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox18.Value = Worksheets("MESUP_FC").Cells(2, 20).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox19.Value = Worksheets("MESUP_FC").Cells(2, 21).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox20.Value = Worksheets("MESUP_FC").Cells(2, 22).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox21.Value = Worksheets("MESUP_FC").Cells(2, 23).Value
If accueil.TextBox1.Value = Worksheets("MESUP_FC").Cells(2, 7).Value Then Fiche.TextBox22.Value = Worksheets("MESUP_FC").Cells(2, 24).Value
'pour montrer la fiche
Fiche.Show
End Sub |
Partager