sort de la precedure si ligne est selectionner

N

NezQuiCoule

XLDnaute Occasionnel

• 25 Mars 2015

• #2

Re : sort de la precedure si ligne est selectionner

Bonsoir pralo,

Je propose un simple test qui va vérifier la longueur de la selection (il existe plein d'autres possibilités sans doute)

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 1 Then Exit Sub
    If Selection.Width > 2 * Columns(1).Width Then Exit Sub
    Cancel = True 
    UserForm4.Show
End Sub

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 25 Mars 2015

• #3

Re : sort de la precedure si ligne est selectionner

bonsoir NezQuiCoule
ce forum est toujours aussi rapide pour trouver des solutions
ton code fonctionne parfaitement
merci encore pour ta rapidité

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 26 Mars 2015

• #4

Re : sort de la precedure si ligne est selectionner

Bonjour NezQuiCoule bonjour le forum
je me permet de revenir vers toi
j'ai essayer d'adapter ton code, si il y a plus que 2 cellules sélectionné, la macro ne s'exécute pas
mais visiblement je ne suis pas encore aux point pour les codes
merci encore pour ton aide

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 26 Mars 2015

• #5

Re : sort de la precedure si ligne est selectionner

Bonjour NezQuiCoule bonjour le forum
je me permet de revenir vers toi
j'ai essayer d'adapter ton code, si il y a plus que 2 cellules sélectionné, la macro ne s'exécute pas
mais visiblement je ne suis pas encore aux point pour les codes
merci encore pour ton aide

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mars 2015

• #6

Re : sort de la precedure si ligne est selectionner

Bonjour,

essaie peut être ceci, enfin si j'ai bien compris :

Code:

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 1 Or Target.Count >= Columns.Count Then Exit Sub
    Cancel = True
    UserForm4.Show
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2015

• #7

Re : sort de la precedure si ligne est selectionner

Bonjour à tous,

Un autre essai ? :

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count * Target.Column = 1 And Selection.Address = Target.Address Then
  Cancel = True
  UserForm4.Show
End If
End Sub

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 26 Mars 2015

• #8

Re : sort de la precedure si ligne est selectionner

bonsoir Pierrot93 et mapomme
bonsoir le forum
le code de mapomme marche bien
merci encore a vous deux

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 30 Mars 2015

• #9

Re : sort de la precedure si ligne est selectionner

bonsoir mapomme bonsoir le forum
j'aimerais apporté une petite modification a ton code mais je n'y arrive pas
sort de la procédure si la colonne 1 ou 6 est pas sélectionner
If Target.Count * Target.Column = 1 And Selection.Address = Target.Address Then
merci encore pour ton aide

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Mars 2015

• #10

Re : sort de la precedure si ligne est selectionner

Bonsoir pralo,

pralo à dit:

(...) j'aimerais apporté une petite modification a ton code mais je n'y arrive pas
sort de la procédure si la colonne 1 ou 6 est pas sélectionner
If Target.Count * Target.Column = 1 And Selection.Address = Target.Address Then (...)

Cliquez pour agrandir...

je sais pas si j'ai bien compris 😕. Essayez ce code:

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim selAdr$, i
  selAdr = Selection.Address: i = Target.Row
  If selAdr = Cells(i, 1).Address Or selAdr = Cells(i, 6).Address Or _
    selAdr = Union(Cells(i, 1), Cells(i, 6)).Address Or Selection Is Nothing Then
      Cancel = True
      UserForm4.Show
  End If
End Sub

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 31 Mars 2015

• #11

Re : sort de la precedure si ligne est selectionner

bonsoir mapomme
ca fonctionne parfaitement
merci encore pour ton aide

 

Vote positif 0 Vote négatif