Excel : Macro Incrementer une valeur. Résolu/Fermé

Question

Bonjour,

Je souhaite réaliser une macro simple mais je n'y arrive pas. quelqu'un peut il m'aider ?

je voudrais saisir une case (exemple A1) puis en appuyant sur un bouton, 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.

(c'est pour faire une gestion de "stock" très simplifié, avec d'un coté ce qui rentre (A1) d'un autre coté ce qu'il reste au stock (B1) et une troisième case (C1) qui contiendra ce que je consomme.)

Merci d'avance pour votre aide!

Ivan-hoe · Accepted Answer

Salut BB, 
voici quelquechose de très simple. A copier dans le code de la feuille concernée. 
Ca réagit au changement de valeur dans A1, pas besoin de créer un bouton "Valider". 
J'ai ajouté un message de confirmation. 
Si nécessaire, on peut ajouter une vérification que la valeur saisie est bien un nombre (ça bugge quand on saisit une lettre, par exemple). 
A toi de modifier les cellules concernées (ici, saisie en A1 et addition en B1)
A suivre...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Message As String, Valeur As Long

With Target
    If Not .Address(False, False) = "A1" Then Exit Sub
    
    Valeur = .Value
    Message = "Valider la saisie de " & Valeur & " en " & .Address(False, False)
    If MsgBox(Message, vbYesNo) = vbNo Then Exit Sub
    Range("B1").Value = Range("B1").Value + Valeur
    
    Application.EnableEvents = False
    .Value = Empty
    Application.EnableEvents = True

End With
End Sub

Ivan-hoe · Answer

Tu cliques droit sur l'onglet de la feuille concernée, tu choisis Visualiser le code, et c'est là que tu colles. 
Evidemment, ton classeur contiendra donc dorénavant une macro ; à l'ouverture, pour qu'elle puisse être exécutée, il faudra préciser "Activer les macros". 
A suivre...

Ivan-hoe · Answer

Effectivement, c'est ce morceau-là qu'il faut modifier. 
On va remplacer le Exit Sub par GoTo FIN et rajouter l'étiquette FIN comme-ci-dessous. 
Autre petit détail (facultatif) :
si tu veux que le bouton "Non" soit sélectionné par défaut (pour éviter une mauvaise validation d'un utilisateur pressé), tu peux rajouter + vbDefaultButton2 dans les paramètres de la boîte message. 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Message As String, Valeur As Long

With Target
    If Not .Address(False, False) = "A1" Then Exit Sub
    
    Valeur = .Value
    Message = "Valider la saisie de " & Valeur & " en " & .Address(False, False)
    If MsgBox(Message, vbYesNo + vbDefaultButton2) = vbNo Then GoTo FIN
    Range("B1").Value = Range("B1").Value + Valeur
    
FIN:
    Application.EnableEvents = False
    .Value = Empty
    Application.EnableEvents = True

End With
End Sub

Ivan-hoe · Answer

Désolé pour le délai, mais pause déjeuner !!
pour la réponse au message 6 (effacer le contenu de A1 en cas d'annulation), voir le message à 12:00:28, qui n'est pas numéroté (?!). Du coup, est-ce qu'il t'apparaît bien ? sinon, je te le renvoie. 
I.

Ivan-hoe · Answer

On se croise ! 
Pour le message 7 : 
ta macro est spéciale, c'est une macro évènementielle, c'est-à-dire qui se déclenche suite à un évènement, en l'occurence quand ta feuille (Worksheet) subit une modification (Change). D'où son nom Private Sub Worksheet_Change
Il ne peut pas y en avoir deux ; mais on peut la modifier en ajoutant une condition pour avoir différentes réponses au même évènement. 
Pour les sorties de stock en C1, même principe que pour l'entrée en A1, sauf qu'on soustrait ;
Je me suis permis de rajouter une alerte en cas de stock négatif ; 
La macro devenant un peu plus complexe, j'ai un peu modifié l'ordre des instructions ; j'ai aussi rajouté une gestion des erreurs (on Error GoTo...)
Ce sont des fioritures qui ne sont pas indispensables, mais qui fiabilisent ta procédure. Je ne veux pas non plus t'assommer de détails, c'est toi qui vois ce que tu veux garder. 
A suivre...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERROR
Dim Message As String, Valeur As Long
Application.EnableEvents = False

With Target
    If .Address(False, False) = "A1" Then
        Valeur = .Value
        Message = "Valider la saisie de " & Valeur & " en " & .Address(False, False)
        If MsgBox(Message, vbYesNo + vbDefaultButton2) = vbNo Then GoTo FIN
        Range("B1").Value = Range("B1").Value + Valeur
        
    ElseIf .Address(False, False) = "C1" Then
        Valeur = .Value
        Message = "Valider la saisie de " & Valeur & " en " & .Address(False, False)
        If MsgBox(Message, vbYesNo + vbDefaultButton2) = vbNo Then GoTo FIN
        With Range("B1")
            If .Value < Valeur Then
                Message = "Attention : stock négatif"
                If MsgBox(Message, vbYesNo + vbDefaultButton2) = vbNo Then GoTo FIN
            End If
            .Value = .Value - Valeur
        End With
    End If
    
FIN: .Value = Empty
End With

Application.EnableEvents = True

Exit Sub
ERROR:  MsgBox Err.Description: Resume FIN
End Sub

Ivan-hoe · Answer

Oups ! 
Le programme était mal construit, et quelle qu'était la cellule modifiée, il passait par Target.Value = Empty, ce qui revient à effacer la cellule modifiée. 
J'ai rajouter un Select Case ... End Select pour vraiment restreindre le déclenchement de la procédure aux modifications de A1 et C1. Si nécessaire, tu pourrais compléter cette liste à l'avenir. Dans les autres cas (Case Else), on sort immédiatement de la procédure (Exit Sub).

Je n'ai copié ici que le début de la procédure, après ça ne change pas. 
A suivre...
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERROR
Dim Message As String, Valeur As Long

With Target
    Select Case .Address(False, False)
        Case Is = "A1", "C1"
            GoTo SUITE
        Case Else
            Exit Sub
    End Select
    
SUITE:
    Application.EnableEvents = False

    If .Address(False, False) = "A1" Then
'etc

johnbarley · Answer

Bonjour,
Je voudrais incrémenter automatiquement d'1 la valeur d'une cellule à chaque modification de la cellule voisine : c'est pour avoir automatiquement un numéro séquentiel à chaque édition d'un modèle de bon de commande. Vos échanges ci-dessus répondent en partie à la question, il faudrait juste pouvoir remplacer la saisie manuelle par l'ajout automatique d'1. Pouvez-vous m'aider ?
Mille mercis !!