Discussion :

[Un Internaute]

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"

[mercatog]

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
17
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim N As Integer
Dim X As String
Dim Tb
 
If Not Intersect(Range("F10:F86"), Target) Is Nothing Then
    Cancel = True
    Tb = Array("", "MÉTHODE MÉZIÈRES", "PLAQUES", "OSTHÉOPATHIE", "KINÉ TRADITIONNELLE")
 
    X = UCase(Trim(Target))
    If UBound(Filter(Tb, X)) >= 0 Then
        Target = Tb(Application.Match(X, Tb, 0) Mod (1 + UBound(Tb)))
    Else
        Target = ""
    End If
End If
End Sub

[Un Internaute]

Bonsoir mercatog,
Ce code est "ENORME"!!!. D'autant plus que lorsque je veux ajouter une "méthode" c'est BEAUCOUP plus facile pour un presque "profane" comme moi.
Un GRAND merci de t'avoir "penché" sur mon problème.
Bonne fin de soirée à toi

Bien cordialement