Moteur de recherche dans plusieurs feuilles
I
Bonjour le Forum,
Grace à un membre du Forum j’ai pu adapter le code ci-dessous afin de me créer un moteur de recherche dans un fichier.
Actuellement celui-ci fait une recherche dans une des feuilles de mon fichier.
Serait-il possible de faire des recherches dans une autre feuille du même fichier ?
Cette feuille est nommée Vignettes.
Merci pour votre aide.
Private Sub UserForm_Initialize() 'à l'intialisation de l'UserForm
Set O = Sheets("Badges") 'définit l'onglet O (à adapter)
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O (à adapter)
TC = O.Range("A1:I" & DL) 'définit le tableau de cellules TC
Me.ListBox1.ColumnCount = UBound(TC, 2) + 1 'définit le nombe de colonnes de la ListBox1 (autant que le tableau de cellules TC plus une (masquée)
Me.ListBox1.ColumnWidths = "0 pt; 50 pt;120 pt;60 pt;100 pt;100 pt;50 pt;43 pt;40 pt;30 pt" 'masque la première colonne de la ListBox1 et définit la tailles des autres
End SubBonjour
En voyant le fichier on pourrait mieux se rendre compte de ce qu'il faut réaliser car ce code ne dit rien si ce n'est que d'ouvrir l'userform
Cordialement
I
Bonjour Dan,
Merci d'essayer de me donner un coup de pouce sur cette demande.
Je joins le fichier comme demandé.
Très bonne journée.