Double-clic sur une cellule génère sélection de toutes lignes contenant ladite cellule

**MarcJinger** · 18/06/2022, 19h24

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** · 19/06/2022, 09h55

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** · 20/06/2022, 10h27

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** · 20/06/2022, 13h07

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** · 20/06/2022, 14h24

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** · 20/06/2022, 14h39

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.

**MarcJinger** · 20/06/2022, 15h00

Oui oui bien sûr, j'avais bien checké ça, "hélas"...

**Qwazerty** · 20/06/2022, 17h47

Salut

Si tu travailles avec un tableau structuré, pourquoi ne pas simplement insérer un Segment pour filtrer tes données?
Si tu ne connais pas, clique dans ton tableau, va dans le menu associé au tableau et cliques sur "Insérer un segment".
Tu peux ensuite choisir un nom via la liste triée proposée par le segment (unique ou multiple). Tu peux même réaliser cette sélection via quelques lignes en VBA si besoin spécifique.

++
Qwaz

**anasecu** · 20/06/2022, 18h13

bonsoir,

avec l'exemple tu pourras peut-être mieux voir ce qui cloche

**Qwazerty** · 20/06/2022, 19h04

En reprenant le fichier créé par Anasecu, ça donne ça avec un segment.

C'est moins intéressant que ce que j'escomptais niveau code VBA, la source tableau n'est pas reconnue comme étant de type OLAP, du coup certaines méthodes ne lui sont pas applicables... (Je débute dans ce secteur

) ... D'ailleurs la déclaration du tableau comme faisant partie du modèle de données est inutile, j'avais juste tenté de rendre OLAP le tableau. Je me demande quand même si ça ne fonctionne pas avec une version 365 d'excel, il me semble avoir lu quelque part que le type OLAP avait était étendu y compris au tableau. ~~Si tu es sur une version 365, tu peux tester la ligne que j'ai mise en commentaire dans le code du double-clique.~~ (je viens de voir le tag... 2019, comme moi, faudrait que je teste sur le micro du boulot)
[Edit]Je viens de tester, il n'est pas reconnu de type OLAP non plus sur 365[/Edit]

Il reste l'avantage visuel du segment (qui peut-être déplacer ou copié sur une autre feuille). Le bouton en haut à droite permettant de rapidement supprimer les filtre mis en place.

++
Qwaz

**MarcJinger** · 23/06/2022, 00h18

Envoyé par anasecu

bonsoir,

avec l'exemple tu pourras peut-être mieux voir ce qui cloche

Merci beaucoup ! Ton exemple marche super bien, mais si je plaque ton code aux bons endroits en ajustant bien sûr les noms de feuilles, ça ne marche pas ; j'ai un peu honte d'avouer que mes sheets sont de vrais merdiers bourrés de modules nuls mais qui font le job... Je pensais pourtant qu'il y avait la place pour cette fonctionalité géniale, mais ça déconne pareil...
Je ne pige pas ce qui gêne...

En tout cas merci encore pour le temps consacré !!! je vais re-checker 😏

**MarcJinger** · 23/06/2022, 00h23

Envoyé par Qwazerty

En reprenant le fichier créé par Anasecu, ça donne ça avec un segment.

C'est moins intéressant que ce que j'escomptais niveau code VBA, la source tableau n'est pas reconnue comme étant de type OLAP, du coup certaines méthodes ne lui sont pas applicables... (Je débute dans ce secteur

) ... D'ailleurs la déclaration du tableau comme faisant partie du modèle de données est inutile, j'avais juste tenté de rendre OLAP le tableau. Je me demande quand même si ça ne fonctionne pas avec une version 365 d'excel, il me semble avoir lu quelque part que le type OLAP avait était étendu y compris au tableau. ~~Si tu es sur une version 365, tu peux tester la ligne que j'ai mise en commentaire dans le code du double-clique.~~ (je viens de voir le tag... 2019, comme moi, faudrait que je teste sur le micro du boulot)
[Edit]Je viens de tester, il n'est pas reconnu de type OLAP non plus sur 365[/Edit]

Il reste l'avantage visuel du segment (qui peut-être déplacer ou copié sur une autre feuille). Le bouton en haut à droite permettant de rapidement supprimer les filtre mis en place.

++
Qwaz

Merci beaucoup, comme je le disais à anasecu, mon classeur est peut-être trop en merdier ; ça ne marche toujours pas dessus

**Qwazerty** · 23/06/2022, 05h57

Salut

Difficile de te répondre sans voir la bête, surtout si tu as déjà du code qui interfère.

++
Qwaz

**anasecu** · 23/06/2022, 08h07

Bonjour

bourrés de modules nuls mais qui font le job...

Si tes modules fonctionnent ils ne sont pas nuls mais si le nouveau n'arrive pas à s'intégrer
tu devrais regarder s'il n'interfère pas avec l'un des anciens qui peut-être se lance et annule le nouveau.

Tu devrais placer un point d'arrêt (touche F9) sur la procédure double clic
puis utiliser la touche F8 pour faire du pas à pas et tu verras ainsi ce qui bloque
car la procédure n'est pas longue à dérouler.

**MarcJinger** · 29/06/2022, 10h17

Envoyé par Qwazerty

Salut

Difficile de te répondre sans voir la bête, surtout si tu as déjà du code qui interfère.

++
Qwaz

Merci beaucoup pour ton aide ; je vais voir comment rendre ça présentable !...

**Qwazerty** · 29/06/2022, 12h56

Envoyé par MarcJinger

je vais voir comment rendre ça présentable !...

Salut

Ne te tracasse pas trop sur la forme, le but est de voir le fonctionnement global. Assure toi juste de ne rien partager de confidentiel.

++
Qwaz

Double-clic sur une cellule génère sélection de toutes lignes contenant ladite cellule

Macros et VBA Excel

Discussions similaires

Partager

Partager