Double Click -

mromain

XLDnaute Barbatruc

• 24 Septembre 2009

• #2

Re : Double Click -

bonjour sokour,

voici le code à placer sur la feuille (si j'ai bien compris)

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("N:N")) Is Nothing Then Exit Sub
Cancel = True
Target.Value = IIf(Target <> "", "", "X")
End Sub

a+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 24 Septembre 2009

• #3

Re : Double Click -

Bonjour Sokour.

Essaie le fichier joint.

Edit. salut mromain.

 

Pièces jointes

• DoubleCLICK(1).xls

  22.5 KB · Affichages: 69

Vote positif 0 Vote négatif

S

sokour

XLDnaute Occasionnel

• 24 Septembre 2009

• #4

Re : Double Click -

Merci pour votre aide ca marche parfaitement

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 24 Septembre 2009

• #5

Re : Double Click -

Bonjour Sokour,
Voici avec une macro mise dans ton fichier

Bon test

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 14 Or Target.Count > 1 Then Exit Sub
Target.Value = IIf(Target = "", "OK", "")
Cancel = True
End Sub

 

Pièces jointes

• DoubleClick.xls

  20 KB · Affichages: 52
• DoubleClick.xls

  20 KB · Affichages: 60
• DoubleClick.xls

  20 KB · Affichages: 59

Dernière édition: 24 Septembre 2009

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 24 Septembre 2009

• #6

Re : Double Click -

Salut sokour, mromain🙂, 13GIBE59🙂, Le Forum

@mromain j'aurais écrit exactement le même code à ceci près que si la cellule en Col A est vide il met quand même "OK" au double Click même si la ligne est Vide je te laisse le soin de modifier ton code 😀

@13GIBE59 profite du Code de mromain et inclus-y le Cancel = True ce qui permet de ne pas mettre le Curseur dans la Cellule. Ainsi le Range("A1").Select devient Inutile...mêmepunitionpourlacelluleenColA 😉


EDITION: Salut youky(JB)🙂 BonBin... 😀😀😀😀
Bonne Journée

 

Dernière édition: 24 Septembre 2009

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 24 Septembre 2009

• #7

Re : Double Click -

Salut Dull. 🙂

Pas tout compris :

Code:

@13GIBE59 profite du Code de mromain et inclus-y le Cancel = True [B]ce qui permet de ne pas mettre le Curseur dans la Cellule[/B]. Ainsi le Range("A1").Select devient Inutile...[B][COLOR=green]mêmepunitionpourlacelluleenColA[/COLOR][/B]

Quid ?

Au fait, il fait beau à la Réunion ? J'ai quitté l'île quand tu avais 4 ans...😛

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 24 Septembre 2009

• #8

Re : Double Click -

Salut Dull.

J'ai essayé : j'ai tout compris maintenant.

Merci.

 

Vote positif 0 Vote négatif

S

sokour

XLDnaute Occasionnel

• 28 Septembre 2009

• #9

Re : Double Click -

Merci encore pour votre temps et votre aide

 

Vote positif 0 Vote négatif