A
Ar morbreizher
Guest
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
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