VBA NETTOYER UNE LISTE DE NOMS PROPRES
NHenry
Messages postés
15113
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 avril 2024
-
21 mars 2012 à 13:53
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 22 mars 2012 à 10:51
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 22 mars 2012 à 10:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/54167-vba-nettoyer-une-liste-de-noms-propres
https://codes-sources.commentcamarche.net/source/54167-vba-nettoyer-une-liste-de-noms-propres
22 mars 2012 à 10:51
Tu pourrais aussi utiliser une feuille dans laquelle tu inscris tes prénoms et tu charges cette liste dans un tableau() avec peu de code. Ce serait plus simple que de retourner dans le code et modifier soit le code, soit le tableau...
ex:
Dim MonTableau as Variant, nbLignes as long
nbLignes = Sheets("Prénoms").cells(rows.count, "A").end(xlup).row
MonTableau = sheets("Prénoms").range("A2:A" & nbLignes).value
Il s'agit ensuite de boucler le tableau généré en utilisant UBound(MonTableau)
21 mars 2012 à 19:52
D'accord pour le tableau et l'esthetique... Pour le malléable on peut discuter ... Pour en ajouter il s'y pouffait de copier coller la ligne et changer la chaîne ;). Sinon il faut recaler les dimensions et l'index...
Pour le "choix" des prénoms, j'ai utilisé le cas sur lequel je travaillais... Pas de prétention à l'exhaustivité. Ok, pour commencer à l'index 0 (paresse ;(
21 mars 2012 à 13:53
Pas terrible comme méthode :
- Tu peux faire un tableau des chaines à remplacer plutot que tout tes Replace consécutifs, ce sera plus propre et plus maléable.
- Et les autres prénoms ? Hamed, Julien, Didire, ... ?
- Pourquoi limiter Mesprénoms à 67 éléments et sans utiliser le premier ?