Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
J
Bonjour Il y a sûrement plus simple et plus élégant, mais les pros dorment ... Une procédure évènementielle. (dans le module de la feuille)
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column <> 1 And Target.Row <> 1 _ Or Target.Count > 1 Then Exit Sub Call Tamacro End Sub
Bon courage J@@
Bonjour à tous,
j'aimerais lancer une macro chaque fois que la valeur de A1 change. Avec "Worksheet_Calculate" ça se met en "route" beaucoup trop souvent...
Comment lui dire de lancer la macro uniquement quand A1 change ?
Merci d'avance à qui me mettra sur la voie.
JAc
Bonjour
Il y a sûrement plus simple et plus élégant, mais les pros dorment ...
Une procédure évènementielle. (dans le module de la feuille)
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 And Target.Row <> 1 _
Or Target.Count > 1 Then Exit Sub
Call Tamacro
End Sub
Bon courage
J@@
Bonjour à tous,
j'aimerais lancer une macro chaque fois que la valeur de A1 change.
Avec "Worksheet_Calculate" ça se met en "route" beaucoup trop souvent...
Comment lui dire de lancer la macro uniquement quand A1 change ?
Bonjour Il y a sûrement plus simple et plus élégant, mais les pros dorment ... Une procédure évènementielle. (dans le module de la feuille)
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column <> 1 And Target.Row <> 1 _ Or Target.Count > 1 Then Exit Sub Call Tamacro End Sub
Bon courage J@@
Bonjour à tous,
j'aimerais lancer une macro chaque fois que la valeur de A1 change. Avec "Worksheet_Calculate" ça se met en "route" beaucoup trop souvent...
Comment lui dire de lancer la macro uniquement quand A1 change ?
Merci d'avance à qui me mettra sur la voie.
JAc
Excel...lent
Salut Jac,
Essaie plutot l'évenement "Change". Comme cela :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then MsgBox "ok" End If End Sub
Tu remplaceras juste la ligne de code MsgBox"ok" par application.run"TaMacro"
Cordialement
Excel...lent
N'hésitez pas à visiter ces mines d'or ! ! ! http://www.excelabo.net/ http://xlwiki.free.fr/wiki/wakka.php?wiki=PageAccueil http://frederic.sigonneau.free.fr/ http://dj.joss.free.fr/ http://www.cathyastuce.com/excel.htm http://jacxl.free.fr/cours_xl/cadres.html?ex http://www.dualforum.com/ http://www.excel-downloads.com/forum/forum-excel/ http://boisgontierjacques.free.fr/
Salut Jac,
Essaie plutot l'évenement "Change".
Comme cela :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "ok"
End If
End Sub
Tu remplaceras juste la ligne de code
MsgBox"ok"
par
application.run"TaMacro"
Cordialement
Excel...lent
N'hésitez pas à visiter ces mines d'or ! ! !
http://www.excelabo.net/
http://xlwiki.free.fr/wiki/wakka.php?wiki=PageAccueil
http://frederic.sigonneau.free.fr/
http://dj.joss.free.fr/
http://www.cathyastuce.com/excel.htm
http://jacxl.free.fr/cours_xl/cadres.html?ex http://www.dualforum.com/
http://www.excel-downloads.com/forum/forum-excel/
http://boisgontierjacques.free.fr/
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then MsgBox "ok" End If End Sub
Tu remplaceras juste la ligne de code MsgBox"ok" par application.run"TaMacro"
Cordialement
Excel...lent
N'hésitez pas à visiter ces mines d'or ! ! ! http://www.excelabo.net/ http://xlwiki.free.fr/wiki/wakka.php?wiki=PageAccueil http://frederic.sigonneau.free.fr/ http://dj.joss.free.fr/ http://www.cathyastuce.com/excel.htm http://jacxl.free.fr/cours_xl/cadres.html?ex http://www.dualforum.com/ http://www.excel-downloads.com/forum/forum-excel/ http://boisgontierjacques.free.fr/
Jac
Re-merci à vous deux...
... pour moi, Worksheet_Change devait plutôt s'activer sur un changement de feuille... Donc ce n'est pas sur un changement de feuille, mais un changement dans la feuille qur tout se déclenche... Il y a toujours quelques subtilités qui ne demandent qu'à être mises en évidence.
Jac
Re-merci à vous deux...
... pour moi, Worksheet_Change devait plutôt s'activer sur un
changement de feuille... Donc ce n'est pas sur un changement de
feuille, mais un changement dans la feuille qur tout se déclenche...
Il y a toujours quelques subtilités qui ne demandent qu'à être mises en
évidence.
... pour moi, Worksheet_Change devait plutôt s'activer sur un changement de feuille... Donc ce n'est pas sur un changement de feuille, mais un changement dans la feuille qur tout se déclenche... Il y a toujours quelques subtilités qui ne demandent qu'à être mises en évidence.
Jac
Excel...lent
Salut Jac, merci du retour. Pour le changement de feuille ceux sont les évenements :
Private Sub Worksheet_Activate() Private Sub Worksheet_Deactivate()
Tout dépend si tu veux que cela se passe lorsque tu quittes ta feuille ou si tu la sélectionnes.
Cordialement
Excel...lent
N'hésitez pas à visiter ces mines d'or ! ! ! http://www.excelabo.net/ http://xlwiki.free.fr/wiki/wakka.php?wiki=PageAccueil http://frederic.sigonneau.free.fr/ http://dj.joss.free.fr/ http://www.cathyastuce.com/excel.htm http://jacxl.free.fr/cours_xl/cadres.html?ex http://www.dualforum.com/ http://www.excel-downloads.com/forum/forum-excel/ http://boisgontierjacques.free.fr/
Salut Jac,
merci du retour.
Pour le changement de feuille ceux sont les évenements :
Private Sub Worksheet_Activate()
Private Sub Worksheet_Deactivate()
Tout dépend si tu veux que cela se passe lorsque tu quittes ta feuille ou si
tu la sélectionnes.
Cordialement
Excel...lent
N'hésitez pas à visiter ces mines d'or ! ! !
http://www.excelabo.net/
http://xlwiki.free.fr/wiki/wakka.php?wiki=PageAccueil
http://frederic.sigonneau.free.fr/
http://dj.joss.free.fr/
http://www.cathyastuce.com/excel.htm
http://jacxl.free.fr/cours_xl/cadres.html?ex http://www.dualforum.com/
http://www.excel-downloads.com/forum/forum-excel/
http://boisgontierjacques.free.fr/
