Discussion :

[artisous43]

Bonjour,
Voici mon problème en VBA.
Je désire exécuter une action seulement si une cellule donnée est la cellule actuellement selectionnée.
Exemple:
SI "A17" est la cellule selectionnée THEN je fais cette action..

Merci d' avance pour votre aide

[Yoyo57]

Bonjour artisous43,

Il faut utiliser une procédure évènementielle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et il faut à l'intérieur de cette cellule faire un test sur la Target :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Target.Address = "$A$17" Then
    ' Ton Code
End If

Bon courage.

[Gorfael]

Salut artisous43 et bienvenue
Clic-droit sur l'onglet>>visualiser le code (ou <F11>)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A17" Then
    'instruction en cas de sélection de A17
End If
End Sub

À chaque nouvelle sélection de la cellule A17 (seule), le code s'activera.
A+

[artisous43]

Merci beaucoup, c' est OK et bravo pour la réactivité....