Bonjour le forum,
Je voudrais ajouter ajouter "KINÉ TRADITIONNELLE" dans macro.
Comme je ne suis pas un "expert" (vous avez du vous en apercevoir) je me tourne traditionnellement vers vous!
Merci pour vos éventuelles réponses.
Bien cordialement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("F10:F86"), Target) Is Nothing Then
    Cancel = True
    Select Case UCase(Target)
      Case "PLAQUES"
        Target = "OSTÉOPATHIE"
         Case "MÉTHODE MÉZIÈRES"
        Target = "PLAQUES"
      Case "OSTÉOPATHIE"
        Target = ""
      Case Else
        Target = "MÉTHODE MÉZIÈRES"
     End Select
  End If
 
End Sub
J'ai oublié de dire que: Double clic = "MÉTHODE MÉZIÈRES" , "PLAQUES", "OSTHÉOPATHIE", dernier = cellule blanche.
Donc un autre Double clic = "KINÉ TRADITIONNELLE"