affecter l"évenement Workbook_SheetChange sur un bouton
11 réponses
ALF
Bonjour,
comment faut il s'y prendre pour affecter un evenement
Workbook_SheetChange(byval sh as object, byval target as range) sur un bouton
???
Ceci afin de synchroniser le choix de 2 listes deroulantes(Target B5 ET
Target B14 d'un onglet sur les 2 Autres listes deroulantes des autres
onglets..
Voici l'ebauche de la macro affecté au bouton mais cela ne fonctionne pas..
Sub Bouton16_QuandClick()
Private Sub Workbook_SheetChange(ByVal Sh As Object,ByVal Target As Range)
Select Case sh.Name
Case Is = "Impayés Internet", "Procédures Collectives", "Surendettement",
"Crédit Management"
Case Else
If Target.Address <> "$B$5" Then Exit Sub
If Target.Address <> "$B$14" Then Exit Sub
If Target = "" Then Exit Sub
Worksheets("Impayés Internet").Range(Target.Address).Value = Target.Value
Worksheets("Procédures Collectives").Range(Target.Address).Value =
Target.Value
Worksheets("Surendettement").Range(Target.Address).Value = Target.Value
Worksheets("Crédit Management").Range(Target.Address).Value = Target.Value
End Select
End Sub
re, je te laisse ci joint mon fichierqui pose probleme pour synchro feuilles... j'ajoute que j'ai teste ton fichier sur excel 2000 et il ne fonctionne pas apparemment comme sur mon fichier... une question? Une fois le choix effectué,il y a peut etre une manip a faire ou la mise a jour se fait automatiquement ???? MERCI @+ http://cjoint.com/?lbwbaSO0zl -- ALF
"JB" wrote:
Bonsoir,
Je travaille en 2003. Je ne comprends pas pourquoi la synhro sur le changement de feuille ne fonctionne pas. Je viens de tester la PJ que j'ai envoyé et cela fonctionne sur mon poste.
JB
Bonsoir,JB
Sub Synchro fonctionne mais par contre ce n'est pas le cas de Synchro feuilles... j'ai saisi la procedure sur "thisWorkbook" et sur l'evenement Worbook_SheetChange ..il n'y a aucun message suite au choix dans la liste deroulante mais la mise a jour ne se fait pas dans les autres onglets... j'ai essayé d'enlever Application.EnableEvents = False et Application.EnableEvents = True mais meme resultat... je suis en excel 2000(sur mon domicile) ,je ne l'ai pas encore essaye sur excel 2003 a mon travail... Merci de ton soutien -- ALF
Dans un module:
Sub synchro() mois = [B5] indic = [B14] For Each s In Array("AVIGNON", "MARSEILLE", "TOULON") Sheets(s).[B5] = mois Sheets(s).[B14] = indic Next s End Sub
JB
Bonjour, comment faut il s'y prendre pour affecter un evenement Workbook_SheetChange(byval sh as object, byval target as range) sur un bouton ??? Ceci afin de synchroniser le choix de 2 listes deroulantes(Target B5 ET Target B14 d'un onglet sur les 2 Autres listes deroulantes des autres onglets..
Voici l'ebauche de la macro affecté au bouton mais cela ne fonctionne pas..
Sub Bouton16_QuandClick()
Private Sub Workbook_SheetChange(ByVal Sh As Object,ByVal Target As Range) Select Case sh.Name Case Is = "Impayés Internet", "Procédures Collectives", "Surendettement", "Crédit Management" Case Else If Target.Address <> "$B$5" Then Exit Sub If Target.Address <> "$B$14" Then Exit Sub If Target = "" Then Exit Sub Worksheets("Impayés Internet").Range(Target.Address).Value = Target.Value Worksheets("Procédures Collectives").Range(Target.Address).Value > > > > Target.Value Worksheets("Surendettement").Range(Target.Address).Value = Target.Value Worksheets("Crédit Management").Range(Target.Address).Value = Target.Value End Select End Sub
End Sub
Merci de votre soutien. -- ALF
re,
je te laisse ci joint mon fichierqui pose probleme pour synchro feuilles...
j'ajoute que j'ai teste ton fichier sur excel 2000 et il ne fonctionne pas
apparemment comme sur mon fichier...
une question? Une fois le choix effectué,il y a peut etre une manip a faire
ou la mise a jour se fait automatiquement ????
MERCI
@+
http://cjoint.com/?lbwbaSO0zl
--
ALF
"JB" wrote:
Bonsoir,
Je travaille en 2003. Je ne comprends pas pourquoi la synhro sur le
changement de feuille ne fonctionne pas.
Je viens de tester la PJ que j'ai envoyé et cela fonctionne sur mon
poste.
JB
Bonsoir,JB
Sub Synchro fonctionne mais par contre ce n'est pas le cas de Synchro
feuilles...
j'ai saisi la procedure sur "thisWorkbook" et sur l'evenement
Worbook_SheetChange ..il n'y a aucun message suite au choix dans la liste
deroulante mais la mise a jour ne se fait pas dans les autres onglets...
j'ai essayé d'enlever Application.EnableEvents = False et
Application.EnableEvents = True mais meme resultat...
je suis en excel 2000(sur mon domicile) ,je ne l'ai pas encore essaye sur
excel 2003 a mon travail...
Merci de ton soutien
--
ALF
Dans un module:
Sub synchro()
mois = [B5]
indic = [B14]
For Each s In Array("AVIGNON", "MARSEILLE", "TOULON")
Sheets(s).[B5] = mois
Sheets(s).[B14] = indic
Next s
End Sub
JB
Bonjour,
comment faut il s'y prendre pour affecter un evenement
Workbook_SheetChange(byval sh as object, byval target as range) sur un bouton
???
Ceci afin de synchroniser le choix de 2 listes deroulantes(Target B5 ET
Target B14 d'un onglet sur les 2 Autres listes deroulantes des autres
onglets..
Voici l'ebauche de la macro affecté au bouton mais cela ne fonctionne pas..
Sub Bouton16_QuandClick()
Private Sub Workbook_SheetChange(ByVal Sh As Object,ByVal Target As Range)
Select Case sh.Name
Case Is = "Impayés Internet", "Procédures Collectives", "Surendettement",
"Crédit Management"
Case Else
If Target.Address <> "$B$5" Then Exit Sub
If Target.Address <> "$B$14" Then Exit Sub
If Target = "" Then Exit Sub
Worksheets("Impayés Internet").Range(Target.Address).Value = Target.Value
Worksheets("Procédures Collectives").Range(Target.Address).Value > > > > Target.Value
Worksheets("Surendettement").Range(Target.Address).Value = Target.Value
Worksheets("Crédit Management").Range(Target.Address).Value = Target.Value
End Select
End Sub
re, je te laisse ci joint mon fichierqui pose probleme pour synchro feuilles... j'ajoute que j'ai teste ton fichier sur excel 2000 et il ne fonctionne pas apparemment comme sur mon fichier... une question? Une fois le choix effectué,il y a peut etre une manip a faire ou la mise a jour se fait automatiquement ???? MERCI @+ http://cjoint.com/?lbwbaSO0zl -- ALF
"JB" wrote:
Bonsoir,
Je travaille en 2003. Je ne comprends pas pourquoi la synhro sur le changement de feuille ne fonctionne pas. Je viens de tester la PJ que j'ai envoyé et cela fonctionne sur mon poste.
JB
Bonsoir,JB
Sub Synchro fonctionne mais par contre ce n'est pas le cas de Synchro feuilles... j'ai saisi la procedure sur "thisWorkbook" et sur l'evenement Worbook_SheetChange ..il n'y a aucun message suite au choix dans la liste deroulante mais la mise a jour ne se fait pas dans les autres onglets... j'ai essayé d'enlever Application.EnableEvents = False et Application.EnableEvents = True mais meme resultat... je suis en excel 2000(sur mon domicile) ,je ne l'ai pas encore essaye sur excel 2003 a mon travail... Merci de ton soutien -- ALF
Dans un module:
Sub synchro() mois = [B5] indic = [B14] For Each s In Array("AVIGNON", "MARSEILLE", "TOULON") Sheets(s).[B5] = mois Sheets(s).[B14] = indic Next s End Sub
JB
Bonjour, comment faut il s'y prendre pour affecter un evenement Workbook_SheetChange(byval sh as object, byval target as range) sur un bouton ??? Ceci afin de synchroniser le choix de 2 listes deroulantes(Target B5 ET Target B14 d'un onglet sur les 2 Autres listes deroulantes des autres onglets..
Voici l'ebauche de la macro affecté au bouton mais cela ne fonctionne pas..
Sub Bouton16_QuandClick()
Private Sub Workbook_SheetChange(ByVal Sh As Object,ByVal Target As Range) Select Case sh.Name Case Is = "Impayés Internet", "Procédures Collectives", "Surendettement", "Crédit Management" Case Else If Target.Address <> "$B$5" Then Exit Sub If Target.Address <> "$B$14" Then Exit Sub If Target = "" Then Exit Sub Worksheets("Impayés Internet").Range(Target.Address).Value = Target.Value Worksheets("Procédures Collectives").Range(Target.Address).Value > > > > Target.Value Worksheets("Surendettement").Range(Target.Address).Value = Target.Value Worksheets("Crédit Management").Range(Target.Address).Value = Target.Value End Select End Sub
