Discussion :

[Overflow64]

Bonjour,

Voila ma problématique : J'ai une liste d'entreprise sur une feuille et lorsque j'en sélectionne une, je veux afficher une autre feuille (qui liste les entreprises et les infos comme le num de téléphone etc...) avec seulement l'entreprise que j'ai sélectionné sur la page d'avant.

Comment faire pour transmettre ces données là. Avez-vous un exemple ?

Merci !

[khany]

en mettant le nom de ta feuille précédente dans l'appel de ta cellule Form.Cell ...

Cherche un peu sur le forum, il y a des exemples

[ouskel'n'or]

J'avais ça dans mes archives
Consiste, lors de chaque sélection d'un nom dans la colonne A de feuil1, de lancer une macro qui va chercher les données correspondantes dans feuil2 et les affiche dans un msgbox.
Tu peux extrapoler pour les afficher dans un userform

Tu places ça dans un module du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ChercherTrouver()
    If Not ActiveCell.Value = Empty Then    'On se déplace dans la colonne A
            NomEntreprise = ActiveCell.Value  'Pris dans Feuil1 colonne A
            Worksheets("Feuil2").Select
            Range("A1").Select
            Columns("A:A").Select
            Selection.Find(What:=NomEntreprise, After:=ActiveCell, LookIn:= _
                xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
                xlNext, MatchCase:=False).Activate
            msg = Cells(ActiveCell.Row, 1).Value 'Colonne du nom
            msg = msg & vbCrLf & Cells(ActiveCell.Row, 2).Value 'colonne du téléphone
            msg = msg & vbCrLf & Cells(ActiveCell.Row, 3).Value 'colonne de l'adresse
            MsgBox msg
        Else
            Exit Sub
    End If
    Worksheets("Feuil1").Select
End Sub

et dans le code de ta feuille "Feuil1", tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Not ActiveCell.Value = Empty Then Application.Run ("MonClasseur.xls!ChercherTrouver")
End Sub

Si ça peut t'aider...

A+