Recherche avec bouton
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
Bonjour,
Pas sûr d'avoir tout compris.
Pour ton exemple voici une proposition de code.
Sub cherche_serie5
Dim i As Byte
With Sheets("Feuil1")
' Aucune remplissage
.Range("A1:E6").Interior.Pattern = xlNone
' Recherche de la serie 5
For i = 1 To 6
If .Cells(i, 3) = "serie 5" Then
.Range("A" & i & ":E" & i).Interior.ColorIndex = 6
End If
Next i
End With
end subA revoir si plus de lignes, si tableau de longueur variable, etc...
Bonjour Fred35, gadjet.
Une solution sensiblement identique à celle de Fred35 avec inputbox pour spécifier la recherche
Sub recherche()
Feuil1.UsedRange.Interior.ColorIndex = xlNone
Dim cell As Range
Dim quoi As Variant
rechercher:
quoi = InputBox("Valeur recherchée", "fenêtre de définition")
If quoi = "" Then Exit Sub
With Feuil1.UsedRange
Set cell = .Find(quoi, lookat:=xlWhole)
If Not cell Is Nothing Then
.Range("a" & cell.Row & ":e" & cell.Row).Interior.ColorIndex = 4
Else
MsgBox ("Element introuvable")
GoTo rechercher
End If
End With
End SubBonjour Fred35, Force rouge,
Vos 2 solutions me vont très bien, merci de m' avoir consacré un peu de votre temps. A charge de revanche (avec mes faibles moyens)
@+
Salut gogo gadjet o excel!
A charge de revanche!