Définir une plage pour appliquer une macro

[libellule85]

Bonsoir le forum,

Une question très facile pour vous les pros des macros. J'ai une macro qui met une croix en double cliquant dans une cellule et je cherche à ce que cette macro ne s'applique que dans la plage B3:Y17.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If UCase(Target) = "X" Then Target = "" Else Target = "X"
  Cancel = True
End Sub

D'avance merci pour votre aide

 

[BigDaddy154]

Re : Définir une plage pour appliquer une macro

Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B3:Y17")) Is Nothing Then
    If UCase(Target) = "X" Then Target = "" Else Target = "X"
    Cancel = True
End If
End Sub

Cordialement.

 

[libellule85]

Re : Définir une plage pour appliquer une macro

Bonsoir BigDaddy154,

Merci pour ta réponse, c'est sympa

 

[fmaurice54]

Re : Définir une plage pour appliquer une macro

Bonjour,

Je cherche une solution similaire par là :
https://www.excel-downloads.com/threads/tableau-de-bord-et-extraction-donnees-dun-tcd.20006272/
Pouvez vous m'aider à conditionner le résultat de Sub Worksheet_BeforeDoubleClick, en fonction de la zone dans laquelle je double-clic

Merci

F.