Double click = X sur une plage de données

[Angy1105]

Bonjour le forum,

Est-il possible d'avoir un petit coup de main ?

J'utilise le code suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Value = "" Then ActiveCell.FormulaR1C1 = "x": ActiveCell.Offset(1, 0).Range("A1").Select: End
If ActiveCell.Value = "x" Then ActiveCell.FormulaR1C1 = ""
Rem ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Mais je voudrais que le double click soit actif que sur la plage "C11:C20", Je n'arrive pas à trouver le complément pour que ça fonctionne...

Quelqu'un peut-il m'aider ?

Merci d'avance et bonne journée.

 

[PascalXLD]

Re : Double click = X sur une plage de données

Bonjour

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
if not intersect(target, Range("C11:C20")) is nothing then
If ActiveCell.Value = "" Then ActiveCell.FormulaR1C1 = "x": ActiveCell.Offset(1, 0).Range("A1").Select: End
If ActiveCell.Value = "x" Then ActiveCell.FormulaR1C1 = ""
Rem ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 0).Range("A1").Select
end if
End Sub

 

[Angy1105]

Re : Double click = X sur une plage de données

La réponse à été très rapide...
Merci beaucoup et bonne journée.

Angy

 

[Angy1105]

Re : Double click = X sur une plage de données

Re bonjour,

Mon classeur contient un useform qui apparaît lors de l'ouverture de celui-ci(le classeur) mais lorsque je double clique sur les cases pour ajouter les croix mon useform disparaît!!! Comment faire pour qu'il soit toujours présent à l'écran ? Et qu'il ne se ferme pas lorsque je mets les croix ?

Merci de votre aide et bonne après-midi.