XL 2010 Récupérer le numéro de colonne au sein d’une plage de cellules

[Magic_Doctor]

Bonjour,

J’ai une plage de cellules de plusieurs lignes et 3 colonnes.
Seule la première colonne de cette plage est nommée.
Quand je clique sur l’une quelconque des cellules de la plage entière, je voudrais récupérer le numéro de la colonne de la plage où se trouve la cellule sur laquelle j’ai cliqué.
Je me suis pris ainsi et ça marche :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, [Col_DMS_Deg2]) Is Nothing Then
        [C6] = Target.Column - [Col_DMS_Deg2].Column + 1
    End If

    If Not Intersect(Target, [Col_DMS_Deg2].Offset(0, 1)) Is Nothing Then
        [C6] = Target.Column - [Col_DMS_Deg2].Column + 1
    End If

    If Not Intersect(Target, [Col_DMS_Deg2].Offset(0, 2)) Is Nothing Then
        [C6] = Target.Column - [Col_DMS_Deg2].Column + 1
    End If

End Sub

Pour faire plus simple, j’ai tenté ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, [Col_DMS_Deg2], [Col_DMS_Deg2].Offset(0, 1), [Col_DMS_Deg2].Offset(0, 2)) Is Nothing Then
        [C6] = Target.Column - [Col_DMS_Deg2].Column + 1
    End If
    
End Sub

Ça ne marche pas et je me demande bien pourquoi.
Si quelqu’un a une explication, merci d’avance.

 

[Dranreb]

Bonsoir.
C'est parce que vous spécifiez des plages verticales disjointes, qui n'ont donc aucune intersection.
Ceci marcherait sans doute mieux :

    If Not Intersect(Target, [Col_DMS_Deg2].Resize(, 3)) Is Nothing Then

 

[Magic_Doctor]

Merci beaucoup Dranreb, ¡funciona!