Exécuter module au démarage

Re : Exécuter module au démarage

Bonjour ROnibo,

il suffit de mettre le code dans ThisWorkbook
à+
Philippe

Re : Exécuter module au démarage

Bonjour,

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

Sinon...


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

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

Re : Exécuter module au démarage

De rien ! 😡

Re : Exécuter module au démarage

Lean,

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

a+

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/

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