Incrémentation dans VBA

[Luigi]

Bonjour à vous tous,

Je débute depuis peu sur Excel VBA, mon problème est le suivant:
J'ai une macro qui permet d'incrémenter la cellule "A2" à chaque fois que la cellule "A1" change, ci dessous ma macro.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then


i = Range("A1").Value
j = Range("A2").Value

j = j + i


Range("A2") = j
End If
End Sub

Avec cette macro l'incrémentation se réalise correctement quand je change la valeur "A1" manuellement, mais dans mon fichier Excel la valeur "A1" est lié à l'ouverture et à la fermeture d'une vanne, la valeur est 0 ou 1 et elle se change automatiquement en fonction de l'état de la vanne et dans ce mode automatique ma macro ne fonctionne pas, quelqu'un peut-il m'aider pour que l'incrémentation fonctionne en mode automatique. Merci

 

[Guest]

Re : Incrémentation dans VBA

Bonjour Luigi,

A tester, si ça te convient:

Dans le module de code de la feuille:

Option Explicit
Private AncienneValeurA1 As Variant
 
Private Sub Worksheet_Activate()
    'Retenir la valeur de a1 
    AncienneValeurA1 = Range("A1")
End Sub
 
Private Sub Worksheet_Calculate()
    'Si la valeur de A1 a changé on incrément A2
    If Range("A1") <> AncienneValeurA1 Then Range("A2").Value = Range("A2") + 1
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    'Si A1 a changé on retient la valeur
    If Range("A1") <> AncienneValeurA1 Then AncienneValeurA1 = Range("A1")
End Sub

A+

 

[kjin]

Re : Incrémentation dans VBA

Bonsoir,
Essaie peut-être comme ceci

Private Sub Worksheet_Calculate()
[A2] = [A2] + [A1]
End Sub

Ne prend en compte que le changement d'état de A1 (0 ou 1)
A+
kjin

Edit : Oups pas rafraichi à temps; bonsoir Hasco

 

[Guest]

Re : Incrémentation dans VBA

Re Luigi, Kjin,

Bravo Kjin🙂, j'avais pas fait suffisament attention.

A+

 

[Luigi]

Re : Incrémentation dans VBA

merci beaucoup je test dés demain matin sur mon application au travail