Bonjour,

Je cherche une formule afin de completer ma formule IF...Then dans VBA excel.
J'ai un tableau de X lignes de données je vourdais afficher certaines données dans un formulaire (dejà fais) quand la recherche est égale à un code.
C'est fa fonction "si" autrement dit, (dans excel c'est facile, on a juste à faire glisser la fonction jusu'en bas du tableau).

Mais avec du VBA, on fais comment? Au jour d'aujourd'hui, je n'arrive qu'a le faire que pour une seule ligne!! Comment le faire pour tout le tableau ?

Voici les lignes que j'ai utilisé pour mon unique ligne :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Comment faire pour élargir ceci à tout le tableau ?
Merci de votre aide

fabien