Excel : Recherche sur plusieurs feuilles

Résolu/Fermé
kochon77777 Messages postés 7 Date d'inscription lundi 21 juin 2010 Statut Membre Dernière intervention 22 juin 2011 - 21 juin 2010 à 18:35
 kochon77777 - 14 sept. 2010 à 17:27
Bonjour,

Bonjour à tous

Je suis un novice dans la maitrise d'excel et je souhaite à partir d'une vingtaine de feuilles que j'ai renseignées (Chaque feuille contient environ 2000 références dans la colone A) créer une boite de dialogue demandant une référence matériel à renseigner puis l'affichage dans une nouvelle boite de dialogue du nom de la feuille qui contient cette référence ou un résultat négatif.

Merci d'avance pour vos réponses

Mathieu

8 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
22 juin 2010 à 14:05
bonjour,

Sub chercher()
cherche = InputBox("valeur cherchée ?")
nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
    If Application.CountIf(Sheets(cptr).Cells, cherche) > 0 Then
        MsgBox cherche & " se trouve dans la feuille " & Sheets(cptr).Name
        Exit Sub
    End If
Next
MsgBox "valeur cherchée, " & cherche & ", inconnue.", vbExclamation

end if


pour installer
tu copies la macro
alt+F11
insertion-module
coller

avec la barre d'outils formulaire tu dessines un bouton et tu l'affectes à la macro


3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
22 juin 2010 à 14:08
j'oubliais

quand tu parles de "maitrise d'excel" seuls les MVP (Microsoft Most Valuable Professionnal) peuvent dire qu'ils maitrisent Excel , pour mémoire ils sont cette année 2 ou 3 en France...
0