Voici un petit code qui permet de formater une adresse postale. Il est \u00e0 ins\u00e9rer en dessous des lignes d’options (Option Compare…) d’un module standard (pas dans un module de classe, formulaire ou \u00e9tat) :<\/p>\n\n\n\n
Valeur saisie : 115, impasse de la petite reine
Valeur format\u00e9e : 115, Impasse de la Petite Reine<\/p>\n\n\n\n
Const particules= \" de ; du ; d'; des ; l'; la ; le ; les ; en \" \n'rajouter les mots en minuscule \u00e0 ne pas mettre en majuscule \n\nPublic Function formatAdresse(strAdresse As Variant) As String \n Dim strA As String Dim arrParticules() As String \n Dim i As Long \n\n If IsNull(strAdresse) Then Exit Function \n 'si c'est null on ne traite pas \n\n If strAdresse = \"\" Then Exit Function \n 'si c'est vide on ne traite pas \n\n arrParticules = Split(particules, \";\") \n strA = StrConv(strAdresse, vbProperCase)\n 'toutes les premieres lettres en majuscule\n \n For i = 0 To UBound(arrParticules) \n strA = Replace(strA, arrParticules(i), LCase(arrParticules(i))) \n 'supprime la majuscule \n Next \n formatAdresse = strA \nEnd Function<\/code><\/pre>\n\n\n\nOn renseigne la constante avec les mots que l’on ne veut pas mettre en majuscule.
1) le strconv() met toutes les 1\u00e8re lettre de chaque mot en majuscule.
2) la boucle For remplace les mots trouv\u00e9s qui correspondent \u00e0 ceux de la constante.<\/p>\n\n\n\n
L’appel de la fonction<\/h2>\n\n\n\n
S\u00e9lectionner la zone de texte de l’adresse que j’ai nomm\u00e9 Adresse, l’\u00e9v\u00e8nement Apr\u00e8s MAJ et mettre ceci :<\/p>\n\n\n\n
Private Sub Adresse_AfterUpdate() \n Me.Adresse.Value = formatAdresse(Me.Adresse.Value) \nEnd Sub<\/code><\/pre>\n\n\n\n\u00ab\u00a0Adresse\u00a0\u00bb est le nom de la zone de texte. Elle doit \u00eatre remplac\u00e9e par le nom de celle que vous souhaitez traiter.<\/p>\n\n\n\n
Bonne utilisation !<\/p>\n","protected":false},"excerpt":{"rendered":"
Voici un petit code qui permet de formater une adresse postale. Il est \u00e0 ins\u00e9rer en dessous des lignes d’options (Option Compare…) d’un module standard (pas dans un module de classe, formulaire ou \u00e9tat) : Valeur saisie : 115, impasse … Continuer la lecture