Excel 2007

kpri Messages postés 17 Statut Membre -  
kpri Messages postés 17 Statut Membre -
Bonjour,

Quelqu'un pourrait il m'aider, j'ai un fichier excel 2007 de 8 feuilles : la première regroupe une liste de numéros de tel et autre infos, la deuxième est inutilisé (laissé pour créer le menu de recherche que je n'arrive pas à faire !!!) les 6 autres feuilles étant un classement par catégorie de la feuille 1.

Je souhaiterais dans la feuille 2 faire un menu avec 1bouton de recherche ou apparaîtrait les infos de ma feuille 1 ( 8 colonnes) 8 champs apparaîtrait sur mon menu qui contiendrait les 8 colonnes. Quelqu'un pourrait il m'éclairer !!!!!

Merci d'avance.

5 réponses

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Ce serait plus facile avec un exemple de ton classeur, avec des données fantaisistes bien entendu.
    Et sur la feuille 2 un exemple du résultat souhaiter.
    Déposer le classeur sur CiJoint.fr ou Cjoint.com et mettre le lien sur un poste suivant.
    A+
    0
    1. kpri Messages postés 17 Statut Membre
       
      http://www.cijoint.fr/cjlink.php?file=cj201103/cijwhQD2nZ.xlsx

      erratum la ça fonctionne !!!
      0
    2. lermite222 Messages postés 9042 Statut Contributeur 1 199
       
      J'ai demandé UN EXEMPLE.. et pas des ICI JE VEUX...
      Ton classeur est incompréhensible.
      Pas d'encart avec Ici je veux, mais avec des données, même fictives.
      0
    3. kpri Messages postés 17 Statut Membre
       
      Je pense m être mal exprimée. Je n'exige rien, je souhaiterais comprendre et réussir ce que je suis entrain de faire avec de l'aide pour le réaliser . Je n ai voulu froisser aucune susceptibilité en matérialisant ou je voudrais en arriver. Merci d'avance.
      0
    4. lermite222 Messages postés 9042 Statut Contributeur 1 199
       
      Désolé, tu ne m'a pas bien compris et je suis pas "froissé" du tout :-), je demandais qu'a la place de plages colorées vide il y ai des données, quelque une suffise, et sur la page 2 les donnée agencées comme tu demande.
      0
  2. kpri Messages postés 17 Statut Membre
     
    oui ce serait une façon de procéder sauf que les infos que je rajoute n'apparaissent pas et que je ne comprend pas comment faire le liens entre les 2 feuilles, et que les infos que tu as mis à la suite je souhaiterais qu'elles apparaissent dans les grosses cases. peux tu m'expliquer s il te plait comment faire. grand merci à toi.
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    sauf que les infos que je rajoute n'apparaissent pas Où tu rajoute des info ?
    0
    1. kpri Messages postés 17 Statut Membre
       
      Il y aura ensuite sur la feuille 1 pleins d'adresses et toutes les infos concernant divers organismes ou gens. :-)
      0
    2. lermite222 Messages postés 9042 Statut Contributeur 1 199
       
      En colonnes ?
      0
    3. kpri Messages postés 17 Statut Membre
       
      les infos de la feuille 1 seront toutes comme les deux exemples(noms, adresses,horaires, tel, mails, champs, date en ligne) et ajouter les nouvelles infos sur la ligne qui suit. Pour la feuille 2 nommé menu, l'idéal serait que les infos apparaissent dans les carrés que j'avais tracés car les horaires et les champs auront des fois beaucoup d'infos. encore merci.
      0
    4. kpri Messages postés 17 Statut Membre
       
      pas de réponse c'est nul !!!
      0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    pas de réponse? depuis le temps je pensais qu'avec les pistes que je t'ai données tu avais pu te débrouillé !!! ce qui n'était vraiment pas compliquer.
    Bon, change la sub Cherche...par
    Sub Cherche()
    Dim Ch As String, Lig As Long, Col As Integer
        Application.EnableEvents = False
        Ch = Sheets("Menu").[B3]
        With Sheets("Liste")
            For Lig = 2 To .[A65536].End(xlUp).Row
                If .Cells(Lig, 1) Like "*" & Ch & "*" Then
                    Sheets("Menu").[F3] = .Cells(Lig, 2)
                    Sheets("Menu").[I2] = .Cells(Lig, 3)
                    Sheets("Menu").[F8] = .Cells(Lig, "H")
                    Sheets("Menu").[I9] = .Cells(Lig, "G")
                    Exit Sub
                End If
            Next Lig
        End With
        Application.EnableEvents = True
    End Sub

    0
    1. kpri Messages postés 17 Statut Membre
       
      pas compliqué pour toi !!! mais pour moi un peu au dessus du niveau excel ou j en suis !!!
      Merci beaucoup pour tes postes. si je bug toujours je te tiens informé. encore merci
      0