Création petit programme

Version imprimable

14/11/2009, 15h30
boblepelo

Création petit programme

Bonjour,
J'aimerais savoir s'il est possible de créer un petit programme sur VBA Excel qui permettrait de faire la chose suivante :
Lorsque je suis sur la feuille excel, quand je suis sur une cellule spécifique contenant un nombre entier et que je clique sur une touche quelconque sur mon clavier (par exemple sur +), que le programme additionne automatiquement 1 au chiffre déjà présent dans la cellule. Par exemple, la cellule B1 est sélectionnée et contient le nombre 6. Lorsque je clique sur +, le programme additionne 6 et 1 (la cellule contient alors le nombre 7), et ainsi de suite.
Je vous remercie d'avance pour votre aide !

Je ne sais pas l'utilité, ma proposition est la suivante
en B1, tu as un nombre
tu sélectionne B1
tu y écris + (ou -)
tu valide
la nouvelle valeur sera reportée
à mettre dans les événements de la feuille en question

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Public ValIni As Integer
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Application.EnableEvents = False
    Select Case Target.Value
        Case "+": Target.Value = ValIni + 1
        Case "-": Target.Value = ValIni - 1
    End Select
    Application.EnableEvents = True
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$1" Then ValIni = Target.Value
End Sub

14/11/2009, 16h20
boblepelo

Merci

Merci beaucoup, mercatog, c'est exactement ce que je voulais !
Quant à l'utilité, ce serait trop long à expliquer en détails mais ça va me faire gagner pas mal de temps, alors vraiment, merci.

bonjour une autre methode avec onkey changement cellule a1

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Application.OnKey "{107}", "test"
Else
Application.OnKey "{107}"
End If
End Sub

dans un module standard

Code:

1
2
3
Sub Test()
If IsNumeric([a1]) And [a1] - Int([a1]) = 0 Then [a1] = [a1] + 1
End Sub

Encore un petit truc...

Bonjour, comment modifier le code suivant, afin de pouvoir le généraliser à toutes les cellules comprises entre C1 et K38, et pas seulement à B1 ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Public ValIni As Integer
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    Application.EnableEvents = False
    Select Case Target.Value
        Case "+": Target.Value = ValIni + 1
        Case "-": Target.Value = ValIni - 1
    End Select
    Application.EnableEvents = True
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$1" Then ValIni = Target.Value
End Sub

Merci infiniment !

re , je vais me permettre de repondre a la place de mon ami mercatog vu qu'il est pas la.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Public ValIni As Integer
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c1:k38")) Is Nothing Then
    Application.EnableEvents = False
    Select Case Target.Value
        Case "+": Target.Value = ValIni + 1
        Case "-": Target.Value = ValIni - 1
    End Select
    Application.EnableEvents = True
End If
End Sub
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c1:k38")) Is Nothing Then ValIni = Target.Value
End Sub

14/11/2009, 18h45
boblepelo

Merci

Merci à vous, c'est vraiment sympa !:ccool: