Discussion :

[bibi5883]

Bonjour,
voici mon problème:

j'ai 3 feuilles de calculs dans un même fichier excel. Sur la première j'ai une liste d'entreprise, sur la deuxième feuille, j'ai la même liste d'entreprise, mais avec des détails et sur la troisième feuille, j'ai encore cette liste d'entreprises avec encore plus de détails.
Je veux donc que quand on clik sur un nom d'entreprise sur la première feuille, on voit les détails sur la deuxième feuille. Puis quand on clik sur la même entreprise de la deuxième feuille, on voit le détails de la troisième feuille.
Le hick c qu'avec les macros que j'utilise:

Pour la feuil1:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim c
Dim LeNom As String
 
If Target.Column = 2 Then 
    LeNom = Target
        With Worksheets("Feuil2").Range("B:B")              
        Set c = .Find(LeNom, LookIn:=xlValues)
            If Not c Is Nothing Then
                Worksheets("Feuil2").Select
                Worksheets("Feuil2").Cells(c.Row, c.Column).Select
            End If
        End With
    End If
 
End Sub

et pour la feuil2

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c
Dim LeNom As String
 
If Target.Column = 2 Then 
    LeNom = Target
        With Worksheets("Feuil3").Range("B:B")  
            Set c = .Find(LeNom, LookIn:=xlValues)
            If Not c Is Nothing Then
                Worksheets("Feuil3").Select
                Worksheets("Feuil3").Cells(c.Row, c.Column).Select
            End If
        End With
    End If
 
End Sub

donc avec ces macros, quand je click sur une entreprise de la feuille1, ca m'affiche automatiquement les détails de la feuille3, même si cette entreprise se trouve dans la feuil2.

Voilà, merci pour votre aide

[dadavyvy]

Bah meme si le code est au bon endroit, si lorsque tu fais ton "Select" dans le Feuil2, tu changes de cellule, alors cela appelle le SelectionChange de la Feuil2 qui lui va chercher dans la Feuil3... Ca fait un effet cascade...
Soit tu changes d'evenement, genre BeforeDblClick, soit dans la procedure sur la Feuil2 tu detectes si la procedure dans la Feuil1 a ete lancee...
exemple :
Dans un module standard :

Code :

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

Public bool

Dans le code de la Feuil1 :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    bool = True
    Feuil2.Activate
    Feuil2.Cells(10, 10).Select
    bool = False
End Sub

Dans le code la Feuil2:

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If bool = False Then
        Feuil3.Activate
    End If
End Sub

[AlainTech]

Plus "propre" encore:

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Feuil2.Activate
    Feuil2.Cells(10, 10).Select
    Application.EnableEvents = True
End Sub

Pas besoin de changer le code de la feuille 2.

[ouskel'n'or]

Hello Alain,
Super, ta solution. J'ajouterais seulement un DoEvents
Dans Feuil1 :

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
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim c
Dim LeNom As String
 
If Target.Column = 1 Then
    LeNom = Target
        With Worksheets("Feuil2").Range("A:A")
        Set c = .Find(LeNom, LookIn:=xlValues)
            If Not c Is Nothing Then
                Application.EnableEvents = False
                Worksheets("Feuil2").Select
                Worksheets("Feuil2").Cells(c.Row, c.Column).Select
                DoEvents
                Application.EnableEvents = True
            End If
        End With
    End If 
End Sub

Sinon, il arrive qu'on aille tout droit dans feuil3 -> pas systématique (...)
Rien à changer dans feuil2 par rapport au tout premier code proposé.

[bibi5883]

Merci à tous pour votre aide,

vous êtes des chefs