Mettre une valeur dans une cellule au double clic

piga25

XLDnaute Barbatruc

• 26 Octobre 2012

• #2

Re : Mettre une valeur dans une cellule au double clic

Bonjour,

Peut être comme ceci :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  temp = Array("X", "")
  p = Application.Match(Target, temp, 0)
If Target.Cells(votre plage ici ) <> "" Then 'Si en dehors plage on sort de la procédure
If Not IsError(p) Then
If p = UBound(temp) + 1 Then p = 0
Else
    p = 0
  End If
  Target = temp(p)
Cancel = True
End If
End Sub

 

Dernière édition: 26 Octobre 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Octobre 2012

• #3

Re : Mettre une valeur dans une cellule au double clic

bonjour,

regarde ceci, pour limiter à la plage A1:F10 :

Code:

If Not Intersect(Target, Range("A1:f10")) Is Nothing Then
'ton code
End If

bonne journée
@+

Edition : bonjour Piga

 

Vote positif 0 Vote négatif

yannick64

XLDnaute Junior

• 26 Octobre 2012

• #4

Re : Mettre une valeur dans une cellule au double clic

ça marche impec !!!

Merci pour votre aide
Bonne journée
Yannick64

 

Vote positif 0 Vote négatif

J

Juj

XLDnaute Nouveau

• 7 Novembre 2012

• #5

Re : Mettre une valeur dans une cellule au double clic

Hello,

Merci pour ce topic. Je suis également passé par cette méthode pour éviter d'utiliser des checkboxs...Par contre j'utilise un beforerightclick et je voudrais savoir s'il est possible de cacher le menu contextuel qui apparait automatiquement lors de mes clics droits (gênant pour l'utilisateur)

Si qqn a la solution...

Merci d'avance

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Novembre 2012

• #6

Re : Mettre une valeur dans une cellule au double clic

Bonjour,

place un :

Code:

Cancel = True

dans la procédure.

bonne soirée
@+

 

Vote positif 0 Vote négatif

J

Juj

XLDnaute Nouveau

• 8 Novembre 2012

• #7

Re : Mettre une valeur dans une cellule au double clic

Nikel je te remercie Pierrot93!!

 

Vote positif 0 Vote négatif