Discussion :

[cati_78]

Bonjour,

Je dispose d'un fichier excel contenant une macro.

J'ai des données dans une colonne (ex : code postal) sur une feuille EXCEL.

La macro permet de rechercher le nom de la ville en sachant le code postal.

Le fichier de référence associant le nom de la ville et le code postal est sur une autre feuille du classeur.

Quand je teste le code, il y a un souci : il ne reconnaît pas le code postal et par conséquent il ne retrouve pas la ville.

Je pense que c’est un problème de format. J’ai remarqué que le coin supérieur droite de la cellule est colorié en vert. En parallèle il y a le symbole attention avec le message suivant : Le nombre dans cette cellule est au format texte ou précédé d’une apostrophe.

Je ne sais pas comment régler le problème.

Merci pour votre aide.

[JackOuYA]

bonjour,

et ton code de comparaison il est écrit comment ? , pour l'apostrophe, cela ne devrai pas causer de probléme ...

utilise la propriété .text pour le test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if Range("A1").text = MonCodePostal then..

[pgz]

Bonjour.

Si je comprends bien dans la liste de référence les CP sont de type Texte. Dans ta feuille de travail les CP sont de quel type?
En sachant cela, il faut corriger la macro.

[cati_78]

Bonjour,

La macro balaie la liste de référence (située sur une autre feuille du classeur) afin de récupérer le nom de la ville associé au code postal ; il n'y a pas de comparaison de type de données dans le code.

Pour tester le programme, j'ai fait un copier-coller d'une liste de code postal et quand j'ai lancé la macro, je n'ai pas pu récupérer tous les noms des villes.

ça ne fonctionnait pas pour les lignes dont les coins supérieurs droites étaient coloriés en vert.

Je ne sais pas pourquoi cela ne marche pas pour l'ensemble des CP.

Merci d'avance de bien vouloir m'aider.

[JackOuYA]

tu as bien un code à nous montrer non ..?

une fonction de recherche ? rechercheV peu-être ?

si c'est le cas passe toutes tes valeur en nombre (et pas en texte) et modifie le format de cellule en mode "Code postal" .

par le code pour modifier les cellules selectionnées utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim c As Range
 Selection.NumberFormat = "00000"
 For Each c In Selection
  c.Value = Val(c.Text)
 Next

[cati_78]

Merci pour ton aide.