Connaître, dans une liste de cellules, la position de la cellule sélectionnée

[Magic_Doctor]

Rebonjour,

D'accord, le titre n'est pas très explicite.

J'ai plusieurs cellules qui, quand on y rentre une valeur, déclenchent une macro événementielle qui se présente ainsi :

If Not Application.Intersect(Target, Range("DilNbUXFl1, DilVolS1a, DilNbGrS1a, DilNbUXParGr1a, DilNbUXGet1a")) Is Nothing Then
Application.EnableEvents = False
.
.
.
End If

Comment savoir si, par ex., je rentre une valeur dans la cellule "DilNbGrS1a", c'est la 3ème de la liste ?

 

[mromain]

Re : Connaître, dans une liste de cellules, la position de la cellule sélectionnée

re bonjour Magic_Doctor,

voici un exemple (à adapter) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellAddress As String, tabAddress() As String, i As Integer

If Not Application.Intersect(Target, Range("DilNbUXFl1, DilVolS1a, DilNbGrS1a, DilNbUXParGr1a, DilNbUXGet1a")) Is Nothing Then
    'récupérer la dans un tableau les adresses de la zone Range
    tabAddress = Split(Range("DilNbUXFl1, DilVolS1a, DilNbGrS1a, DilNbUXParGr1a, DilNbUXGet1a").Address, ",")
    'boucler sur chaque cellule
    For i = LBound(tabAddress) To UBound(tabAddress)
        If Target(1, 1).Address = tabAddress(i) Then MsgBox i + 1 & "ème position"
    Next i
End If
End Sub

a+