Déjà tu as un souci sur la recherche. Il ne cherche pas ce qu'on saisi dans le formulaire, tout simplement parceque tu as deplacé ton formulaire.
Donc les valeurs :
Ref = Sheets("Formulaire" ).Cells(1, 2)
SN = Sheets("Formulaire" ).Cells(2, 2)
Ne sont plus bonnes mais plutot :
Ref = Sheets("Formulaire" ).Cells(5, 4)
SN = Sheets("Formulaire" ).Cells(6, 4)
La au moins la recherche fonctionne.
Ensuite comme dans l'aide tu precises qu'il faut chercher avant de modifier, pas besoin de mettre la procedure de modification dans celle de recherche.
Je declare une variable globale LigneSch, qui quand tu cliques sur une ligne de ta base de donnée recupere le numéro de ligne.
Ensuite quand on clique sur modifier, il va regarde cette variable LigneSch, si elle contient qqchose (c'est qu'on a cliqué et repondu oui pour l'import du formulaire) il fait la modification en utilisant cette variable comme reference de la ligne a modifier.
Fichier ICI
---------------
Soyez malin, louez entre voisins !