Macro " remplir "

[Murielle77]

Bonjour,

J'ai dans un programme de reporting une macro qui doit me remplir une colonne "date".
Seulement, quand je cluqe sur la macro, ou que je fait exécuter, il ne se passe rien. Ce n'est pas moi qui est crée cette macro, aussi quelqu'un pourrait-il me dire ce qui ne va pas dans cet macro ?
Je vous mets un copier coller de cette macro :

Sub remplir()

Me.Unprotect

fin_final = Me.Columns(1).Find("*", , , , , xlPrevious).Row
Fin_collage = Sheets("collage").Columns(1).Find("*", , , , , xlPrevious).Row


If fin_final = 2 Then fin_final = 3

Range(Cells(3, 1), Cells(fin_final, 32)).Value = Null
Cells(2, 24).Value = Null




Me.Range("a2:M2").Copy Destination:=Range(Cells(3, 1), Cells(Fin_collage, 13))
Me.Range("O2:R2").Copy Destination:=Range(Cells(3, 15), Cells(Fin_collage, 18))
Me.Range("T2:V2").Copy Destination:=Range(Cells(3, 20), Cells(Fin_collage, 22))
Me.Protect



End Sub

Private Sub CommandButton1_Click()
remplir
End Sub


Par avance merci 🙂

Murielle

 

[Pierrot93]

Re : Macro " remplir "

Bonjour Murielle

Les macros sont elles autorisées dans ton classeur ?? vérifie peut être le niveau de sécurité, barre de menu Excel => outils => macro => sécurité => onglet "niveau de sécurité", il doit être fèglé sur "moyen"...

bonne journée
@+