Bonjour à tous,

Me revoilà à vous redemander de l'aide.
Je viens de finir mon premier userform de saisie de fiche élève. Avec votre aide, j'ai pu le finaliser. Il est fait de "bric et de broc" mais il fonctionne!
Mon problème maintenant se pose sur mon deuxième userform, concernant la même base, mais consacré à la modification et la suppression de fiche.
La commande suppression m'a causé quelques problèmes mais en cherchant j'ai fini par trouver.
Par contre, le bouton modification me pose toujours problème malgré recherche sur le net:
1er: j'ai créé une combobox reprenant la première colonne de ma base de donnée pour rechercher fiche. Elle comprend les "noms" de ma base
Cette sélection est également l'emplacement de ma première textbox1
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
 
Private Sub Userform_Initialize()
    Sheets("Base de données").Select
    ligne = Range("A" & Rows.Count).End(xlUp).Row
    CboRechercher.RowSource = "A2:A" & ligne
 
End Sub
 
Private Sub CboRechercher_Change()
 
    ligne1 = [A2].Offset(CboRechercher.ListIndex, 0).Row 
    Me.TextBox1.Text = Cells(ligne1, 1)
    Me.TextBox2 = Cells(ligne1, 2)
    Me.TextBox18 = Cells(ligne1, 3)
    Me.TextBox3 = Cells(ligne1, 11)
    'etc...
 
End sub
 
Private Sub BtnModifier_Click()
 
 
    linsuiv = Sheets("base de données").Range("A1048551").End(xlUp).Row + 1
 
    r = MsgBox("Voulez-vous confirmer la modification?", vbYesNo, "Modification de la fiche élève")
        If r <> 6 Then Exit Sub
 
    For i = 1 To linsuiv
    While CboRechercher.Text = Cells(i, 1)
    Rows(i).Select
 
    'Cells(i,1) = Me.TextBox1
 
    Cells(i, 2) = Me.TextBox2
    Cells(i, 3) = Format(Me.TextBox18.Value, "dd/mm/yyyy")
    Cells(i, 4) = Me.CboClasse.Value
    'etc.
 
    i = i + 1
    Wend
    Next i
 
End Sub
J'ai donc dû désactivé la ligne Cells(i,1) = Me.TextBox1 pour que cela marche. Bon je me dis, tant pis, tu ne feras pas de faute sur le nom! ou tu corrigeras directement sur la base
mais

2ème problème:

J'ai une longue liste d'élève dont beaucoup portent le même nom, voire des homonymes.
Même quand je sélectionne l'un deux , la modification se porte sur l'ensemble des lignes portant le même nom

Peut-être qu'une fois de plus vous pourrez m'aider?

Je vous remercie d'avance