VBA UserForm multipages

Bonjour à tous,

Je suis en train de créer un classeur client pour ma fille.
Dans ce classeur j'ai une feuille Client sur laquelle elle peut enregistrer tous ses clients par le biais d'un userform multipages (3).

Je suis arrivé à bien gérer les pages 1(Enregistrement Client) et 3 (Consultation Fiche Client) du userform, par contre j'ai un souci avec la page 2 (Modification Fiche Client).
J'arrive à bien renseigner les informations dans les textbox en sélectionnant le nom du client dans le combobox1.
Si je modifie une ou plusieurs données, je ne sais pas comment faire pour les renvoyer dans la feuille Client sur la ligne du nom client sélectionné dans le combobox1.

Pourriez-vous me donner un coup de pouce et aussi m'expliquer la méthode.

Je joint le classeur en pièce-jointe car je ne sais pas si j'ai été bien clair dans ma demande.

Cordialement et bonne journée à tous.Pièce jointe 606629

Salut.

J'explique cela dans cette contribution. Le mécanisme s'appuie sur les tableaux structurés que tu utilises pour stocker les infos des clients.

Je ne saurais trop te conseiller de nommer tes contrôles dans le userform. Sans cela, c'est la galère pour savoir à quelle colonne du tableau se rattache tel contrôle. Par exemple:

• tboNom => Nom du client;
• tboDateNaissance => Date de naissance;
• ...

Note également que certains intitulés de colonne contiennent des espaces à droite. C'est casse-gu* et il serait intéressant de corriger cela.

Perso, je ne différencie pas l'ajout et la modification, puisque ce sont les mêmes données. Tu peux donc utiliser la même page de ton multipage pour les deux opérations. A l'enregistrement, on va simplement chercher la ligne du client. soit elle existe et on modifie, soit elle n'existe pas et on en crée une puis on "modifie" la ligne nouvellement créée. On pourrait réaliser la recherche de la ligne sur le nom (nom et prénom) du client, mais attention si tu as deux Marie Dupont comme clientes...


Je m'appuie bien sûr sur une procédure générique d'écriture de ligne dans le tableau qui reçoit:

• Le userform qui contient les données;
• Le nom du tableau à utiliser pour l'enregistrement;
• le numéro de la ligne sur laquelle écrire;
• le tableau vba des paires Contrôle/Colonne.

Code:

---

1 2 3 4 5 6 7

Sub UsfToTable(usf As MSForms.UserForm, ByVal TableName As String, ByVal Index As Long, Data) Dim i As Long   For i = LBound(Data) To UBound(Data) Step 2 Range(TableName & "[" & Data(i + 1) & "]")(Index).Value = usf.Controls(Data(i)).Value Next i End Sub

---

La procédure sur le clic du bouton "Enregistrer" est alors réduite à peu de choses:

• la recherche de la ligne;
• si elle n'existe pas, la création d'une nouvelle;
• le transfert des données en une ligne, au lieu de la longue litanie "colonne x = textboxY".

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim Index   Index = Application.Match(TextBox1.Value, Range("t_Clients[NOM PRENOM]"), 0) If IsError(Index) Then Index = Range("t_Clients").ListObject.ListRows.Add.Index UsfToTable Me, "t_Clients", Index, Array("Textbox1", "NOM PRENOM", "Textbox2", "Date de naissance") End Sub

---