Résolu - Intersect syntaxe

[Victor21]

Bonsoir à tous.

J'ai un problème de syntaxe avec cette ligne :

If Not Intersect(Target, [ColUn]) Is Nothing Then

qui fait planter mon code quand plusieurs cellules de ColUn sont sélectionnées simultanément.
... 😡

D'avance, merci

J'ai testé ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   On Error GoTo Worksheet_SelectionChange_Error
   
   If Not Intersect(Target, [ColUn]) Is Nothing And Target.Cells.Count = 1 Then
    Selection.Name = "Un"
    ActiveCell.Offset(0, 1).Name = "Deux"
    ActiveCell.Offset(0, 2).Name = "Trois"
    ActiveCell.Offset(0, 3).Name = "Quatre"
    End If

    If Not Intersect(Target, [ColDeux]) Is Nothing Then
    Selection.Name = "Deux"
    ActiveCell.Offset(0, -1).Name = "Un"
    ActiveCell.Offset(0, 1).Name = "Trois"
    ActiveCell.Offset(0, 2).Name = "Quatre"
    End If
    
    If Not Intersect(Target, [ColTrois]) Is Nothing Then
    Selection.Name = "Trois"
    ActiveCell.Offset(0, -2).Name = "Un"
    ActiveCell.Offset(0, -1).Name = "Deux"
    ActiveCell.Offset(0, 1).Name = "Quatre"
    
    End If

    If Target.Address = [Un] _
       Or Target.Address = [Deux] _
       Or Target.Address = [Trois] _
       Then Application.SendKeys "%{down}"

   On Error GoTo 0
   Exit Sub

Worksheet_SelectionChange_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Worksheet_SelectionChange of Document VBA Feuil2"
End Sub

Et j'ai toujours une error13 incompatibilité de type.
Et je ne sais pas pourquoi ...

 

[Pierrot93]

Re : Intersect syntaxe

Bonjour,

essaye comme ceci :

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [ColUn]) Is Nothing Then

mais sans plus de détails...

bonne journée
@+

 

[Victor21]

Re : Intersect syntaxe

Bonjour, Pierrot93.

Merci, c'est tout bon.

🙂