Magic_Doctor
XLDnaute Barbatruc
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 :
Pour faire plus simple, j’ai tenté ceci :
Ça ne marche pas et je me demande bien pourquoi.
Si quelqu’un a une explication, merci d’avance.
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 :
VB:
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
VB:
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 SubSi quelqu’un a une explication, merci d’avance.