[Résolu] Récupération de la position d'un texte dans une feuille excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Récupération de la position d'un texte dans une feuille excel

cfgluciole1

Bonjour à tous,

Après avoir écumé les forums à la recherche d'une solution (et elles sont nombreuses, mais je n'ai pas réussi à les adapter à mon problème) je pose ma question ici:

Je dispose d'un fichier Test1.xls qui contient des données variables (nombres et texte)

Mon but est de faire une recherche sur toute la feuille (je ne veux pas me limiter au tableau car je peux avoir d'autres données situées en dehors du tableau dans l'avenir) pour trouver un mot (prenons ici le mot position) et une fois que j'ai trouvé ce mot, je cherche à obtenir sa position sous un format Lettre de la colonne suivi du numéro de la ligne (B1 par exemple)

J'ai tenté d'utiliser find, match, recherchev sans succès (ou peut être les ai je mal utilisé?).

J'utilise excel 2007.

Merci d'avance!

Cfgluciole1

Message édité par cfgluciole1 le 23-07-2012 à 10:08:59

Publicité

vave

Nice to meet me

Bonjour,
Voici un exemple.
Tu lance la macro, ça te demande le mot à chercher, et te renvois la 1ère adresse trouvée.

Code :

Sub trouver_un_mot()
Dim c As Range
Dim flag As Boolean
Dim Mot As String
Mot = InputBox("Mot à trouver" )
For Each c In ActiveSheet.UsedRange
If c.Value = Mot Then
flag = True
Exit For
End If
Next
If flag Then
MsgBox "Le mot " & Mot & " a été trouvé à la cellule " & c.Address
Else
MsgBox "le mot n'a pas été trouvé"
End If
End Sub

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

cfgluciole1

Excellent! Je l'ai un petit peu adapté pour ne pas avoir à rentrer le mot dans une InputBox au départ:

Code :

Sheets(Array("Liste" )).Select
Dim c1 As Range
Dim flag As Boolean
Dim Mot As String
Mot = "Position"
For Each c In ActiveSheet.UsedRange
If c.Value = Mot Then
flag = True
Exit For
End If
Next

Mais lorsque j'essaie d'utiliser la donnée (c.address) j'obtiens une erreur.
Je m'explique:

J'essaie d'utiliser l'adresse de la cellule comme argument pour un filtre:

Code :

ActiveSheet.Range("c.address:$F$66" ).AutoFilter Field:=1, Criteria1:=Sheets("Liste" ).Range("B2" ).Value

Mais j'obtiens une erreur et je ne sais pas ce que je pourrais faire ... est ce parce que l'argument que je donne à la fonction range n'est pas au bon format?

Merci d'avance,

Cfgluciole1

vave

Nice to meet me

Les variables ne doivent pas être entre guillemets.
Il faut que tu construise ta chaîne de caractères en concaténant la variante et le reste

Code :

ActiveSheet.Range(c.Address & ":$F$66" ).AutoFilter Field:=1, Criteria1:=Sheets("Liste" ).Range("B2" ).Value

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

cfgluciole1

Bonjour oovaveoo,

Tout marche parfaitement, merci de ton aide

Cfgluciole1

cfgluciole1

Bonjour,

Un petit ajustement:

Je cherche maintenant à avoir 2 variables dans ma fonction range mais la formule suivante me renvoie une erreur:

Code :

ActiveSheet.Range(c1.Address & c2.Address).AutoFilter Field:=1, Criteria1:=Sheets("Liste" ).Range("B2" ).Value

J'ai pourtant défini c1 et c2:

Code :

Dim c1 As Range
Dim c2 As Range

Et il me semble que la syntaxe est correcte non? (bien évidemment elle ne doit pas l'être sinon je ne serais pas là )

Merci beaucoup,

Cfgluciole1

vave

Nice to meet me

Bonjour,
il faut les séparer par une virgule

Code :

ActiveSheet.Range(c1.Address , c2.Address)

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

cfgluciole1

Bonjour ooveveoo,

Décidément, la ponctuation n'est pas mon fort

Merci et bonne après midi,

Cfgluciole1

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Récupération de la position d'un texte dans une feuille excel

Sujets relatifs
Macro sur plusieurs fichier Excel d'un même répertoire	Excel: Mise en forme
[Macro Excel] Dupliquer sans remplacer	[macro excel] emplacement fixe mais nom de fichier changeant
Tableau PHP & Fichier texte	[Excel - Macro] Boucle Do, trouver l'erreur...
[resolu]Problème : récuperation de données d'un utilisateur facebook	Recherche Excel / Dernier événement
macro excel / classement de valeurs	macro Excel pour un graphique dynamique
Plus de sujets relatifs à : [Résolu] Récupération de la position d'un texte dans une feuille excel

Page générée en 0.081 secondes