Double-clic sur plusiers cellules isolées

Bonjour à tous,

J' ai un code qui fonctionne bien en cliquant sur un seule cellule de la feuille,

Mais je souhaiterais pouvoir utiliser plusieurs cellules

p.e.B323, B355, B395 etc.... c.a.d. décalées de plus ou moins trente jours ( toutes les fins de mois.)

Je vous joins mon code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      temp = Array("Fabrice", "Françoise", "Anne", "Audrey", "Sylvie")
      If Not Application.Intersect(Target, Range("C3:AF426")) Is Nothing Then
        With Target
      p = Application.Match(Target, temp, 0)
      If Not IsError(p) Then
        If p = UBound(temp) + 1 Then p = 0
      Else
        p = 0
      End If
      Target = temp(p)
      Cancel = True
      End With
     Else
'                                    zone à modifier avec des cellules isolées
      If Not Intersect(Target, Range("B:B")) Is Nothing Then
        UserForm1.Show
'    Tri_Patients
'   ' Application.Run "'exemple-2.xlsm'!Macro1"
    End If
'    Target.Offset(1, 0).Select
      End If
    End Sub

Merci aux experts qui jetterons un œil sur c message

Amicalement

Pierrot

Bonjour Pierrot,

Si tu souhaites qu'un traitement soit effectué sur les cellules B323, B355, B395 par exemple, essaie la syntaxe suivante :

If Not Intersect(Target, Union([B323], [B355], [B395])) Is Nothing Then

Bonjour,vba-new,

C'est parfait, mais est-ce que les [ ] sont obligatoires ?

En tout cas, ça marche, un tout grand merci.

Amitiés

Pierrot

L'utilisation des crochets est l'autre syntaxe pour déterminer un Range.

Donc : [A1] <=> Range("A1")

J'ai utilisé la notation avec les crochets pour faire plus court.

Mais bien que plus courte, la notation avec les crochets ne permet pas l'utilisation de variable.

Tu ne peux pas faire ["A" & i] alors qu'avec Range tu peux faire Range("A" & i)