Bonjour,

Je suis une débutante en code VBA, je tente de mettre au point un formulaire complexe pour mon travail mais là je suis bloquée.
J'ai créer une combobox qui va me chercher tous les noms de mon fichier et je voudrais qu'à partir de là le bouton "aller à" m'affiche toutes les données de ce nom dans mon formulaire et qu'ensuite je puisse modifier ou compléter ce formulaire que cela le réenregistre à la place des anciennes données. J'espère que j'ai été claire.
Quelqu'un peut-il m'aider?

J'ai fait ça, mais cela me marque toujours mon message "aucune donnée correspondante trouvée":

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub btnRecherche_Click()
 
Dim I As Long, nbLignes As Long
Dim Source As Worksheet
Dim Trouve As Boolean
 
Set Source = Sheets("Source")
nbLignes = Source.Cells(Rows.Count, "A").End(xlUp).Row
 
 'Recherche les valeurs entrées dans txtNom
 For I = 3 To nbLignes
    If LCase(Source.Range("B" & I)) = LCase(txtNom.Value) Then
        Trouve = True
   'élève
frmsaisie.txtPrénom.Value = Source.Cells(I, 3).Value
frmsaisie.cboCivilité.Value = Source.Cells(I, 4).Value
frmsaisie.txtDDN.Value = Source.Cells(I, 5).Value
'contact
frmsaisie.txtRespNom1.Value = Source.Cells(I, 6).Value
frmsaisie.txtRespTel1.Value = Source.Cells(I, 7).Value
frmsaisie.txtRespMail1.Value = Source.Cells(I, 8).Value
frmsaisie.txtRespNom2.Value = Source.Cells(I, 9).Value
frmsaisie.txtRespTel2.Value = Source.Cells(I, 10).Value
frmsaisie.txtRespMail2.Value = Source.Cells(I, 11).Value
frmsaisie.txtRespComm.Value = Source.Cells(I, 12).Value
'scolarisation
frmsaisie.cboCommune.Value = Source.Cells(I, 13).Value
frmsaisie.cboEtablissement.Value = Source.Cells(I, 14).Value
frmsaisie.cboniveau.Value = Source.Cells(I, 15).Value
frmsaisie.cboClasse.Value = Source.Cells(I, 16).Value
frmsaisie.cboMaintien.Value = Source.Cells(I, 17).Value
frmsaisie.cboULIS.Value = Source.Cells(I, 18).Value
'notifications MDPH
    'orientation1
frmsaisie.cboOrient.Value = Source.Cells(I, 19).Value
frmsaisie.cboEffOrien.Value = Source.Cells(I, 20).Value
frmsaisie.txtDateCDAOr.Value = Source.Cells(I, 21).Value
frmsaisie.txtDatefinOr.Value = Source.Cells(I, 22).Value
    'orientation2
frmsaisie.cboOrien2.Value = Source.Cells(I, 23).Value
frmsaisie.cboeffor2.Value = Source.Cells(I, 24).Value
frmsaisie.txtDateCDAOr2.Value = Source.Cells(I, 25).Value
frmsaisie.txtDatefinOr2.Value = Source.Cells(I, 26).Value
    'aide humaine
frmsaisie.cboAH.Value = Source.Cells(I, 27).Value
frmsaisie.cboQTAH.Value = Source.Cells(I, 28).Value
frmsaisie.cboEffAH.Value = Source.Cells(I, 29).Value
frmsaisie.txtDateCDAAH.Value = Source.Cells(I, 30).Value
frmsaisie.txtDatefinAH.Value = Source.Cells(I, 31).Value
frmsaisie.cboAESH.Value = Source.Cells(I, 32).Value
    'SMS
frmsaisie.cboSMS.Value = Source.Cells(I, 33).Value
frmsaisie.cboEffSMS.Value = Source.Cells(I, 34).Value
frmsaisie.txtDateCDASMS.Value = Source.Cells(I, 35).Value
frmsaisie.txtDatefinSMS.Value = Source.Cells(I, 36).Value
    'MPA
frmsaisie.cboMPA.Value = Source.Cells(I, 37).Value
frmsaisie.txtDateCDAMPA.Value = Source.Cells(I, 38).Value
frmsaisie.txtDatefinMPA.Value = Source.Cells(I, 39).Value
frmsaisie.txtNum.Value = Source.Cells(I, 40).Value
    'ESS
frmsaisie.cboESSRais.Value = Source.Cells(I, 41).Value
frmsaisie.cboPrevESS.Value = Source.Cells(I, 42).Value
frmsaisie.txtDateESS.Value = Source.Cells(I, 43).Value
frmsaisie.cboESSdemande.Value = Source.Cells(I, 44).Value
frmsaisie.txtCommentaire.Value = Source.Cells(I, 45).Value
                    Exit For
                End If
            Next
 
            If Not Trouve Then
                MsgBox "Aucune donnée correspondante trouvée"
            End If
 
            Set Source = Nothing
 
        End Sub