Bonsoir,

J'utilise actuellement un formulaire pour gérer des informations sur des patients. Je souhaiterai savoir comment je peux dire en vba que je veux telle infos de la feuil1 et telle infos de la feuil2.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'Correspond à la liste déroulante Prénom
Private Sub ComboBox2_Change()
Dim Ligne As Long
Dim I As Integer
Dim TB
  Nettoyage 'Lance le programme Nettoyage
  If Me.ComboBox2.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
  For I = 1 To 117
    Me.Controls("TB31") = Ws.Cells(Ligne, "A").Value
    Me.Controls("TB32") = Ws.Cells(Ligne, "B").Value
    Me.Controls("TB33") = Ws.Cells(Ligne, "C").Value
    Me.Controls("TB2") = Ws.Cells(Ligne, "E").Value
    Me.Controls("TB30") = Ws.Cells(Ligne, "F").Value
    Me.Controls("TB1") = Ws.Cells(Ligne, "G").Value
    Me.Controls("TB12") = Ws.Cells(Ligne, "H").Value
    Me.Controls("TB11") = Ws.Cells(Ligne, "I").Value
    Me.Controls("TB4") = Ws.Cells(Ligne, "J").Value
    Me.Controls("TB16") = Ws.Cells(Ligne, "K").Value
    Me.Controls("TB17") = Ws.Cells(Ligne, "L").Value
    Me.Controls("TB27") = Ws.Cells(Ligne, "M").Value
    Me.Controls("TB28") = Ws.Cells(Ligne, "N").Value
    Me.Controls("TB29") = Ws.Cells(Ligne, "O").Value
    Me.Controls("TB13") = Ws.Cells(Ligne, "P").Value
    Me.Controls("TB14") = Ws.Cells(Ligne, "Q").Value
    Me.Controls("TB15") = Ws.Cells(Ligne, "R").Value
    Me.Controls("TB5") = Ws.Cells(Ligne, "S").Value
    Me.Controls("TB3") = Ws.Cells(Ligne, "T").Value
    Me.Controls("TB7") = Ws.Cells(Ligne, "U").Value
    Me.Controls("TB8") = Ws.Cells(Ligne, "V").Value
    Me.Controls("TB18") = Ws.Cells(Ligne, "W").Value
    Me.Controls("TB10") = Ws.Cells(Ligne, "X").Value
    Me.Controls("TB19") = Ws.Cells(Ligne, "Y").Value
    Me.Controls("TB20") = Ws.Cells(Ligne, "Z").Value
    Me.Controls("TB21") = Ws.Cells(Ligne, "AA").Value
    Me.Controls("TB22") = Ws.Cells(Ligne, "AB").Value
    Me.Controls("TB23") = Ws.Cells(Ligne, "AC").Value
    Me.Controls("TB9") = Ws.Cells(Ligne, "AD").Value
    Me.Controls("TB6") = Ws.Cells(Ligne, "AE").Value
    Me.Controls("TB24") = Ws.Cells(Ligne, "AF").Value
    Me.Controls("TB25") = Ws.Cells(Ligne, "AG").Value
    Me.Controls("TB26") = Ws.Cells(Ligne, "AH").Value
 
    Me.Controls("TB45")=  Ws.Cells(Ligne, "C").Value
    Me.Controls("TB46")=  Ws.Cells(Ligne, "D").Value
etc jusqu'à 117
 
  Next I
Ou dois-je ajouter sheets ("feuil1") pour que ça fonctionne.

Merci à vous