Recherche avec bouton

[gadjet]

Bonjour à tous,

voila le problème:
Feuil1: tableau de donnée
Feuil2: boutons rechercher

avec la macro que j'ai faite en cliquant sur un bouton de la feuil2 j'ouvre la feuil1 et je met en surbrillance une plage de cellule prédéfini. le problème c'est que les données peuvent changer de place en filtrant par exemple.

la colonne C a des données uniques donc en recherchant une de ses données je veux arriver au même résultat.
en clair en cliquant sur le bouton "recherche5" je veux intégrer la donnée prédéfini de la colonne C(ici serie 5)et mettre en surbrillance la ligne.idem pour les autre boutons

fichier joint pour plus de clarté

merci par avance

 

[Yaloo]

Re : Recherche avec bouton

Bonjour gadjet,

La valeur a rechercher se trouve où ?
La valeur sera toujours en colonne C ?

A te relire

Martial

 

[gadjet]

Re : Recherche avec bouton

Bonjour Martial,

La valeur est en colonne C et sera toujours en colonne C, en fait en cliquant sur un bouton je veux que dans la macro soit intégrer la recherche "serie5"(voir mon exemple sur le fichier joint)
il y aura autant de boutons que de recherche

 

[Iznogood1]

Re : Recherche avec bouton

Sub recherche1()
  Dim r As Range
  Set r = Feuil1.[C:C].Find(What:="serie 3")
  If Not r Is Nothing Then
    Feuil1.Activate
    With r.Offset(0, -2).Range("A1:E1")
      .Font.Bold = True
      .Interior.Color = 65535
    End With
  End If
End Sub

 

[Yaloo]

Re : Recherche avec bouton

Bonjour gadjet, Iznogood1,

Une variante

Sub recherche()
Dim l&, m$
m = InputBox("Merci de saisir le mot recherché")
On Error GoTo Suite
With Feuil1
  .Cells.Interior.ColorIndex = xlNone
  .Cells.Font.Bold = 0
  l = Application.Match(m, .Columns(3), 0)
  .Cells(l, 1).Resize(, 5).Interior.ColorIndex = 6
  .Cells(l, 1).Resize(, 5).Font.Bold = -1
  .Activate
End With
Suite:
End Sub

A+

Martial

 

[gadjet]

Re : Recherche avec bouton

bonjour martial, iznogood1,

c'est tout à fait ce que je voulais, un grand merci à tous les deux pour le temps que vous m'avez accordé.

merci
@+