Discussion :

[jalseth]

Salut la compagnie

Voila je souhaite lancer une macro quand il y une modification d'une cellule bien précise dans la feuille...

J'ai tenté de faire ceci:

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_Calculate(Target As Range)
    If Not Application.Intersect(Target, Range("I124")) Is Nothing Then
        Call pricebase
    End If
    If Not Application.Intersect(Target, Range("I151")) Is Nothing Then
        Call pricebase
    End If
    If Not Application.Intersect(Target, Range("I177")) Is Nothing Then
        Call pricebase
    End If
    If Not Application.Intersect(Target, Range("I203")) Is Nothing Then
        Call pricebase
    End If
    If Not Application.Intersect(Target, Range("I229")) Is Nothing Then
        Call pricebase
    End If
 
End Sub

J'ai copié la technique du Worksheet_change maisvisiblement cela ne fonctionne pas puisqu'il me dit que la déclaration del a procédure ne correspond pas!

En fait, je veux pas qui exécute la macro pour tout changement, je veux juste pour les cellule présente dans mon code. dans le cas contraire, l'exécution de la macro pourrait être trop longue pour la feuille et pourrait même provoquer des erreurs

Merci de vos réponses

[casefayere]

Bonjour,
je viens de recopier ton et j'ai fais ca, adaptes le

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)
    If Not Application.Intersect(Target, Range("I1")) Is Nothing Then
        MsgBox "ok"
    ElseIf Not Application.Intersect(Target, Range("I2")) Is Nothing Then
        MsgBox "ok"
    ElseIf Not Application.Intersect(Target, Range("I3")) Is Nothing Then
        MsgBox "ok"
    ElseIf Not Application.Intersect(Target, Range("I4")) Is Nothing Then
        MsgBox "ok"
    ElseIf Not Application.Intersect(Target, Range("I5")) Is Nothing Then
        MsgBox "ok"
    End If
 
End Sub

[jalseth]

Merci pour ta rapidité

En fait, j'avais déjà tenté d'utiliser Worsheet_Change mais cela ne fonctionne pas.

IL n'y a pas d'erreur, mais il ne se passe rien!

J'ai tenté ta version et comme je le pensais, cela ne fait rien

[J.Michel]

Place un

Code :

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

MsgBox "Coucou"

au tout début de ta procédure pour voir si elle se déclenche bien (ou utilise les points d'arrêts)

Si elle ne se déclenche pas, vérifie le niveau de sécurité des macro sur ton Excel

[fring]

Le Target n'est pas d'application avec l'événement Calculate vu que c'est suite à une modification dans une autre cellule (celle qui a le Target) que la valeur de la cellule visée change.

[jalseth]

Justement le problème est bien là!

Quand j'utilise le _change et que je m'arrange pour que la valeur change, rien ne se lance. Il n'est pas capable de déceler le changement de valeur...

Le _calculate étant trop global, je sais pas quoi faire. Il faudrait cibler le _calculate sur les cellules concernées, j'ai tenté un peu mais je trouve pas

En revanche, je sui sen macro faible donc pas de soucis de ce côté là

EDIT: Nos post se sont croisés...
En effet, je ne pense pas qu'il soit possible d'utiliser un Target avec _calculate... Mais comment faire donc :-(

[fring]

Jette un oeil sur cette discution

http://www.developpez.net/forums/sho...d.php?t=584690
.

[casefayere]

Je ne voudrais pas insister avec ce que j'ai proposé (parce que pour moi ça marchait) mais le problème ne vient t'il pas de la procédure appelée "Call pricebase"

[jalseth]

Merci ça marche

J'avais effectivement pensé à faire un test de ce genre qui compare une ancienne valeur mais je me suis dis qu'il devait y avoir une solution plus "jolie"...

Le principal c'est que cela fonctionne et désolé de ne pas avoir vu le post qui traitait de ce sujet