Discussion :

[takamo]

Bonjour,

je souhaiterais savoir si il est possible de réaliser une recherche par mot clef dans une feuille excel.

je m'explique :

Tableau des mots clefs sur ma feuille 1 :



Tableau de la base feuille 2 :



Je souhaiterais faire en sorte que lorsque l'on clique ou sélectionne l'un des mots clefs de la feuille 1 cela affiche l'ensemble des lignes de la feuille 2 dans lesquelles le mot clef "choisit" apparait dans la colonne "Mot Clef" de cette même page et que cette liste de résultat apparaisse dans une feuille 3 à partir de la Xeme ligne.

Est ce que c'est réalisable?
Si oui est ce que quelqu'un a une idée de comment réaliser cela (le plus simplement possible car je n'y connais rien en VBA )?

Merci d'avance pour votre aide.

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Sub essai()
  For i = 1 To Sheets(2).[G65000].End(xlUp).Row
      Sheets(2).Rows(i).Hidden = IsError(Application.Match(Sheets(2).Cells(i, "G"), [ListeMC], 0))
  Next i
End Sub
 
Sub tout()
   Sheets(2).Cells.EntireRow.Hidden = False
End Sub

JB

[takamo]

Un grand merci Boisgontier, c'est ce qu'il me fallait

Une petite question tout de même qu'est ce qu'il faut que je modifie si je veux garder mon entete et que lorsque j'appuie sur "Masque" ca vienne ce coller juste après celle ci ?

[Invité]

Si l'entete occupe 3 lignes:

Code :

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

1
2
3
4
5
6
 
Sub essai()
  For i = 4 To Sheets(2).[G65000].End(xlUp).Row
      Sheets(2).Rows(i).Hidden = IsError(Application.Match(Sheets(2).Cells(i, "G"), [ListeMC], 0))
  Next i
End Sub

JB

[takamo]

impec et dernieres questions (j'espere ne plus tennuyer après )

si je souhaite limiter à 3 cellules l'emplacement des mots clefs à rechercher que dois je modifier ? et dans le cas ou je mets ces cellules sur la meme page que les boutons pour éviter de jongler avec les feuilles?

Autre question la couleur jaune que tu as mis à un impact sur le fonctionnement?

Désolé de t'ennuyer et merci de ta patience

EDIT : voici un imprim de ce que je veux dire (1 bon dessin vaut mieux que 100 discourts )

[Invité]

Seules A1,B1,C1 sont pris en compte (Le champ est nomm ListeMC)
Le jaune n'a aucune importance

Voir PJ du post précédent pour modifs.

JB

[takamo]

Merci,

mais je modifie ou le champ "ListeMC" c'est une info à cacher dans une cellule de la feuille ? ou c'est à modifier dans le code de la macro ?

[fring]

Bonjour,

Menu Insertion --> Nom --> Définir
en cliquant sur le nom en question, tu verras en-dessous à quelle plage de cellules ce nom fait référence et tu peux la modifier.

Pour plus de détails --> F1 --> recherche sur nom

[takamo]

Merci Fring

Alors je pense avoir fait comme tu me l'as indiqué mais lorsque je test ca me mets "erreur la l'indice n'appartient pas à la sélection"

le fichier est en piece jointe.

[fring]

Sheets(2) = 2ème feuille et tu n'as qu'une seule feuille dans ton classeur.

Avant de vouloir régler les soupapes du moteur, n'essayerais-tu pas de jeter un coup d'oeil sur les éléments de bases dans le manuel ?

[takamo]

dsl et merci

[fring]

Non non faut pas être désolé, ce n'était pas une remarque désobligeante
Ne te sent pas obligé de mettre résolu si ça ne l'est pas, ce n'est pas le but non plus, le but c'est que tu arrives à comprendre le mécanisme pour que tu puisses gérer ton code.

[takamo]

ok, mais il est vrai que je devrais faire un tour plus longtemps dans les manuels

J'ai mis résolu car j'ai eu les réponses que je cherchais et j'ai réussi à faire ce que je souhaitais avec votre aide.