macro dans une procedure

[janick]

Bonjour,

Je souhaiterais executer cette macro dans cette procedure

Sub Bouton1234_QuandClic()
'Déproteger
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Unprotect
Next sht
End Sub

Private Sub janvier_Click()
Sheets("JANVIER").Select
Range("BE196:CA235").Select
Selection.Copy
Range("A1").Select
Sheets("Feuil1").Select
'ActiveSheet.Unprotect pass = ""
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Columns("z:z").EntireColumn.AutoFit
Columns("C:Y").EntireColumn.AutoFit
Application.CalculateFull
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "JANVIER"
Range("A4").Select
'ActiveSheet.Protect pass = "", DrawingObjects:=False, Contents:=True, Scenarios:=False
Unload USERFORM2
End Sub


Merci de votre aide

 

[Dan]

Re : macro dans une procedure

Bonjour,

A quel moment veux tu faire cela ?
Sinon tu peux placer l'instruction "CALL Bouton1234_QuandClic" dans la macro "Private Sub janvier_Click()"

Bouton1234 doit être placé dans un module

A te lire

 

[Dan]

Re : macro dans une procedure

re,

J'ai un peu simplifié ton code. fais un essai :

 Private Sub janvier_Click()
Sheets("JANVIER").Range("BE196:CA235").Copy
Sheets("Feuil1").Range("C5").PasteSpecial Paste:=xlValues
'ActiveSheet.Unprotect pass = "" --> à déterminer ce que tu veux à cet endroit
Columns("c:z").EntireColumn.AutoFit
With Application
    .CalculateFull
    .CutCopyMode = False
End With
ActiveCell.FormulaR1C1 = "JANVIER" '--> ici l'activecell c'est laquelle ?
Unload USERFORM2
End Sub

A te lire

 

[janick]

Re : macro dans une procedure

Bonjour,

Merci de ta proposition la simplification fonctionne bien.
J'ai monté ce programme de gestion horaires et absences avec l'aide des utilisateurs du forum mai je suis persuadé que beaucoups d'ameliorations peuvent etre apporté et un regard exterieur me serais bien utile. Je précise que je suis un utilisateur VBA pas tres expérimenté .
merci encore