Boucle qui réagis "si il n' y a pas" VBA XL2016

Résolu/Fermé
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 - 7 sept. 2017 à 15:48
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 - 7 sept. 2017 à 16:41
Bonjour,

Dans les grandes lignes : je travail sur un fichier qui fonctionne avec plusieurs userform en affichage modal.
L'un de ces userform est alimenté par une feuille qui selon le Code postal, propose les communes correspondantes (et inversement) et une fois la commune remplie je récupère l'altitude.
Tout ça fonctionne trés bien.
La liste des communes dont je dispose n'est pas à jour et je n'en trouve pas de plus récente (j'ai un sujet ouvert ici : https://forums.commentcamarche.net/forum/affich-34846875-base-de-donnees-csv-ou-xls-ville-code-postal-altitude#p34848425 ) donc l'astuce que j'ai trouvée c'est que si la commune n'est pas dans ma listbox, on la rentre manuellement et là avec une boucle je voudrai déterminer que la commune n'est effectivement pas dans ma liste, ouvrir une imputbox pour renseigner l'altitude, inserer le tout dans ma feuille pour compléter la liste.
Je manque d'inspiration pour la condition dans la boucle qui déclenche la inputbox
j'imagine peut être un "on error resum" que j'ai souvent lu dans des codes mais je ne connais pas cette manipulation.

Merci à ceux qui répondront et ceux qui ont eu le courage de tout lire



1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
7 sept. 2017 à 15:55
Bonjour,

tu as ceci pour les recherches, Si rien trouvé déclenche l'inputBox:

https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
1
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
Modifié le 7 sept. 2017 à 16:42
Super merci beaucoup
Edit : je n'arrive pas à passer le sujet en résolu
0