Exécuter module au démarage

[RONIBO]

Bonjour,

Je souhaite exécuter un module vba au démarrage

Voici le code que j'aimerais exécuter au démarrage

Sub CompteBancaire()
ActiveSheet.Unprotect
Range("I4:I13,I15:I21").Select
Range("I15").Activate
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Qu'est ce que je dois rajouter?

merci

 

[phlaurent55]

Re : Exécuter module au démarage

Bonjour ROnibo,

il suffit de mettre le code dans ThisWorkbook

Private Sub Workbook_Open()
ActiveSheet.Unprotect
Range("I4:I13,I15:I21").Select
Range("I15").Activate
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

à+
Philippe

 

[Lean]

Re : Exécuter module au démarage

Bonjour,

Parmi d'autres solutions, celle-ci :
Remplacer : Sub CompteBancaire()
Par : Sub auto_open()

Sinon...

Private Sub Workbook_Open()
"ici le code
End Sub

(Sous reserve d'activer la bonne feuille au démarrage)

 

[RONIBO]

Re : Exécuter module au démarage

Bonsoir phlaurent55

Merci pour ta réponse qui fonctionne parfaitement 😉

Une autre question :

Comment je fais pour exécuter un module pour la feuil2 au démarrage?

Marci

 

[Lean]

Re : Exécuter module au démarage

De rien ! 😡

 

[RONIBO]

Re : Exécuter module au démarage

Lean,

J'ai pas vu ton poste, merci à toi aussi 😉

a+

 

[RONIBO]

Re : Exécuter module au démarage

Re,

Voici s'que j'aimerais exécuter au démarage :

Feuil1 (Compte Bancaire)
Private Sub Workbook_Open()
ActiveSheet.Unprotect
Range("I4:I13,I15:I21").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Range("C1:J1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Feuil2 (Locataire)
Private Sub Workbook_Open()
ActiveSheet.Unprotect
Range("H5:H32").Select
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Range("I5:I32").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Range("B1:J1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Feuil6 (Gestion Clients)
Private Sub Workbook_Open()
ActiveSheet.Unprotect
Range("C306:E306").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Selection.Font.Bold = True
Range("B1:E1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Je suis obligé de créer ces macro suite au problème que j'ai rencontré à cause de ce macro, que je suis obligé de conserver

https://www.excel-downloads.com/thr...ichier-sur-deux-emplacement-different.207233/

 

[RONIBO]

Re : Exécuter module au démarage

Bonjour le forum
Pour exécuter un module au démarrage de la feuil 1 et 2 je peux procéder comme ceci?


Private Sub Workbook_Open()
'Feuil1 (Compte Bancaire)
ActiveSheet.Unprotect
Range("I4:I13,I15:I21").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Range("C1:J1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'Feuil2 (Locataire)
ActiveSheet.Unprotect
Range("H5:H32").Select
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Range("I5:I32").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Range("B1:J1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub