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]

bonjour je l'ai ai laissé en minuscules car pour moi , on ne doit pas les mettre en majuscule
exemple
35 rue Tartempion de l'impasse des Bleuets
a toi de me dire , car on peut le faire
pour moi le I ne doit pas être en majuscule

 

[AIXELS]

J'ai pris un cas particulier : rue d'Agadir.
C'était un des tests que j'ai fait.
Mais on ne vas pas chipoter.

 

[Dranreb]

Bonjour.
J'avais aussi été gêné par ce début de qualificateur de rue en majuscule et j'ai donc également modifié ma version de la fonction. Mais j'estime que ça doit être traitée à part, seulement en position 2 et si le 1er terme de l'adresse commence par un chiffre.

Sub Test()
   ActiveSheet.[A1].Value = NomPropre2("2 Voie De l'ALSTOM") _
      & vbLf & NomPropre2("13 avenue denfert-rochereau") _
      & vbLf & NomPropre2("26 rue de la cinquième avenue") _
      & vbLf & NomPropre2("rue d'agadir")
   End Sub

Résultat en A1 :

2 voie de l'ALSTOM
13 avenue Denfert-Rochereau
26 rue de la Cinquième Avenue
Rue d'Agadir

Ma version actuelle de la fonction est celle ci :

Function NomPropre2(ByVal Nom As String) As String
   Dim TJn() As String, N As Integer, Orig As String, Maju As String, Minu As String, Exclu
   TJn = Split(Replace(Replace(Nom, "'", "' "), "-", "- "), " ")
   For N = 0 To UBound(TJn)
      Orig = TJn(N): Maju = UCase(Orig): Minu = LCase(Orig)
      If Len(Orig) < 2 Or Orig <> Maju Then
         For Each Exclu In Array("à", "au", "bis", "d'", "de", "des", "du", _
            "en", "et", "l'", "le", "la", "les", "ter", "sur")
            If Exclu = Minu Then Exit For
            Next Exclu
         If IsEmpty(Exclu) Then Mid$(Minu, 1, 1) = Left$(Maju, 1)
         TJn(N) = Minu: End If
      Next N
   If TJn(0) Like "#*" Then
      Orig = TJn(1): Maju = UCase(Orig): Minu = LCase(Orig)
      If Len(Orig) < 2 Or Orig <> Maju Then
         For Each Exclu In Array("avenue", "boulevard", "chemin", "place", "rue", "sentier", "square", "voie")
            If Exclu = Minu Then Exit For
            Next Exclu
         If IsEmpty(Exclu) Then Mid$(Minu, 1, 1) = Left$(Maju, 1)
         TJn(1) = Minu: End If
      End If
   NomPropre2 = Replace(Replace(Join(TJn, " "), "- ", "-"), "' ", "'")
   End Function

 

[AIXELS]

Bonjour.
J'avais aussi été gêné par ce début de qualificateur de rue en majuscule et j'ai donc également modifié ma version de la fonction. Mais j'estime que ça doit être traitée à part, seulement en position 2 et si le 1er terme de l'adresse commence par un chiffre.

Sub Test()
   ActiveSheet.[A1].Value = NomPropre2("2 Voie De l'ALSTOM") _
      & vbLf & NomPropre2("13 avenue denfert-rochereau") _
      & vbLf & NomPropre2("26 rue de la cinquième avenue") _
      & vbLf & NomPropre2("rue d'agadir")
   End Sub

Résultat en A1 :
Ma version actuelle de la fonction est celle ci :

