Masquer lignes en fonction de la valeur entrée dans InputBox
G
Bonjour à tous,
Je fais appel à vos connaissances VBA pour m'aider. Voilà mon soucis :
J'ai deux fichiers excel distincs, l'un étant une "application", l'autre une base de données. Via un bouton sur l'application, cela ouvre la BDD et affiche une InputBox demandant à l'utilisateur de préciser ce qu'il cherche (sur la BDD). Je souhaiterai que seuls les items portants le nom entré dans l'Inputbox apparaissent dans la BDD.
Autrement dit, je voudrais masquer toutes les lignes ne comportant pas cet item (classés en colonne A de ma BDD).
Mon nombre de ligne évolue et est assez important.
(je suis loin d'être un As de VBA, donc soyez cléments svp
Voilà ce que j'ai pour l'instant :
Public Sub Bouton1_Cliquer()
Workbooks.Open "BDD Cov TEST v3.xlsm"
Set wbSource = ActiveWorkbook
Dim itemRecherche As String
itemRecherche = InputBox("Item", "Entrez l'item recherché")
Windows("BDD Concerto TEST v3").Activate
Range("A3").Select
'Boucle qui tourne jusqu'à ce qu'elle rencontre une cellule vide
While IsEmpty(ActiveCell.Value) = False
' Si la valeur n'est pas "itemRecherche", la ligne est masquée
If ActiveCell.Value <> "itemRecherche" Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Merci d'avance !
Greggg