Ajout dans Macro

Version imprimable

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:

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"

Code:

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

29/07/2014, 17h31
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