Adaptation macro sur du texte

bonjour,

J'aurai besoins de votre précieux Aides pour la manip suivante.

Le but de ma Macro est de localiser rapidement dans un onglet un repère imposer.

Jusqu'ici il a toujours fonctionné pour du Chiffres et je voudrai le muté sur du textes

c'est à dire passer dans onglet Datas :

.Range("A1").Select

If n <> 0 Then Set c = .Columns("A").Find(n, , xlValues)

A:

.Range("B1").Select

If n <> 0 Then Set c = .Columns("B").Find(n, , xlValues)

Merci pour votre support.

Et j'aurai une question qui peut être n'est pas faisable : Exemple si je rentre en A2 de ma feuille1 le Mot "MAPOKA"

est ce qu'il est possible de visualiser que les lignes comportant MAPOKA?

Merci d'avance

7reachmap.zip (24.35 Ko)

Bonjour,

Ci-joint ton fichier avec une nouvelle macro ...

En espèrant que cela t'aide ...

5reachmap.zip (26.20 Ko)

Bonsoir et Merci

C'est exactement ça !!!!!

James007 tu es un AS merci infiniment

Cordialement

Bonjour,

Ravi que cette macro te convienne ...

Merci ... pour tes remerciements ...

Rechercher des sujets similaires à "adaptation macro texte"