XL 2010 Recherche (vers 2)

CATPLUS à dit:

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

Cliquez pour agrandir...

            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

CATPLUS à dit:

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

Cliquez pour agrandir...

CATPLUS à dit:

Peut-on remplacer le mode InputBox par un UserForm ?

Cliquez pour agrandir...

CATPLUS à dit:

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.

Cliquez pour agrandir...