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.

 

[ChTi160]

Bonjour le Fil
Bonjour JM

J'ai remarqué qu'il manque un espace dans le Tag du Combobox "ComboNom" entre "Non et RAZ"

Bonne journée
Jean marie

 

[AIXELS]

Re @JM27
Merci pour ta réactivité et ton aide.
Tout fonctionne très bien.
Bien cordialement.

 

[JM27]

Salut Jean Marie
NonRAZ n'a pas d'espace entre les deux
NonRAZ signifie que l'on ne fait pas de RAZ ( Opposé à RAZ dans les autres objets)
pour info : il faut 3 items dans les tag renseignés , sinon ca va planter au split

 

[AIXELS]

Bonjour @JM27 et tous les Amis du Forum.
Je reviens vers toi, pour une fonction que je n'arrive pas à adapter.
Pourrais-tu s'il te plaît m'indiquer comment l'exécuter en VBA sur mon projet
et en règle général, comment lancer une fonction.
Dans le cas présent, c'est pour supprimer les Majuscules sur l'adresse
en début de chaque mot. (le, la les etc... comme indiqué sur la fonction)
Je t'ai joint le fichier test. C'est choquant et pas très logique l'adresse actuelle.

'Fonction pour mettre en nom propre (1ère lettre en majuscule sauf le la des etc...)
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.

 

[Dranreb]

Bonjour
Ajoutez ceci quelque part :

TBxAdresse.Text = NomPropre2(TBxAdresse.Text)

Dans la Function inutile de retester If InStr("à au bis d' de des du en l' le la les ter", TJn(P)) = 0
À la place : If IsEmpty(Exclu) Then Mid$(TJn(N), 1, 1) = UCase(Left$(TJn(N), 1))
Exclu est en effet Empty si la petite boucle précédente est allée jusqu'au bout sans rencontrer un des mots à garder en minuscules.

Changé dans ma version.

Cependant, ne faudrait-il pas garder un mot entièrement écrit en capitales ?

 

[JM27]

bonjour
J'ai réécris ta fonction et l'ai intégré dans la sortie de la textbox adresse
A toi de tester .
nota tu peux ajouter dans l'array les mots à mettre en minuscules

 

[Dranreb]

Rappel. Avec ma solution, s'il fallait ajouter le prénom du client, ce serait juste une ligne à ajouter dans la Sub UserForm_Initialise : CLs.Add Me.CBxPrénom, "PRÉNOM"

 

[AIXELS]

Bonjour @Dranreb et @JM27
Merci pour votre aide et vos retours.
Une autre question @JM27 , en partant de ta macro "SupprimerMaj()"
comment puis-je mettre à jour toutes les anciennes saisies dans la colonne C.
Merci pour votre aide.
Bien cordialement.

 

[Dranreb]

La colonne C c'est la colonne ADRESSE, non ?
J'ai mis une macro ManipRectifEnMasse dans mon dernier classeur

 

[AIXELS]

Re @Dranreb
Merci pour cette remarque, je suis resté sur ton avant dernier envoi.
Je ne te cache pas que je ne comprends pas tout le code dû à mon
faible niveau de connaissance de VBA.
Fonctionne très bien et je l'appliquerai à d'autres projets.
Merci pour ton aide.
Bien cordialement.

 

[JM27]

Bonjour
Ci joint adaptation
Il suffit de rappeler chaque client et de valider , l'adresse sera corrigée à la validation

 

[Dranreb]

Je joins aussi ma dernière version.

 

[AIXELS]

Bonsoir @Dranreb @JM27
Merci pour vos retours respectifs
Merci pour votre aide.
Je regarde à tête reposée.
Bien cordialement.

 

[JM27]

Bonjour
J'ai transformé en fonction la macro de passage en minuscules et corrigé un petit bug pour les D' et L' et commenté la fonction

 

[AIXELS]

Bonjour
J'ai transformé en fonction la macro de passage en minuscules et corrigé un petit bug pour les D' et L' et commenté la fonction

Bonjour @JM27 @Dranreb et tous les Amis du Forum.
@JM27 la correction sur " D' L' " a bien été corrigée, mais
les noms qui qui suivent sont en minuscules.
Merci pour ton aide.
Bien cordialement