XL 2019 double clic sur une colonne

farid · 27 Décembre 2021

Bonsoir,
j'ai cette macro qui fonctionne très bien , mais fonctionne sur n'importa quel cellule alors que je souhaite que cela fonctionne uniquement sur la colonne A a partir de A2.
merci pour votre retour
Farid

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rep$, nom$, C As Range
Cancel = True
rep = ActiveWorkbook.Path & "\SAUVEGARDE-OT\2022\"
nom = Target.Value
Call testouverture
If Not FichierOuvert(nom & ".xlsm") = True Then
Workbooks.Open rep & nom & ".xlsm"
Call testouverture
End If
End Sub

sylvanu · 27 Décembre 2021

Bonsoir Farid,
Il faut limiter la portée de la macro :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then
        ' Votre macro
    End If
End Sub

"A1000" doit être modifié ou non suivant votre contexte.

sylvanu · 27 Décembre 2021

Bonsoir Farid,
Il faut limiter la portée de la macro :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then
        ' Votre macro
    End If
End Sub

"A1000" doit être modifié ou non suivant votre contexte.

Phil69970 · 27 Décembre 2021

Bonjour @farid

Je te propose ceci :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rep$, nom$, C As Range

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'Cellule A1
    Exit Sub
Else
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'col A
        Cancel = True
        rep = ActiveWorkbook.Path & "\SAUVEGARDE-OT\2022\"
        nom = Target.Value
        Call testouverture
        If Not FichierOuvert(nom & ".xlsm") = True Then
            Workbooks.Open rep & nom & ".xlsm"
            Call testouverture
        End If
       
    End If
End If
End Sub

*Explication :
Le 1er if intersect contrôle A1 et le 2eme if intersect contrôle la colonne A

*Merci de ton retour

@Phil69970

farid · 28 Décembre 2021

Bonsoir Sylvanu , Phil,
merci pour votre retour , les deux propositions fonctionnent.
merci beaucoup pour participation
Bien cordialement

XL 2019 double clic sur une colonne

farid

XLDnaute Occasionnel

sylvanu

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

Discussions similaires