Incrémenter...
Résolu
asiggen
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
asiggen Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
asiggen Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite réaliser une macro simple sur excel 2016 mais je n'y arrive pas. quelqu'un peut il m'aider ?
je voudrais saisir une case (exemple A1) puis en appuyant sur Enter, la valeur de A1 s'additionne à la valeur d'une autre case (B1 par exemple) puis A1 s'efface. et autant de fois que je saisie A1 et valide, B1 est incrémenter/décrémenter .
(c'est pour rentrer des heures de travail p. ex. 8h+8h+5h+8h etc, et éviter de calculer à la main puis faire une somme)
Merci d'avance et bonne journée :)))
Je souhaite réaliser une macro simple sur excel 2016 mais je n'y arrive pas. quelqu'un peut il m'aider ?
je voudrais saisir une case (exemple A1) puis en appuyant sur Enter, la valeur de A1 s'additionne à la valeur d'une autre case (B1 par exemple) puis A1 s'efface. et autant de fois que je saisie A1 et valide, B1 est incrémenter/décrémenter .
(c'est pour rentrer des heures de travail p. ex. 8h+8h+5h+8h etc, et éviter de calculer à la main puis faire une somme)
Merci d'avance et bonne journée :)))
2 réponses
Bonjour,
Se mettre sur la feuille concernée faire Alt F11 et coller ce code:
s'incrémente à chaque clic dans A1
Se mettre sur la feuille concernée faire Alt F11 et coller ce code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Range("B1").Value = Range("B1").Value + Range("A1").Value
Range("A1").Value = ""
End If
End Sub
s'incrémente à chaque clic dans A1
comme ceci pour toute la colonne:
pour valider avec Enter, il faut voir du côté des sendkey
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valeur As Integer
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
valeur = Target.Row
Cells(valeur, 2).Value = Cells(valeur, 2).Value + Cells(valeur, 1).Value
Cells(valeur, 1).Value = ""
End If
End Sub
pour valider avec Enter, il faut voir du côté des sendkey
Merci pour votre réponse, ça fonctionne parfaitement.
Est-il possible de valider la plage juste en cliquant Enter (sans revenir sur la cellule)? Et si je veux que ça s'applique à toute une colonne est-ce possible?
A1 > B1
A2> B2
A3> B3
etc....
Merci !!!