Macro qui s'execute automatiquement!

Version imprimable

27/07/2007, 15h49
Boonichou

Macro qui s'execute automatiquement!

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!!
27/07/2007, 15h54
Plateforme3
Bonjour
Pour le lancement automatique, tu vas dans
Code:

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
27/07/2007, 15h55
Azounet1529

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

Code:

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
27/07/2007, 16h00
Plateforme3
J'ai trouvé
Code:

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
27/07/2007, 16h07
Boonichou

Merci!
Je vais essayer de ce pas!
27/07/2007, 18h27
Boonichou
Re Salut!

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

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?

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

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

27/07/2007, 21h14
Boonichou
C'est génial! Ca marche!:D

Merci beaucoup pour ton aide!

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

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!
28/07/2007, 12h34
Plateforme3
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:

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

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:

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!!!

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

Code:

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

28/07/2007, 15h15
Boonichou

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

Code:

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...)

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

Code:

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

mais ca me renvoie l'erreur:
"Object doesn't support this property or method" sur la ligne "Target.Adress = "B" & i"

Arf :?

28/07/2007, 17h24
Plateforme3

Là ça se complique
Car tu pars dans une impasse
En modifiant B15 tu modifie B16 qui renvoie une interuption donc qui remodifie B15...
Slts
28/07/2007, 17h32
Boonichou

Apparemment il y aurait une fonction qui serait utile dans mon cas, mais je sais pas trop bien m'en servir:

Code:

Application.EnableEvents

La connaissez-vous?

Merci
28/07/2007, 17h47
Plateforme3

Ca pourrait en effet être utile
Mettre au début de la procédure:

Code:

Application.EnableEvents=false

Puis terminer la preocédure par:

Code:

Application.EnableEvents=true

J'ai pas testé mais ça doit marcher de ce que j'en ai lu dans l'aide
Slts
28/07/2007, 19h32
Boonichou

Oui!!!!
Ca marche!

Merci encore à tous, vous m'économisez des semaines de réflexion!

:D
28/07/2007, 19h35
Plateforme3

J'étais persuadé de t'avoir répondu à ce sujet, il y a du avoir un bug qq part
Donc, en effet tu mets au début de ta procédure

Code:

Application.EnableEvents=false

et à la fin

Code:

Application.Enableevents=true

J'ai pas testé mais de ce que j'en ai lu dans l'aide, ça doit fonctionner
Slts
PS: la prochaine fois, je regarderais sur la deusième page:mouarf3: