Macro qui s'execute automatiquement!

**Boonichou** · 27/07/2007, 15h49

Bonjour!

Je voudrais savoir s'il est possible de réaliser une macro qui :
1) S'ouvre en même temps que la feuille excel,
2) Se lance automatiquement lorsque l'utilisateur change la valeur d'une cellule précise.

Exemple (très simple, dans ma macro c'est pas ca!):
A5 = A3 + A6
Si je change la formule de A6 alors automatiquement la valeur de A5 aussi change.

Merci!!

**Plateforme3** · 27/07/2007, 15h54

Bonjour
Pour le lancement automatique, tu vas dans

Code :

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

1
2
3
Private Sub Workbook_Open()
 
End Sub

Et tu place soit ton code soit un appel de ta procédure
Pour la deuxième question... j'ai pas de réponse
Slts

**Azounet1529** · 27/07/2007, 15h55

Pour une macro qui s'ouvre en même temps que le fichier, glisse dans l'onglet "thisworkbook" de l'éditeur VbA avec

Code :

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

private sub Workbook_Open()

Et pour l'autre jette un oeil sur les évènements de la feuille de calcul dans les tuto ya ce qu'il faut je crois

Workbook_SheetCalculate

un truc comme çà

Az

**Plateforme3** · 27/07/2007, 16h00

J'ai trouvé

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
A = Target.Address
End Sub

Dans A tu récupère l'adresse de la cellule modifiée
Slts

**Boonichou** · 27/07/2007, 16h07

Merci!
Je vais essayer de ce pas!

**Boonichou** · 27/07/2007, 18h27

Re Salut!

J'ai mis ce code dans "this Workbook" , mais rien ne se passe!
-----------------------------

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(20, 2) = Target.Address
Range("A25").Value = Target.Value * 10
End Sub

----------------------------
Normalement, avec un code comme ca, la cellule A25 devrait m'afficher 10 fois la cellule B20 quand je change sa valeur, non?

Qu'est ce que je n'ai pas compris?

**Plateforme3** · 27/07/2007, 19h12

Re bonjour
C'est pas dans This Workbook mais dans le code de ta feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As String
Dim B As String
B = Target.Address
If B = "$B$2" Then 'test sur la cellule modifiée
    'suppression des $
    For I = 1 To Len(B)
        If Mid(B, I, 1) <> "$" Then
            A = A + Mid(B, I, 1)
        End If
    Next
    Range("A25").Value = Range(A).Value * 10
End If
End Sub

De plus, il faut vérifier que tu as bien modifié la cellule voulue car la ligne "Range("A25").Value = Range(A).Value * 10" modifiant à nouveau la feuille, le processus recommence
Slts