Salut Frol,
Ce que tu décris est une procédure évènementielle.
Tu appelles VBA (Alt F11),
Si tu veux que le code s'éxécute pour une feuille en particulier, tu double-cliques sur cette feuille pour faire apparaître sa fenêtre de code. Ensuite, tu déroules la liste où apparaît "Général" pour sélectionner "WorkSheet", puis, dans l'autre liste, tu choisis "SelectionChange" pour obtenir ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Voici un exemple de code éxécuté lors de chaque sélection de la cellule B2 de la feuille :
Code :
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Address = "$B$2" Then
- MsgBox "Coucou, je suis la cellule B2 !"
- End If
- End Sub
|
Si tu veux que le code s'éxécute pour l'ensemble du classeur, tu double-cliques sur l'objet "ThisWorkBook". Ensuite, tu déroules la liste où apparaît "Général" pour sélectionner "WorkBook", puis, dans l'autre liste, tu choisis "SheetSelectionChange" pour obtenir ça :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
Autre exemple de code :
Code :
- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
- If Target.Address = "$B$2" Then
- MsgBox "Salut, je suis la cellule B2 de la feuille " & Sh.Name
- End If
- End Sub
|
Dis-moi si cela fais avancer ton schmilblick.
A+
Horatio
