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.

 

[JM27]

Bonsoir
j'attends un retour sur ma proposition du #37

 

[AIXELS]

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

Bonjour @JM27 et tous les Amis du Forum
Merci pour ton retour.
Ta proposition est celle qui me convient le mieux.
J'aurais souhaité si c'était possible que tu puisses apporter
quelques modifications, après la saisie et en validant que :

- Adresse avec des Majuscules pour les noms importants
(Je te joint une fonction que j'ai trouvée)

- La ville caractères en Majuscules

- Observations 1ère lettre en Majuscule

- Trier la base par ordre alphabétique ordre croissant (A - Z)
Et ce après chaque action "Créer un client" ou "Modifier un client".

- Demander confirmation avant la suppression d'un client.

Je te joint une image écran de la saisie d'un nouveau client
et le résultat souhaité sur fond jaune.

'Fonction pour mettre en nom propre (1ère lettre en majuscule sauf le la des erc...)
Function NomPropre2(ByVal Nom As String) As String
   Dim TJn() As String, TExc(), N As Integer, Exclu
   TExc = Array("à", "au", "bis", "d'", "de", "des", "du", "en", "l'", "le", "la", "les", "ter")
   TJn = Split(Replace(LCase(Nom), "'", "' "), " ")
      For N = 0 To UBound(TJn)
         For Each Exclu In TExc
            If Exclu = TJn(N) Then Exit For
            Next Exclu

         If InStr("à au bis d' de des du en l' le la les ter", TJn(P)) _
            = 0 Then Mid$(TJn(N), 1, 1) = UCase(TJn(N), 1, 1)
         Next N
   NomPropre2 = Replace(Join(TJn, ""), "' ", "'")
   End Function

Merci pour ton aide.
Bien cordialement.

 

[JM27]

Bonjour
A tester

 

[JM27]

Re avec message pour suppression

 

[AIXELS]

Bonjour
A tester

Re @JM27
Merci pour ton retour.
Tout fonctionne très bien.
Une dernière demande que j'ai ajouté par la suite :
Avant la "suppression client", avoir un message
de confirmation. Si OK, on le supprime si Annuler
on abandonne l'action.
Merci pour ton aide.
Bien cordialement.

 

[AIXELS]

Re @JM27
Merci pour ton retour.
Tout fonctionne très bien.
Une dernière demande que j'ai ajouté par la suite :
Avant la "suppression client", avoir un message
de confirmation. Si OK, on le supprime si Annuler
on abandonne l'action.
Merci pour ton aide.
Bien cordialement.

Re @JM27
Je n'avais pas rafraîchi l'écran.
Entre temps tu avais fait la modification.
Mille mercis pour ton travail et le temps
que tu as consacré.
Bien cordialement.

 

[JM27]

tu remarqueras que j'ai ajouté des commentaires dans les macros , le but étant de t'en approprier , afin de pouvoir éventuellement modifier

 

[AIXELS]

tu remarqueras que j'ai ajouté des commentaires dans les macros , le but étant de t'en approprier , afin de pouvoir éventuellement modifier

J'étais entrain de lire tous tes commentaires et d'assimiler
toutes lignes de commandes. C'est du très bon travail de PRO.
Une dernière question, peut-on rafraîchir l'écran sur
le site XLD pour être sur la dernière page ou être prévenu d'une
nouvelle réponse ?

 

[JM27]

Pro : non
Habitué à développer pour des clients en interne exigeants : oui
Autodidacte : oui
eh non le rafraichissement se fait en manuel !

 

[AIXELS]

https://media.tenor.com/fvVrO6_4NEUAAAAM/tired-emoji.gif

 

[Dranreb]

Ta proposition est celle qui me convient le mieux.

Puis-je savoir en quoi la mienne vous convient moins ?

 

[AIXELS]

Bonjour @Dranreb

Puis-je savoir en quoi la mienne vous convient moins ?

Je rends hommage à ton travail et au temps que tu as passé.
Au vu de mon petit niveau, je t'avoue que j'étais perdu dans
ton code qui vole trop pour moi.
En espérant un jour être à la hauteur de la qualité de ton travail.
Une fois encore merci pour ton travail et le temps que tu as passé.
Bien cordialement.

 

[Dranreb]

Lea programmation dans l'UserForm n'est elle pas assez intuitive ? J'ai pourtant tout fait pour. La programmation de service, ça ne compte pas, bien sûr, puisqu'on n'a jamais à y plonger.

 

[AIXELS]

Re avec message pour suppression

Bonjour @JM27 et tous les Amis du Forum.
Je reviens vers toi JP pour te demander une dernière modification :
Copier chaque client supprimé dans l'onglet "HISTORIQUE_CLIENTS"
avant de les supprimer de la base "CLIENTS"
Merci pour ton aide.
Bien cordialement.

 

[JM27]

bonjour