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.

 

[Dranreb]

Voilà l'ébauche.

 

[sylvanu]

@Dranreb,
Sur votre PJ sur un clic sur Ajouter, j'obtiens une erreur. A quoi cela peut être dû ?

 

[Dranreb]

Oui il y a quelques erreurs. Ce n'est qu'une ébauche. Enlever le D en fin de TVLD, c'est TVL.
Il y a aussi un format qui ne sert à rien après CAs.Add Me.TBxVille, "VILLE" (parce que j'avais dupliqué le CAs.Add de la ligne précédente).

 

[sylvanu]

Impec, ça marche. Merci.
Eh Hop dans ma besace.

 

[AIXELS]

bonjour
Une petite modif : nom en Majuscule

Re @JM27
Après plusieurs tests, il s'avère que si l'on ajoute ou supprime
un nom et que l'on reste sur le masque de saisie, ce n'est pas
pris en compte au niveau de l'affichage dans la ComboBoX
bien que la création ou la suppression se soient bien déroulés dans la base.
Peut-être un problème de rafraichissement de l'écran ou s'il
existe dans vba une commande qui mette à jour le rafraichissement.

 

[Dranreb]

Ma version oui, car le CLs.Actualiser débouche sur une recherche qui déclenche ses évènements Change et BingoUn.

 

[JM27]

Bonjour
Avec déroulant intuitif du combo nom en modif ou suppression
et avec correction (bien vu )( réinit de la combo nom en fin de saisie)
interdiction caractères non numériques dans CP et N° tel
mise au format N° tel et
A tester

 

[AIXELS]

Voilà l'ébauche.

Re @Dranreb
Je viens seulement de voir ton fichier.
Je ne savais plus où donner de la tête.
Merci pour ton retour et ton travail.
Je teste et je te tiens au courant.

 

[AIXELS]

Voilà l'ébauche.

Re @Dranreb
Petit souci lors de la saisie :
Si l'on appuie sur "Entrée" , les données saisies sont crées dans la base.
Même un seul champ.

 

[Dranreb]

Pourquoi est-ce un souci ?
Normalement pour changer de champ c'est la touche Tab. La touche Entrée c'est pour le CommandButton qui a sa propriété Default à True.

 

[AIXELS]

Pourquoi est-ce un souci ?
Normalement pour changer de champ c'est la touche Tab. La touche Entrée c'est pour le CommandButton qui a sa propriété Default à True.

Tu as raison.

 

[AIXELS]

Bonjour à tous les Amis du Forum
et particulièrement à @ChTi160 @Dranreb @JM27 et @sylvanu
Ce message pour vous remercier pour votre aide et le temps que
vous avez consacré à mon problème.
Bonne fin de journée.
Bien cordialement.

 

[Dranreb]

Bonjour.
Je joins quand même la dernière version qui a un peu changé.
J'attendais des demandes d'améliorations pour le faire …

 

[AIXELS]

Bonjour.
Je joins quand même la dernière version qui a un peu changé.
J'attendais des demandes d'améliorations pour le faire …

Bonjour @Dranreb
J'ai testé ta dernière mise à jour.
La saisie est un intuitive et la désactivation des boutons
en fonction de l'action sont d'une grande aide.
Je continue les tests et je te fais un retour.
Une question, j'ai cherché une fonction pour mettre
en majuscule la première lettre d'une saisie et le reste en minuscule.
Tu n'aurais pas ça dans tes tiroirs ?

Sub ConvertirPlagePremiereEnMaj()
    For Each Cellule In Selection
        Cellule.Value = Proper(Cellule)
    Next
End Sub

J'ai trouvé ça, mais je recherche une "function" pour
mettre une sélection de plusieurs lignes.
Merci pour ton aide.
Bien cordialement.

 

[Dranreb]

Si, c'est même déjà en commentaire quelque part pour le cas où tu ajouterais une ComboBox pour le prénom …
J'ai aussi laissé la Function NomPropre2 dans le Module1