XL 2010 clic droit = clic gauche

Usine à gaz

XLDnaute Barbatruc

• 20 Mars 2017

• #31

LOL, tu te moques du pauvre profane que je suis

J'ai essayé de mettre public Flag ou Flag rant mais je n'y arrive pas.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2017

• #32

Lionel

Tu met juste Flag ; donc Public Flag as Boolean. Dans la feuille (selection change) Flag = True
Dans (clic-droit) If Flag Then Flag = False la macro - et avant End Sub Flag = True.

 

Dernière édition: 20 Mars 2017

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 20 Mars 2017

• #33

Merci Lone, je vais essayer

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2017

• #34

Re

Si ça ne marche pas sur l'autre fichier, appelle le Samu pour qu'ils amèment les béquilles.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 20 Mars 2017

• #35

LOL, ils SAMUseront

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 20 Mars 2017

• #36

Encore au secours Lone,

Le Flag fonctionne mais me bloque l'exécution d'autres codes et oblige à cliquer droit pour afficher des UserForm

As-tu une solution pour annuler l'effet du Flag ?
J'ai essayé "Flag=False" mais ça ne marche pas.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Mars 2017

• #37

arthour973 à dit:

Marcel dit : "Je ne comprends pas pourquoi tu mets la même chose dans les deux macros."

Le souci est que l'utilisateur peut cliquer en clic gauche ou en clic droit.
Si un seul code peut permettre l'exécution en cas de clic gauche ou de clic droit, je suis preneur

Cliquez pour agrandir...

As-tu au moins essayé d'effectuer la modification que j'ai proposée (désactivation de l'affichage du menu contextuel) sur ton fichier du message #17 ???

Chez moi le fonctionnement est ainsi logique, mais s'il ne correspond pas à ce que tu veux alors il va falloir être beaucoup plus clair sur le fonctionnement que tu veux obtenir et on verra si on arrive à trouver quelque chose correspondant mieux à tes attentes.

 

Dernière édition: 20 Mars 2017

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Mars 2017

• #38

Au final, n'est-ce pas simplement la désactivation de l'affichage du menu contextuel que tu demandes depuis le début ?

J'essaye de comprendre la question car tu dis que le fichier du loup résout ton problème or ça ne semble pas le faire chez moi, donc j'en déduis que je n'ai en fait toujours pas compris la question.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 20 Mars 2017

• #39

Bonjour Marcel,
Merci d'être encore là

J'avais tenté ta solution du post 18 mais sans succès.

Voici avec les 2 fichiers joints ou on en est :
- avec le Run
C'est( bon mais ça beug quand je le mets dans mon fichier de travail,

- avec le Flag
C'est bon et ça fonctionne mais me bloque l'exécution d'autres codes et oblige à cliquer droit pour afficher des UserForm
As-tu une solution pour annuler l'effet du Flag ?

Encore un grand merci à vous tous,
Amicalement,
Lionel,

 

Pièces jointes

• Test Clic droit-Clic gauche bon Run.xlsm

  21 KB · Affichages: 27
• Test Clic droit-Clic gauche bon flag.xlsm

  21.3 KB · Affichages: 43

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Mars 2017

• #40

arthour973 à dit:

J'avais tenté ta solution du post 18 mais sans succès.

Cliquez pour agrandir...

Tu as dû te gourer car, du moins chez moi, ça donnait exactement le même fonctionnement que pour les deux fichiers que tu viens de poster, mais sans la redondance inutile de la macro.

Sur ce, je te souhaite une bonne soirée et aussi bien sûr de trouver ta solution.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 20 Mars 2017

• #41

Effectivement, les deux fichiers donnent le même résultat. Ils fonctionnent bien tous les deux.

Mais c'est quand j'intègre les codes dans mon fichier de travail que ça ne marche plus :

- avec le Run
C'est bon mais ça beug quand je le mets dans mon fichier de travail,

- avec le Flag
C'est bon et ça fonctionne mais me bloque l'exécution d'autres codes et oblige à cliquer droit pour afficher des UserForm

Bonne soirée à toi aussi
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2017

• #42

Bonsoir Lionel

Fait un essai avec ceci

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
    
  If Not Intersect(R, Range("h7:h20000")) Is Nothing Then Exit Sub
    If Not Intersect(R, Range("G7:G20000")) Is Nothing And R.Count = 1 Then
        flag = True
        If MsgBox("Je téléphone = OUI    - SINON = NON", vbQuestion + vbYesNo) <> vbNo Then
            R.Offset(0, 6) = ""
            R.Offset(0, 7) = ""
            R.Offset(0, 8) = ""
            R.Select
            Selection.Copy
            flag = False
        End If
    End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal R As Range, Cancel As Boolean)
        flag = True
        If Not Intersect(R, Range("h7:h20000")) Is Nothing Then
        If MsgBox("Je téléphone = OUI    - SINON = NON", vbQuestion + vbYesNo) <> vbNo Then
            R.Offset(0, 5) = ""
            R.Offset(0, 6) = ""
            R.Offset(0, 7) = ""
            R.Select
            Selection.Copy
            flag = False
        End If
    End If
    Cancel = True
End Sub

 

Dernière édition: 20 Mars 2017

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 21 Mars 2017

• #43

Bonjour Lone, le Forum,

Je n'avais pas vu ton message.
Merci, j'essaie ce soir et je te réponds
Bonne journée à toutes et à tous,
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif