Discussion :

[gregoozz]

Bonjour à tous,

Je viens de m'inscrire sur le forum pour solliciter votre aide. Je suis débutant sur vba, j'ai créé un code qui m'aide dans mon travail mais pour aller encore plus loin j'ai besoin d'un coup de pousse.

Mon code s'exécute à l'ouverture de la feuille excel et dès que la valeur de la cellule AQ1 change. En meme temps grace à valprec je mémorise l'ancienne valeur. Tout comme se qui est proposé dans cette discussion

Maintenant j'ai besoin que mon code s'exécute si AQ1 AQ2 AQ3 ou AQ4 changent, et meme temps il faut que je mémorise les LES VALEURS qui ont changées.
J'ai donc besoin de 4 valprec différentes sur une même feuille, est-ce possible ou faut il utiliser une autre fonction?

Merci d'avance

[Daniel.C]

Bonjour,

J'ai modifié le code en te laissant écrire la macro "macro1" pour laquelle je n'ai pas de billes.
1. dans un module standard, tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public ResAQ1
Public ResAQ2
Public ResAQ3
Public ResAQ4

2. dans "ThisWorkbook, tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    With Feuil1
        ResAQ1 = .[AQ1]
        ResAQ2 = .[AQ2]
        ResAQ3 = .[AQ3]
        ResAQ4 = .[AQ4]
    End With
End Sub

3. Dans le module de la feuille, tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_Calculate()
    Call Verif
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, Range("AQ1,AQ2,AQ3,AQ4")) Is Nothing Then Exit Sub
    Verif Target
End Sub
 
Private Sub Verif(Optional c As Range)
    If c Is Nothing Then
        ResAQ1 = [AQ1]
        ResAQ2 = [AQ2]
        ResAQ3 = [AQ3]
        ResAQ4 = [AQ4]
    Else
        Select Case c.Address(0, 0)
            Case "AQ1": ResAQ1 = Target.Value
            Case "AQ2": ResAQ2 = Target.Value
            Case "AQ3": ResAQ3 = Target.Value
            Case "AQ4": ResAQ4 = Target.Value
        End Select
    End If
    'Macro1
End Sub