Problème Double Click Cellule A3

Bonjour le forum

Lorsque je Double Click sur cellule A3 pour afficher la Ligne A2 il faut que je me repositionne sur la cellule A3 pour le Re Double click

Y a t-il une astuce pour ne faire cette manœuvre ou ça vient-il que la ligne à afficher est au dessus (Ligne A2)

Merci pour vos éventuels retours

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)     'Macro pour afficher Ligne A3 et Colonne J
Cancel = True
If Not Intersect(Target, Union(Range("A3"), Range("I3"))) Is Nothing Then
    If Target.Column = 1 Then Rows(2).Hidden = Not Rows(2).Hidden                      
    If Target.Column = 9 Then Columns("J").Hidden = Not Columns("J").Hidden         
    [A1].Select
End If
End Sub

Bonjour,

Essaie ainsi ?

Option Explicit
'Macro pour afficher Ligne A3 et Colonne J
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
    'If Not Intersect(Target, Union(Range("A3"), Range("I3"))) Is Nothing Then
        If Target.Column = 1 Then Sh.Rows(2).Hidden = Not Sh.Rows(2).Hidden
        If Target.Column = 9 Then Sh.Columns("J").Hidden = Not Sh.Columns("J").Hidden
        [A1].Select
    'End If
End Sub

Bonjour Jean-Eric

Non ça ne change rien mais tu veux dire Ligne 2 et non Ligne 3

'Macro pour afficher Ligne A3 et Colonne J

PS: Avant je recevais des e-mails de réponse à mon sujet plus maintenant.

Il y a certainement un truc à cocher

Bonjour,

En même temps, si tu sélectionnes une autre cellule pendant ton Double-clic ([A1].Select), cela semble normal de ne plus avoir la cellule A3 sélectionnée non?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Not Intersect(Target, Union(Range("A3"), Range("I3"))) Is Nothing Then
        If Target.Column = 1 Then Sh.Rows(2).Hidden = Not Sh.Rows(2).Hidden
        If Target.Column = 9 Then Sh.Columns("J").Hidden = Not Sh.Columns("J").Hidden
        '[A1].Select
    End If
End Sub

De plus, l'utilisation de SheetBeforeDoubleClick s'applique à toutes les feuilles de ton classeur.

J'espère pour toi que tu as besoin de ce code dans TOUTES tes feuilles... Sinon, pensez à utiliser le paramètre Sh As Object qui représente un objet "feuille".

Bonjour à tous

al87 a écrit :

PS: Avant je recevais des e-mails de réponse à mon sujet plus maintenant.

Il y a certainement un truc à cocher

Il faut aller voir les préférences dans le profil :

Fred

Bonjour fred2406

Merci pour ton retour. Il y en a un que j'avais pas coché

Pour mon "petit" problème j'ai trouvé ça

Mis("'A3,A2") => A2 en plus

If Not Intersect(Target, Union(Range("A3,A2"), Range("I3"))) Is Nothing Then

Donc ça fonctionne

Merci à tous pour vos retours

Cordialement