Macro qui s'execute automatiquement!

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

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, 16h54

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, 16h55

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, 17h00

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, 17h07

Merci!
Je vais essayer de ce pas!

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

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, 20h12

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

**Boonichou** · 27/07/2007, 22h14

C'est génial! Ca marche!

Merci beaucoup pour ton aide!

Une dernière question:
Que signifie exactement cette boucle?

Code :

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

1
2
3
4
5
For I = 1 To Len(B)
        If Mid(B, I, 1) <> "$" Then
            A = A + Mid(B, I, 1)
        End If
Next

Merci pour tout!

**Plateforme3** · 28/07/2007, 13h34

Bonjour en fait elle peut être supprimée car on lit une seule et même cellule
Tu peux remplacer la procédure par le code suivant simplement

Code :

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

1
2
3
4
 
If Target.Adress = "$B$2" Then 'test sur la cellule modifiée
    Range("A25").Value = Range("B2").Value * 10
End If

La valeur Target.adress renvoit une valeur formatée ainsi: $B$2
Pour la rendre utilisable dans un Range, il faut suprimer les $
Donc je lis les caractères de la chaine target.adress un à un et quand ce n'est pas un $ je le transfère dans une autre variable afin d'obtenir "B2"
Slts

**Boonichou** · 28/07/2007, 15h18

Merci, j'ai enfin compris comment ca marchait!

Mais je me rend compte que je suis confronté à un autre problème:

En fait, je voudrais avoir plusieurs target, et dans mon cas, elles sont dépendantes. Je m'explique:
Si je change B15, je veux que B16 change, mais
si je change B16, je veux que B15 change aussi.

J'ai donc mis ce code: (ne pas se préocupper des boucles, c'est rien du tout)

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
 Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim a As Double
 
B15 = Target.Address
 
    a = 33
    Do While Cells(a, 1).Value <> Cells(15, 2).Value
        a = a + 1
    Loop
 
    Range("B16").Value = Range("B" & a).Value
 
B16 = Target.Address
 
    a = 33
    Do While Cells(a, 2).Value <> Cells(16, 2).Value
        a = a + 1
    Loop
 
    Range("B15").Value = Range("A" & a).Value
 
End Sub

Mais quand j'execute la macro, mon programme tourne en boucle, car si je change B15, ca change B16 qui change B15 qui change B16, etc...

Comment faire pour contourner ce problème???

Merci encore!!!

**zazaraignée** · 28/07/2007, 15h55

l'instruction If... Then... ElseIf... Esle... End If, tu connais ?

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
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim a As Double
   ' B15 = Target.Address  ' C'est quoi ça ?
If Target.Address = "B15" Then
   a = 33
  Do While Cells(a, 1).Value <> Cells(15, 2).Value
  a = a + 1
  Loop
   Range("B16").Value = Range("B" & a).Value
   ' B16 = Target.Address
ElseIf Target.Address = "B16" Then
   a = 33
  Do While Cells(a, 2).Value <> Cells(16, 2).Value
  a = a + 1
  Loop
   Range("B15").Value = Range("A" & a).Value 
End If
End Sub

**Boonichou** · 28/07/2007, 16h15

Le problème c'est qu'en utilisant des boucles If, comme

Code :

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

If Target.Address = "B15" Then

il ne se passe plus rien!

(je pense qu'en faisant ca, on ne dit plus à la macro que telle cellule est la cible, on dit seulement que si c'est la cible, alors faire blablabla...)

**Boonichou** · 28/07/2007, 16h26

Je viens d'inserer du code au début du code pour contourner le problème :

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
For i = 15 To 16
    If Range("B" & i).Select Then
    Target.Adress = "B" & i
    End If
Next i
 
If Target.Address = "B15" Then
   a = 33
  Do While Cells(a, 1).Value <> Cells(15, 2).Value
  a = a + 1
  Loop
   Range("B16").Value = Range("B" & a).Value
 
ElseIf Target.Address = "B16" Then
   a = 33
  Do While Cells(a, 2).Value <> Cells(16, 2).Value
  a = a + 1
  Loop
   Range("B15").Value = Range("A" & a).Value
End If