Function NomPropre2(ByVal Nom As String) As String
   Dim TJn() As String, N As Integer, Orig As String, Maju As String, Minu As String, Exclu
   TJn = Split(Replace(Replace(Nom, "'", "' "), "-", "- "), " ")
   For N = 0 To UBound(TJn)
      Orig = TJn(N): Maju = UCase(Orig): Minu = LCase(Orig)
      If Len(Orig) < 2 Or Orig <> Maju Then
         For Each Exclu In Array("à", "au", "bis", "d'", "de", "des", "du", _
            "en", "et", "l'", "le", "la", "les", "ter", "sur")
            If Exclu = Minu Then Exit For
            Next Exclu
         If IsEmpty(Exclu) Then Mid$(Minu, 1, 1) = Left$(Maju, 1)
         TJn(N) = Minu: End If
      Next N
   If TJn(0) Like "#*" Then
      Orig = TJn(1): Maju = UCase(Orig): Minu = LCase(Orig)
      If Len(Orig) < 2 Or Orig <> Maju Then
         For Each Exclu In Array("avenue", "boulevard", "chemin", "place", "rue", "sentier", "square", "voie")
            If Exclu = Minu Then Exit For
            Next Exclu
         If IsEmpty(Exclu) Then Mid$(Minu, 1, 1) = Left$(Maju, 1)
         TJn(1) = Minu: End If
      End If
   NomPropre2 = Replace(Replace(Join(TJn, " "), "- ", "-"), "' ", "'")
   End Function

Merci @Dranreb pour ton retour, ça fonctionne très bien.

 

[JM27]

Ci joint correctif selon ton choix

 

[AIXELS]

@JM27 ta modification fonctionne aussi.
Mais j'ai un message d'erreur suite à la conversion
de la base "CLIENTS" en tableau pour créer les entêtes des adresses
de facturation via une liste de validation. Je ne change que le nom
et tout le reste de l'adresse est reportée en automatique.
Tout le process création, modification suppression d'un
client se déroule bien, jusqu'au tri et là j'e t'envoie le message.
Merci pour ton aide.

 

[JM27]

postes ton fichier, je ne vois pas d'erreur pour l'instant
Edit : j'ai lu en diagonale ta question : pas de tableau dans mon appli , tu auras des pB
Pourquoi je n'utilises pas les tableaux : certains n'ont pas cette fonctionnalité EXCEL 2003 par exemple

 

[AIXELS]

postes ton fichier, je ne vois pas d'erreur pour l'instant
Edit : j'ai lu en diagonale ta question : pas de tableau dans mon appli , tu auras des pB
Pourquoi je n'utilises pas les tableaux : certains n'ont pas cette fonctionnalité EXCEL 2003 par exemple

Je te l'ai posté sur mon dernier message avec les images écrans.
Faire un ajout, une modification ou suppression en validant tout se passe bien
jusqu'au tri. Voir message d'erreur en image écran.

 

[jcf6464]

Bonjour JM27, AIXELS et le forum

Si tu veut mettre les clients en tableau pour excel après 2003 voir la suite

autrement comme dis JM27 sans tableau comme il à fait reste sans tableau ...,

Si la personne qui utilise le classeur est en 2003 il ne pourra pas

-*****************
dans un module

Sub TriClients()
    [TClients].Sort Key1:=[TClients[NOM]], Header:=xlYes, Order1:=xlAscending

End Sub

A la fin de suppression et au dessus de ( With Sheets("CLIENTS") rajouter TriClients et mettre en commentaire ( ' )le reste

TriClients

   ' With Sheets("CLIENTS")
   ' If .Range("A3") <> "" Then
    '    .Range("A2:J10000").Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo
   ' End If
   ' End With

Bonne continuation jcf

 

[JM27]

bonjour
A tester

 

[jcf6464]

Re

Chez moi cela fonctionne

cordialement jcf

 

[AIXELS]

Bonjour @jcf6464 @JM27
Merci pour vos retours respectifs.
Tout fonctionne. Une leçon de plus
à retenir pour les tableaux.
Merci pour votre aide.
Bien cordialement.

 

[dysorthographie]

Bonsoir,

 

[AIXELS]

Bonsoir,

Bonjour @dysorthographie et tous les Amis fu Forum.
Merci pour ta contribution.
Bien cordialement.