Select Case ???

[Ar morbreizher]

Bonsoir,

Pour résoudre un problème de DoubleClick, on m'a suggéré d'utiliser les cases :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
Select Case ActiveCell.Address

Case "$A$5"
If Target = "" Then
Target = "X"
Range("C5").Value = ""
Else
Target = ""
End If
Case "$C$5"
If Target = "" Then
Target = "X"
Range("A5").Value = ""
Else
Target = ""
End If

Case Else ' Si clic sur autre cellules
Range("A1").Select
End Select

cancel = True
End Sub

Le problème c'est que si je rajoute un nouveau choix entre 2 cases en E5 et G5 par exemple, avec la même formule, et bien il n'y a que A5 et C5 qui fonctionne...

Est-ce normal et comment faire ?

Merci à tous

 

[Lord Nelson]

Salut,
Il te suffit d'ajouter des "Case"
Tu as Case "$A$5"
Tu peux intercaler Case "$C$5"
puis Case "$E$5"...etc
avant le Case Else qui doit demeurer le dernier cas traité avant le End Select.
A+

 

[Ar morbreizher]

Thank you My Lord,

J'avais bien fait ça au boulot mais ça marchait pas...

Je viens de refaire un petit test chez moi et ça roule.

Je reverrais mes sub demain, y'a un truc que j'ai du faire de travers.

Comme quoi, on travaille mieux à la maison alors pourquoi aller au bureau ?


Merci et à +

 

[ar Morbreizher]

Bonjour à tous,

Après vérification, oh la la ! la honte !!

dans mes choix : Case "$A$5" par exemple, il faut impérativement que le A soit en majuscule, ce qui n'était pas le cas partout.
Maintenant, ça marche et I'm happy

Bonne journée