Excel : Recherche sur plusieurs feuilles

Résolu
kochon77777 Messages postés 7 Statut Membre -  
 kochon77777 -
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

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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

Discussions similaires

envoi feuille excel
AMISDAL -
Maje -

5 réponses
si imprimante en panne, où imprimer?
jupiter -
jupiter -

6 réponses
Excel - Récupérer données autre feuille
carthagod -
Vaucluse -

4 réponses
[VBA] Supprimer plusieurs feuilles Excel
Opacho -
headshoot444 -

3 réponses
ADDITIONNER PLUSIEURS FEUILLES EXCEL
STALEXIS -
maud -

23 réponses
Excel : protéger une partie de la feuille
mifalu -
Picton -

5 réponses