Salut
voilà ce que j'avais fait pour le même problème, lors d'un double clic sur la celulle, elle s'incremente de 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim C As Single
C = Target.Value
Cancel = True
If Not Application.Intersect(Target, Union(Range('a1:b2'), Range('c3:d4'))) Is Nothing Then
C = C + 1
End If
End Sub
ya'v
Arghhhhhh je me rends compte une semaine plus tard que j'ai un peu exagérer mes compétences.... je ne l'ai bien evidemment pas fait moi-même, celà m'avait été soufflé par MdF... rendez à César ce qui appartient à César......
Message édité par: ya_v_ka, à: 12/11/2005 14:56