XL 2019 Modifier données déjà saisies via userform

[AIXELS]

Bonjour à tous les Amis du Forum. 🙂
Je reviens vers vous une fois de plus.
J'ai réussi à créer un userform de saisie de données.
J'ai fait des recherches et j'ai adapté les codes que j'ai trouvés.
Le résultat est satisfaisant, mais peut-être pas académique pour les initiés.
J'aurais aimé en gardant le même masque pouvoir modifier
les données déjà saisies. Pourriez-vous me mettre sur la piste.
Par avance merci pour votre aide.
Bien cordialement.

 

[AIXELS]

En créant un combobox des clients et qui afficherait touts les données saisies.
Et saisir les valeurs à modifier à la place des anciennes.
Je ne sais comment faire le lien pour le combobox.

 

[AIXELS]

Bonjour @ChTi160
Merci pout on retour.
C'est une idée géniale, mais je n'ai pas le niveau
pour arriver à ce stade. Je n'ai jamais utilisé de multipages.

 

[AIXELS]

Merci @ChTi160 🙏

 

[sylvanu]

Bonjour Aixels, Chti,
Peut être est ce suffisant en modifiant la macro de saisie du nom :

Private Sub txtNom_Change()
    Majuscule Me.txtNom
    With Me
    If Application.CountIf(ActiveSheet.[A:A], .txtNom) > 0 Then ' Ce nom existe t-il ?
        Ligne = Application.Match(.txtNom, [A:A], 0)            ' Si oui, sur quelle ligne est il ?
        .cboStatut = Cells(Ligne, "B")                          ' Remplir les champs
        .txtAdresse = Cells(Ligne, "C")
        .txtCP = Cells(Ligne, "D")
        .txtVille = Cells(Ligne, "E")
        .txtMobile = Cells(Ligne, "F")
        .txtEmail = Cells(Ligne, "G")
        .txtCommentaire = Cells(Ligne, "H")
    End If
End With
End Sub

 

[AIXELS]

Bonjour @sylvanu
Merci pour ton retour.
Le problème c'est que je suis obligé de taper le nom
et lors des modifications, il me recrée le nom du client
avec les modifications, ça fait doublon.
Je suis ici pour apprendre et essayer d'évoluer aussi
ta solution à toi @sylvanu et celle de @ChTi160 m'intéressent
pour pouvoir me former.
Aussi merci à tous les deux. 🙏
Bien cordialement.

 

[Dranreb]

La programmation des UserForm est généralement relativement simple avec cette ressource :

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

excel-downloads.com

Avec en général toujours à peu près les mêmes procédures très courtes, l'essentiel étant défini dans la Sub UserForm_Intialize.

 

[AIXELS]

Bonjour @Dranreb
Merci pour ton retour.
C'est trop pour mon petit niveau.
Je jetterai un oeil à tête reposée.
Bien cordialement.

 

[Dranreb]

Je peux l'écrire si tu veux, avec éventuellement les modules de service implantés à même le projet VBA au lieu d'une référence cochée à CLsCAs. Le CBxLCtlA.xlsm ne te servirait alors qu'à comprendre le code grâce à sa page d'aide.

 

[AIXELS]

Je suis perdu. 🥵
Peux-tu m'expliquer en clair ton dernier retour.
Par avance merci.

 

[Dranreb]

Qu'est ce qui n'est pas clair dans mon dernier message ?
Tu as bien dû voir en ouvrant le CBxLCtlA.xlsm qu'il demande la permission de s'installer en CBxLCtlA.xlam dans ton dossier connu comme Application.UserLibraryPath pour pouvoir cocher dans un classeur utilisateur la référence à son projet VBA CLsCAs.
Ça ne convient pas partout, surtout si le classeur est distribué à plusieurs personnes.
Il est donc possible au lieu de ça d'installer à même le projet le module standard de service MSujetCBx et les 11 modules de classe.

 

[AIXELS]

Je ne l'ai pas installé. Je me suis arrêté à ce stade.
Je ne savais pas à quoi cela correspondait.
Je voulais tout lire à tête reposer au vu de mon niveau.
C'est ton avant dernier retour que j'ai du mal à déchiffrer
pour un néophyte comme moi.

 

[Dranreb]

En tout cas, je peux te faire si ça t'intéresse une ébauche n'utilisant pas le complément, avec à la place les modules de service directement implantés dans le projet VBA.

 

[AIXELS]

Je ne dis pas non.
Comme dit plus haut toutes les solutions sont les bienvenues.
C'est comme ça que je grandirai.
Par avance merci @Dranreb 🙏

 

[Compte Supprimé 979]

Bonjour le fil,

Salut @Dranreb ôte moi d'un doute,
ton complément doit être ensuite installé sur tous les PC qui utiliseront le fichier d'AIXELS 🤔

A+