Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche avec bouton

  • Initiateur de la discussion Initiateur de la discussion gadjet
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

gadjet

Guest
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
 

Pièces jointes

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
 
Re : Recherche avec bouton

Code:
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
 
Re : Recherche avec bouton

Bonjour gadjet, Iznogood1,

Une variante
VB:
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
 
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
32
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…