1 2 3 4 5 6 7 8 9 10
| Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Target représente la cellule active
Dim MaPlage As Range
Set MaPlage = Sheets("Feuil2").Range("A5:A12") 'Affecte à la variable les cellules de A5 à A12
'On vérifie si la cellule active est dans la plage définie,
'Si oui on affecte à la cellule B5 [ou cells(5,2)] la valeur récupérée
'On récupère la valeur en fonction de la ligne de la cellule active (target.row) croisé à la colonne 3, la colonne C
If Not Intersect(MaPlage, Target) Is Nothing Then Sheets("Feuil3").Cells(5, 2) = Sheets("Feuil2").Cells(Target.Row, 3)
End Sub |