XL 2019 double clic sur une colonne

  • Initiateur de la discussion Initiateur de la discussion farid
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

farid

XLDnaute Occasionnel
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
 
Solution
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.
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
153
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
4
Affichages
243
Retour