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

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #2

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #3

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #4

Merci @ChTi160

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2022

• #5

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

VB:

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

 

Pièces jointes

• BDD_CLIENTS.xlsm

  68.1 KB · Affichages: 12

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #6

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #7

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #8

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #9

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #10

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #11

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #12

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #13

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #14

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Octobre 2022

• #15

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+

 

Vote positif 0 Vote négatif