Autres [RÉSOLU] Ajouter un Double Click cellule F2

un internaute

XLDnaute Occasionnel
Bonjour le forum
J'arrive à faire fonctionner Double Click cellule A2 (AfficherMasquerJoursFeries)
Je voudrais ajouter même chose mais cellule F2 (AfficherMasquerPeriodicite)
Dans la macro ci-dessous
Merci à vous

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Target.Address = "$A$2" And Target.Count = 1 Then
    AfficherMasquerJoursFeries
     
    Range("A1").Select
    Exit Sub
    End If

      InitRISTABIL  'Module posologie
  If Target.Column = 1 Then Target.Value = Date: Cancel = True
  If Not Intersect(Range("C3:C" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
    Cancel = True
    If Range("A" & Target.Row) = "" Then
      MsgBox "Afficher la Date Colonne A"
      Exit Sub
    End If
     
    Target = IIf(Target = "RISTABIL", "", "RISTABIL")
  ElseIf Not Intersect(Range("B3:B" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
    Cancel = True
    Target = IIf(Target = Posologie, "", Posologie)  ' modifié le 19/10/2017
  End If
End Sub
 

Discussions similaires


Haut Bas