Réouvrir et modifier un USERFORM

Bonjours,
je débute dans la programmation de macro et j’aurais besoin d’aide pour poursuivre ma démarche.

Mon fichier (ci-joint) et une base de données de produits que je rentre à l’aide d’un USERFORM,
Je cherche maintenant à pouvoir modifier quelques éléments de ma base de données, en double-cliquant sur la référence de mon produit.

Ex : j’ai compléter une ligne dans ma base de donnée grâce à mon userform, je vois donc apparaitre dans mon tableau une réf. de produit, une désignation, une marque, un nom de produit, un nom de produit équivalent, un prix, etc…
Je souhaiterai, en double-cliquant sur la réf. du produit, rouvrir l’userform et pouvoir modifier les éléments renseignés. (ex : le prix)

Ayant déjà navigué pas mal sur internet à la recherche de réponses, je sais que des questions similaires on déjà était poser sur certains forum, cependant je ne suis pas arrivé à adapter les codes à mon fichier.

Merci d’avance pour votre aide.

Bonjour,

Utilises beforedoubleclick puis UserForm1.Show

Cordialement

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié. J'ai fait comme disait Had, un double-clic dans la colonne 1 d'une ligne éditée pour Modifier, un clic sur le bouton Nouvelle Réf. pour Ajouter.
Regarde la propriété [Tag] de chaque textbox. Elle contient le numéro de la colonne qui doit recevoir la donnée. Cela simplifie considérablement le code puisqu'on peut boucler. J'ai supprimer le bouton OK qui faisait doublon...
J'ai déclaré une variable LI publique. Elle renvoie la première ligne vide de la colonne A si on clique sur le bouton ou la ligne de la cellule double-cliquée.
Le texte du bouton est Ajouter si l'on clique sur le bouton, Modifier si l'on double-clique dans une cellule éditée de la colonne A.
Le code :

Code:

---

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

Private Sub UserForm_Initialize() Dim I As Byte   Me.CommandButton3.Caption = "Ajouter" With Me.ComboBox1 .AddItem 10 .AddItem 20 .AddItem 50 .AddItem 100 .AddItem 200 End With With Me.ComboBox2 .AddItem "FSB" .AddItem "FMA" .AddItem "ACH" .AddItem "STP" End With If Sheets("Base de Données").Cells(LI, 1).Value <> "" Then For I = 1 To 11 Me.Controls("TextBox" & I).Value = Sheets("Base de Données").Cells(LI, CInt(Me.Controls("TextBox" & I).Tag)).Value Next I Me.ComboBox1.Value = Sheets("Base de Données").Cells(LI, 13).Value Me.CommandButton3.Caption = "Modifier" End If End Sub   Private Sub CommandButton3_Click() Dim I As Byte   For I = 1 To 11 Me.Controls("TextBox" & I).Text = UCase(Me.Controls("TextBox" & I).Text) Cells(LI, CInt(Me.Controls("textBox" & I).Tag)).Value Unload Me RefProduit.Show End Sub   Private Sub CommandButton2_Click() Unload RefProduit End Sub

---

Pas compris la l'intérêt de la ComboBox2 puisqu'elle n'apparaît pas dans le tableau ?

Le fichier :