|
Cette procédure permet d'incrémenter un compteur à chaque clic de souris sur une cellule... Pour cet exemple, le principe est paramétré sur deux plages ... Une plage nommée "Plus" et l'autre "Moins" sur la feuille1 du classeur... 
Lors de chaque clic dans une zone Plus ou Moins, le compteur s'incrémente ainsi (de + ou - 1) dans la colonne Compteur Procédure à coller dans un module de feuille 
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Ti
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Plus")) Is Nothing Then
With .Offset(0, 2)
.Value = .Value + 1
.Select
End With
ElseIf Not Intersect(Target, Range("Moins")) Is Nothing Then
With .Offset(0, 1)
.Value = .Value - 1
.Select
End With
End If
End With
End Sub
Date de création : 24/05/2005 - 19:09
Dernière modification : 25/05/2005 - 22:17
Catégorie : Evènements
Page lue 5117 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 29
Haut 
