Discussion :

[MarcJinger]

Bonjour again,

Sinon j'ai un deuxième problème pour ceux qui en redemandent
J'ai un workbook -> deux feuilles : A et B
la première, A, contient un tableau de clients => une colonne qui contient leur nom, soit la colonne "G" avec diverses data,
la deuxième, B, contient la même colonne de noms ("U"), mais sur tout le reste de la ligne des notes

Je rêverai de pouvoir en double cliquant sur un des noms en G (feuille A), me retrouver sur la feuille B avec seulement toutes les lignes comportant le nom cliqué en feuille A. et le pied serait, en double cliquant n'importe où depuis cette sélection, me retrouver sur la feuille A sur la cellule d'origine !

Ce serait grandiose ...

Bon week end à totues et à tous !!!

[anasecu]

Bonjour

Si j'ai bien compris ton désir tu peux le réaliser avec un filtre associé au double clic puis un simple positionnement sur le second.

En feuille1

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.CountLarge = 1 And Not Intersect(Target, Range("G:G")) Is Nothing Then
        Cancel = True
        Sheets("Feuil2").Activate
        Sheets("Feuil2").Range("$U:$U").AutoFilter Field:=1, Criteria1:=Target.Value
    End If
End Sub

En feuille2

Code :

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

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Range("$U$1:$U$41").AutoFilter Field:=1
    Sheets("Feuil1").Activate
End Sub

Bien sûr tu mets le bon nom de tes feuilles pour que cela fonctionne.

[MarcJinger]

Bonjour Anasecu, merci beaucoup !
Mais pour l'instant cela ne fonctionne pas : pas de réaction au double-clic...j'ai pourtant bien placé le bon code sur les bonnes feuilles respectives...
Pas de réaction au double-click...

[anasecu]

Bonjour

Pas de réaction au double-click...

Il faut que les événements soient interceptés et pour cela tu lances avant cette macro :

Code :

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

1
2
3
Public Sub events_on()
    Application.EnableEvents = True
End Sub

[MarcJinger]

Merci !
Effectivement maintenant ça lance bien sur double-clic en feuille 1, mais sur la feuille 2 ça ne filtre pas sur valeur double-cliquée : la feuille complètement est vide (alors que normalement pleine) et sont filtrées les lignes 937 à 957 (mais vides aussi)...

[anasecu]

Regardes si tu as bien les bonnes colonnes dans tes macro et que les valeurs de la colonne filtrée soient bien identiques à celle d'origine (ajout d'espace par exemple dans une saisie)

Ton résultat voudrait signifier que ton double clic est sur une cellule vide ou à espaces.