select case sur des plages

[Sarlone]

re

Dans une Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


plutot que des

If Not Intersect(Target, Range("E11:E61")) Is Nothing Then .......imbriqués

j'aimerais savoir s'il est possible de faire un truc du genre:



Select Case Target.Address

Case "E11" to "E61": Call MAcro_3
Case "$U$7" To "$Z$7": Call MAcro_1
Case "$C$1" To $C$100": Call MAcro_2
plusieurs autres cases sur des plages

Else exit Sub
End Select
End Sub

Merci pour vos lumieres
++

 

[Pierrot93]

Re : select case sur des plages

Bonjour Sarlone

essaye avec "elseif", il me semble bien qu'avec un "select case", la solution s'il y a, serait beaucoup plus alambiquée :

If Not Intersect(Target, Range("E11:E61")) Is Nothing Then
    Call MAcro_3
    ElseIf Not Intersect(Target, Range("U7:Z7")) Is Nothing Then Call MAcro_1
    ElseIf Not Intersect(Target, Range("C1:C100")) Is Nothing Then Call MAcro_2
Else
    MsgBox "autre"
End If

bonne journée
@+