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

ChTi160

XLDnaute Barbatruc

• 18 Octobre 2022

• #61

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

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 18 Octobre 2022

• #62

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 18 Octobre 2022

• #63

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

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 22 Octobre 2022

• #64

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.

VB:

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

 

Pièces jointes

• BDD_CLIENTS.xlsm

  73.8 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Octobre 2022

• #65

Bonjour
Ajoutez ceci quelque part :

VB:

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 ?

 

Pièces jointes

• CLsCAsAIXELS.xlsm

  194.6 KB · Affichages: 2

Dernière édition: 22 Octobre 2022

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 22 Octobre 2022

• #66

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

 

Pièces jointes

• BDD_CLIENTS .xlsm

  85 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Octobre 2022

• #67

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"

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 22 Octobre 2022

• #68

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.

 

Dernière édition: 22 Octobre 2022

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Octobre 2022

• #69

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

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 22 Octobre 2022

• #70

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.

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 22 Octobre 2022

• #71

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

 

Pièces jointes

• BDD_CLIENTS .xlsm

  86.7 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Octobre 2022

• #72

Je joins aussi ma dernière version.

 

Pièces jointes

• CLsCAsAIXELS.xlsm

  192.1 KB · Affichages: 8

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 22 Octobre 2022

• #73

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 23 Octobre 2022

• #74

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

 

Pièces jointes

• BDD_CLIENTS avec function.xlsm

  90 KB · Affichages: 5

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 24 Octobre 2022

• #75

JM27 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif