Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
If AncAdress <> "" Then 'pour 1ère initialisation.
If AncCell <> Range(AncAdress) Then
'La cellule que l'ont vient de quitter a été modifiée.
'Mettre l'action à exécuter.
Stop
End If
End If
AncAdress = Target.Address
AncCell = Target.Value2
End Sub
Autres Astuces dans la catégorie Excel
| 11/07 09h33 | Selection combobox + modification cellule | 3 |
| 28/05 09h25 | [VBA] Détection cellule vide | 6 |
| 14/11 20h39 | Modification du systeme detectee | 0 |
| 17/07 15h35 | Modificatios à partir d'une cellule spécifiqu | 0 |
| 21/02 13h01 | Excel_ modification de cellule | 0 |
![]() | McAfee Rootkit Detective 1,1 - Depuis quelques mois, les 'rootkits' défrayent la chronique dans le domaine de la sécurité informatique. Tous les grands... | Catégorie: Anti-Rootkit Licence: Freeware/gratuit |
![]() | CPU-z - CPU-Z est un logiciel gratuit collectant des informations sur les principaux éléments de l' ordinateur : ... | Catégorie: Diagnostic Licence: Freeware/gratuit |
![]() | Spy Sweeper - Très bon antispyware qui possède, selon son éditeur, la détection de spywares la plus sophistiquée du marché. Tout comme ... | Catégorie: Anti-Spyware Licence: Shareware |
![]() | Inno Setup - Inno Setup est un installeur entièrement gratuit. Il crée des exécutables permettant d'installer les logiciels que vous avez... | Catégorie: Développement Licence: Freeware/gratuit |