Double Click -

[sokour]

Bonjour,

Je voulais savoir si par VBA il ètait possible d'automatiser une colonne lorsque je double click sur une cellule dans cette colonne, OK apparait et quand je re double click cela disparait
Je vous joint un fichier de base, la colonne confirmation permettrait ainsi a la personne qui doublicke sur une des cellules cette colonne un OK apparait et disparait quand je redouble click
Cela est il realisable?

Merci pour votre aide

 

[mromain]

Re : Double Click -

bonjour sokour,

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

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+

 

[13GIBE59]

Re : Double Click -

Bonjour Sokour.

Essaie le fichier joint.

Edit. salut mromain.

 

[sokour]

Re : Double Click -

Merci pour votre aide ca marche parfaitement

 

[youky(BJ)]

Re : Double Click -

Bonjour Sokour,
Voici avec une macro mise dans ton fichier

Bon test

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

 

[Dull]

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

 

[13GIBE59]

Re : Double Click -

Salut Dull. 🙂

Pas tout compris :

@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...😛

 

[13GIBE59]

Re : Double Click -

Salut Dull.

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

Merci.

 

[sokour]

Re : Double Click -

Merci encore pour votre temps et votre aide