Discussion :

[mjanbar]

Bonjour,

je dispose d'une cellule xls dont le contenu change (connexion avec un système d'info spécialisé). Il s'agit d'une date qui change quotidennement, je désire qu'à chaque fois que la date est actualisée, une macro s'exacute automatiquement.

J'ai essayé l'évenement change et change selection dans la feuille worksheet mais il faut que dans ce cas, la cellule changeante soit pointée pour que la macro s'execute.

Merci de vos éclaircissements

[alsimbad]

sans certitude, tu peux essayer quand_calculate

[mjanbar]

c'est quoi quand_calculate et comment faire exactement ?

[alsimbad]

evenementielle comme quand_change

Code :

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

1
2
3
 
Private Sub Worksheet_Calculate()
End Sub

[Bigalo]

Bonsoir,

L'événement Change devrait convenir parfaitement.

Si tu veux que le traitement soit lancé uniquement quand la cellule qui t’intéresse (A10 par hypothèse) est modifiée :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("A10")) Is Nothing Then
            ' Ici ton traitement
        End If
End Sub

Cordialement,

Michel Gaboly

[mjanbar]

J'ai essayé ce code mais malheureusement ça n'a pas marché :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("A10")) Is Nothing Then
            MsgBox "OK"
            ' Ici ton traitement
        End If
End Sub

[Bigalo]

Qu’entends-tu par cela n’a pas marché ?

As-tu bien mis le code dans le module de la feuille concernée ?

Dans mon exemple de code, le traitement (ici le MsgBox "OK" que tu as rajouté), ne se déclenche que si la cellule A10 est modifiée. Rien ne se passe dans le cas contraire. J'ai vu que tu n’as pas adapté la référence de mon exemple de code. As-tu modifié la cellule qui t’intéresse (j’ignore de laquelle il s’agit) ou la cellule A10, qui est la seule à provoquer l’affichage du message ?

N’hésite pas à apporter des précisions si tu ne t’en sors pas.

Cordialement,

Michel Gaboly

[alsimbad]

je pense que mjanbar a raison, ça ne marche pas puisque la cellule a10 est le résultat d'un calcul
supposons a10 la cible
b1 sur la meme feuille et a1 en feuille 2
formule en b10 = =Feuil2!A1
et la formule en feuille2 A1 est =45+Feuil1!B1
donc si je change en b1 de la feuille 1 je change a10 sans que la target soit a10
j'utilise donc

Code :

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

1
2
3
4
5
6
7
8
 
Public valeur
Private Sub Worksheet_Calculate()
If Not valeur = Range("a10").Value Then MsgBox "ok"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
valeur = Range("a10").Value
End Sub

maintenant ça c'est pour une liaison, je ne sais pas ce que ça donne pour un "connexion avec un système d'info spécialisé", a toi de nous dire

[Bigalo]

Bonjour,

Si l’événement Change n’est pas déclenché, parce que la valeur modifiée résulte d’un calcul, j’aurais tendance à stocker la valeur de "A10" avant recalcul, en utilisant un nom caché, pour éviter que l’utilisateur ne le modifie ou ne le détruise.

L’intérêt d’un nom est qu’on peut quitter Excel et réouvrir le classeur, sans que le système ne cesse d’être fonctionnel.

Pour initialiser le système, procédure à placer dans un module standard, à lancer une fois :

Code :

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

1
2
3
Sub ValRef()
    ActiveSheet.Names.Add "Réf", Range("A10").Value, False
End Sub

Puis dans le module de la feuille :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Calculate()
    If Range("A10") <> Evaluate("Réf") Then
        MsgBox Evaluate("Réf") ' A remplacer par le traitement adéquat
        Me.Names.Add "Réf", Range("A10").Value, False
    End If
End Sub

Cordialement,

Michel Gaboly