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

Marsh Posté le 19-07-2012 à 14:42:17

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

Reply

Marsh Posté le 19-07-2012 à 14:42:17

Reply

Marsh Posté le 19-07-2012 à 14:52:48

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

Reply

Marsh Posté le 19-07-2012 à 15:27:00

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

Reply

Marsh Posté le 19-07-2012 à 15:33:43

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

Reply

Marsh Posté le 20-07-2012 à 10:34:20

Bonjour oovaveoo,

Tout marche parfaitement, merci de ton aide

Cfgluciole1

Reply

Marsh Posté le 20-07-2012 à 14:34:16

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

Reply

Marsh Posté le 20-07-2012 à 14:55:57

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

Reply

Marsh Posté le 20-07-2012 à 15:53:53

Bonjour ooveveoo,

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

Merci et bonne après midi,

Cfgluciole1

Reply

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

Sujets relatifs:

Leave a Replay