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.
A voir également:

5 réponses

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
kpri Messages postés 17 Statut Membre
 
http://www.cijoint.fr/cjlink.php?file=cj201103/cijwhQD2nZ.xlsx</code>


Voici c'est chose faite :-) qui veux me donner un tit coup de main ?! merci d'avance
0
kpri Messages postés 17 Statut Membre
 
http://www.cijoint.fr/cjlink.php?file=cj201103/cijwhQD2nZ.xlsx

erratum la ça fonctionne !!!
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Regarde si c'est ça que tu cherche
A+
0
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
sauf que les infos que je rajoute n'apparaissent pas Où tu rajoute des info ?
0
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
En colonnes ?
0
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
kpri Messages postés 17 Statut Membre
 
pas de réponse c'est nul !!!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
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