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

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #31

Voilà l'ébauche.

 

Pièces jointes

• CLsCAsAIXELS.xlsm

  161.6 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2022

• #32

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #33

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).

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2022

• #34

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

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #35

JM27 à dit:

bonjour
Une petite modif : nom en Majuscule

Cliquez pour agrandir...

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.

 

Dernière édition: 15 Octobre 2022

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #36

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 15 Octobre 2022

• #37

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

 

Pièces jointes

• BDD_CLIENTS.xlsm

  76.7 KB · Affichages: 6

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #38

Dranreb à dit:

Voilà l'ébauche.

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #39

Dranreb à dit:

Voilà l'ébauche.

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2022

• #40

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.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 15 Octobre 2022

• #41

Dranreb à dit:

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.

Cliquez pour agrandir...

Tu as raison.

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 16 Octobre 2022

• #42

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Octobre 2022

• #43

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 …

 

Pièces jointes

• CLsCAsAIXELS.xlsm

  169.8 KB · Affichages: 8

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 16 Octobre 2022

• #44

Dranreb à dit:

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 …

Cliquez pour agrandir...

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 ?

VB:

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Octobre 2022

• #45

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

 

Dernière édition: 16 Octobre 2022

Vote positif 0 Vote négatif