Discussion :

[Un Internaute]

Bonjour le forum,
Je veux ajouter dans la macro ci-dessous "PAIEMENT SÉANCES" et je n'y arrive pas.
Quelqu'un a t-il une idée où le placer?
Merci d'avance pour vos retours
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
Private Sub Worksheet_BeforeDoubleClick(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 "OSTÉOPATHIE"
        Target = ""
      Case Else
        Target = "PLAQUES"
    End Select
  End If
 
End Sub

[Invité]

bonjour,
dans la feuille "PAIEMENT SÉANCES"

[Un Internaute]

Bonjour rdurupt,
Je ne peux pas ouvrir et pas de feuille "PAIEMENT SÉANCES"
Il faut incorporer "PAIEMENT SÉANCES" dans la macro
Merci de ta réponse
Cordialement

[Invité]

pourquoi????
tu nous présent une macro qui fonctionne sur le double click de la feuille et ta pas accès à la feuille!!!

[Un Internaute]

pourquoi????

A chaque clique il vient soit PLAQUES Soit OSTHÉOPATHIE soit rien et maintenant je veux PAIEMENT SÉANCES.
Bien cordialement

[Invité]

et bien tu as juste à faire la même chose que pour PLAQUES et OSTHÉOPATHIE mais pour PAIEMENT SÉANCES.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
select case JeSaisPas
         Case  "PLAQUES"
                 Macro1
         Case "OSTHÉOPATHIE"
                 Macro2
         Case  "PAIEMENT SÉANCES"
                 Macro3
end Select

[Marc-L]

Bonjour, bonjour !

L'Internaute, en clair et sans décodeur ?‼

Sinon : … Et alors tu le places où tu le veux dans la logique du code et du besoin !

[Un Internaute]

Bonjour, bonjour !

L'Internaute, en clair et sans décodeur ?‼

Sinon : … Et alors tu le places où tu le veux dans la logique du code et du besoin !

Bonsoir sans décodeur!!!!!
Voilà et ça fonctionne
Bonne fin de soirée

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 Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("F10:F86"), Target) Is Nothing Then
    Cancel = True
    Select Case UCase(Target)
      Case "PAIEMENT SÉANCES"
        Target = "PLAQUES"
      Case "PLAQUES"
        Target = "OSTÉOPATHIE"
      Case "OSTÉOPATHIE"
        Target = ""
      Case Else
        Target = "PAIEMENT SÉANCES"
    End Select
  End If
 
End Sub

[Invité]

Pour moi ce sera un caliméro

Bonjour, bonjour !

L'Internaute, en clair et sans décodeur ?‼

Sinon : … Et alors tu le places où tu le veux dans la logique du code et du besoin !