Mettre une valeur dans une cellule au double clic

[yannick64]

Bonjour à tous,

J'ai un petit souci, sur une feuille j'ai besoin de mettre une croix dans une cellule au double clic. Ca c'est bon avec ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  temp = Array("X", "")
  p = Application.Match(Target, temp, 0)
  If Not IsError(p) Then
    If p = UBound(temp) + 1 Then p = 0
  Else
    p = 0
  End If
  Target = temp(p)
  Cancel = True
End Sub

Mon souci c'est que je voudrais limiter cette macro à une partie de la feuille... et ça je n'y arrive pas

Merci pour votre aide
Yannick64

 

[piga25]

Re : Mettre une valeur dans une cellule au double clic

Bonjour,

Peut être comme ceci :

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

 

[Pierrot93]

Re : Mettre une valeur dans une cellule au double clic

bonjour,

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

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

bonne journée
@+

Edition : bonjour Piga

 

[yannick64]

Re : Mettre une valeur dans une cellule au double clic

ça marche impec !!!

Merci pour votre aide
Bonne journée
Yannick64

 

[Juj]

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

 

[Pierrot93]

Re : Mettre une valeur dans une cellule au double clic

Bonjour,

place un :

Cancel = True

dans la procédure.

bonne soirée
@+

 

[Juj]

Re : Mettre une valeur dans une cellule au double clic

Nikel je te remercie Pierrot93!!