M
MacPhil
Guest
Bonjour,
Voici une petit macro :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim r1 As Range
Set r1 = Range("E10")
MsgBox r1
If ActiveCell.Address = r1 Then
'
'Ici un calcul avec Macro.
'
End If
End Sub
Le problème est simple, le code s'exacute à chaque fois que l'on se déplace dans la feuille de calcul active. Ce que je voudrais, c'est dès que l'on arrive sur la cellule E10, par exemple la macro qui se trouve dans la boucle qui teste s'exécute. Le MsgBox devrait me renvoyer "E10" quand je me déplace d'une cellule vers une autre ( c'est juste pour le test ) mais il est vide. Ou est l'erreur ?
Merci d'avance, salutations distinguées à tous !
Voici une petit macro :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim r1 As Range
Set r1 = Range("E10")
MsgBox r1
If ActiveCell.Address = r1 Then
'
'Ici un calcul avec Macro.
'
End If
End Sub
Le problème est simple, le code s'exacute à chaque fois que l'on se déplace dans la feuille de calcul active. Ce que je voudrais, c'est dès que l'on arrive sur la cellule E10, par exemple la macro qui se trouve dans la boucle qui teste s'exécute. Le MsgBox devrait me renvoyer "E10" quand je me déplace d'une cellule vers une autre ( c'est juste pour le test ) mais il est vide. Ou est l'erreur ?
Merci d'avance, salutations distinguées à tous !