Résolu Microsoft 365 remplacer caractères

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour BrunoM45, Bonjour Pounet95, Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche :)

@BrunoM45 : Génial ton code et même si je suis loin de tout comprendre, il est facile à modifier et je peux facilement ajouter d'autres modifications en fonction des nouvelles bizarreries d'écritures des noms de communes que je rencontrerai.
Vraiment génial ... Merci à toi :)
lionel,
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bonjour,

Toujours super ton code et en test :p
Je dispose d'un code qui permet de transformer une chaine de caractères en minuscules :
VB:
Sub Lowercase()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("A2", Range("A2").End(xlDown))
      x.Value = LCase(x.Value)
   Next
End Sub
Utiliser ce code permet d'éviter la gestion des majuscules/minuscules.
Je l'ai intégré dans le classeur et cela me permet de mettre "tout en minuscule"
Actuellement, je clique sur mon bouton avant de remplacer les caractères.

S'il est possible d'intégrer cette fonction dans ton code, ce sera "Perfect" lol.
Mais pas important si pas possible ... j'ai encore, malgré mon grand âge, assez d'énergie pour cliquer sur un bouton ;)
@+
lionel,
 

BrunoM45

XLDnaute Barbatruc
Lionel,

C'est ultra simplissime, tu vas pouvoir le faire toi même :p

A la fin de ma fonction dans le module1, tu remplaces la dernière ligne par
VB:
  ' Retourner la valeur de la fonction tout en minuscule
  Sans_Accent = LCase(Chaine)
@+
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

@BrunoM45 : ton code fonctionne super bien après de nombreuses utilisations ... Encore Merci.
Toutefois, je m'aperçois que j'ai oublié 4 cas que je n'arrive pas à traiter :
c'est quand : l' la le les se trouvent en tête du nom des communes
8400 l'ardeuil_vers_montfauxelles..........= 8400 ardeuil vers montfauxelles
8400 la rochelle_vers_montfauxelles.....= 8400 rochelle vers montfauxelles
8400 le rochelle_vers_montfauxelles.....= 8400 rochelle vers montfauxelles
8400 les rochelle_vers_montfauxelles...= 8400 rochelle vers montfauxelles

Veux tu m'apporter ton aide encore une fois ?
En cas je joins le fichier test (j'ai mis les communes en fin de feuille),
Encore un grand merci :)
Je continue à chercher
Bonne et belle journée à toutes et à tous,
lionel,
 

Fichiers joints

Dernière édition:

BrunoM45

XLDnaute Barbatruc
Salut Lionel et merci à toi de m'accorder cette confiance ;)

C'est un peu plus ardus, vu qu'il fallait ajouter un traitement intermédiaire.
En effet dans ces cas, on ne doit traiter que le début de la chaine et pas tout le reste

J'espère que ton code postal est toujours composé de 4 chiffres :p

Voici le fichier modifié
 

Fichiers joints

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir BrunoM45,
Merci d'être encore là.
malheureusement, le code postal peut avoir 5 chiffres.
Mais si c'est est moins hard, on peut également traiter sans les chiffres (je peux m'en passer),
Juste comme le fichier joint.
Encore merci à toi :)
lionel,
 

Fichiers joints

BrunoM45

XLDnaute Barbatruc
Re,

Non le nombre de chiffres du code postal ne me pose pas de problème

Voici la dernière version avec d'autres exemples, j'ai également pensé à traiter le cas
8400 l' Espace après l'apostrophe :p

@+
 
Ce message a été identifié comme étant une solution!

Fichiers joints

Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas