XL 2010 Recherche (vers 2)

[CATPLUS]

Bonjour à tous
J'ai trouvé ce programme de "recherche" qui fonctionne très bien.
La "recherche" ce fait sur toutes les feuilles, l'inconvénient il commence par la feuille1 et bloque sur une autre feuille qui contient le même item
Je souhaiterai faire la "recherche" sur une plage d'onglets spécifique:
exp: feuille2 à feuille4

Seconde question:
Peut-on remplacer le mode InputBox par un UserForm ?

Pourriez-vous svp m'aider
Cordialement

 

[sylvanu]

Bonjour Catplus,

La "recherche" ce fait sur toutes les feuilles, l'inconvénient il commence par la feuille1 et bloque sur une autre feuille qui contient le même item

Concernant ce point spécifique, le "exit sub" est mal placé.
En le plaçant là où il est il sort dès la première occurrence trouvée.
Avec cette modification, il analyse toutes les feuilles :

            Loop While Not c Is Nothing And c.Address <> firstAddress
            Set c = Nothing
            'Exit Sub '02/2024  Supprimé
        End If
    Next Sh
    Exit Sub   ' Ajouté'           
End If
 MsgBox "Aucun # Trouvé", vbExclamation '02/2024
End Sub

Je souhaiterai faire la "recherche" sur une plage d'onglets spécifique:
exp: feuille2 à feuille4

Comment spécifier les feuilles à analyser ?

Peut-on remplacer le mode InputBox par un UserForm ?

Bien sur, mais quel intérêt s'il y a juste un mot à entrer.

 

[CATPLUS]

Merci Sylvanu,
Effectivement cela fonctionne sans soucis.

@ Comment spécifier les feuilles à analyser ?
Le test passe par une feuille spécifique "BD" de mon classeur qui comporte 68 Feuilles, elle est avant les 39 feuilles à analyser & je ne souhaite pas lire les données dans la BD. D'ou ma demande de recherche des feuille9 à feuille48.

Peut-on remplacer le mode InputBox par un UserForm ?
@Bien sur, mais quel intérêt s'il y a juste un mot à entrer.
Pour le Fun, mais pas important.

Cordialement

 

[sylvanu]

Re Bonjour,

Le test passe par une feuille spécifique "BD" de mon classeur qui comporte 68 Feuilles, elle est avant les 39 feuilles à analyser & je ne souhaite pas lire les données dans la BD. D'ou ma demande de recherche des feuille9 à feuille48.

Alors donnez nous un fichier représentatif sans obligatoirement les 68 feuilles mais avec la feuille BD de savoir où lire les feuilles à analyser.

 

[fanfan38]

Bonjour
Ci joint ma solution
J'ai transformé les données en tableau structuré

A+ François

 

[CATPLUS]

Bonjour Fanfan38
Merci, c'est plus de ce que j'espérais.

@sylvanu
Je ne voulais pas encombrer le forum avec un gros fichier. Merci de m'avoir répondu.
Je vais resté sur la solution de Fanfan38.

Bien cordialement
Marcel