Private Sub Worksheet_Change(ByVal Target As Range)

[Goufra]

Bonjour à vous,

j'ai ce code dans la feuil1
Private Sub Worksheet_Change(ByVal Target As Range)

J'ai donc crée un bouton dans la feuil1 avec ce code :

Private Sub CommandButton1_Click()
Call Worksheet_Change
End Sub

j'obtiens avec ou sans "call" :
"Erreur de compiltaion argument non facultatif"


Je suis navré de vous poser ce type de question, mais comment fait-on pour lancer sub worksheet_change ?

Cordialement

 

[JNP]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Bonjour Goufra 🙂,
Private Sub Worksheet_Change(ByVal Target As Range) est ce qu'on appelle une événementielle, donc elle se lance toute seule à chaque fois qu'une (plusieurs) cellule(s) est (sont) modifiée(s) (physiquement, parce qu'un calcul ne sera pas considéré comme une modification) et renvoie cette (ces) cellule(s) avec Target.
Tu ne peux donc pas lancer cette macro depuis une autre.
Bon courage 😎

 

[Pierrot93]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Bonjour Goufra, JNP

on peut éventuellement lancer une procédure événementielle à partir d'une autre procédure à condition de lui envoyer les arguments attendus, en l'occurence un objet "range" pour une procédure "Worksheet_Change" :

Private Sub CommandButton1_Click()
Call Worksheet_Change(Range("A1"))
End Sub

bon après midi
@+

 

[JNP]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Re 🙂,
Oui Pierrot, à condition aussi, bien sûr, d'être dans le même module de feuille.
Effectivement, je ne pensais pas que ça pouvait marcher. D'un autre côté, c'est un détournement bien particulier de l'événementielle, car pourquoi ne pas utiliser une Sub normale dans ces cas-là, mais pourquoi pas 😛...
Bonne journée 😎

 

[Pierrot93]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Bonjour JNP,

Pas forcement dans le même module, il suffit que la procédure appelée soit publique, et cela devrait fonctionner me semble t il...

bonne journée
@+

 

[JNP]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Re 🙂,
Depuis un autre module, il me donne une Sub non définie, même en passant la Sub publique...
D'un autre côté, c'est un peu logique, vu que tu peux avoir ce type de Sub dans chaque feuille, et alors, laquelle choisir 😛...
Bonne journée 😎

 

[Pierrot93]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Re,

ceci fonctionne chez moi, dans un module standard :

Option Explicit
Private Sub test()
Call Feuil1.Worksheet_SelectionChange(Feuil1.Range("A1"))
End Sub

dans le module de la feuille (codename = Feuil1) :

Option Explicit
Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Value
End Sub

@+

 

[JNP]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Re 🙂,
Effectivement, je n'avais pas précisé le code name...
Eh bien, espéront que notre amis a toutes les réponses qu'il souhaitait 😉.
Bonne après-midi 😎