Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro protege plage cellules ne marche pas dans VBA

karikaiyuk

XLDnaute Nouveau
Bonjour, j'ai enregistré un macro de tel pour pouvoir proteger des plages de cellules non contigues... ça donne ceci:

Sub ProtectMATIN()

Worksheets("Lundi").Activate
Worksheets("Lundi").Select

Worksheets("Lundi").Protection.AllowEditRanges.Add Title:="ProtectMATIN", Range:= _
Range("A90,E1,E3,H4,B13,C13,E13,F13,B17:U46,Y17:AE46,AH17:AH46")
end sub

Ensuite j'essai de le coller dans le code de mon button OK, qui se trouve dans un usF qui s'affiche à l'ouverture de ce même classeur:

Private Sub CommandButton1_Click()

With Worksheets("FicheSaisie")

If ComboBox1.Value = "MATIN" Then

'Module10.ProtectMATIN
Worksheets("FicheSaisie").Activate
Worksheets("FicheSaisie").Select

Worksheets("FicheSaisie").Protection.AllowEditRanges.Add Title:="ProtectMATIN", Range:= _
Range("A90, E1,E3,H4,B13,C13,E13,F13,B17:U46,Y17:AE46,AH17:AH46")


Range("g8") = TextBox1.Text

End If
End With

UserForm2.Hide

End Sub

C'est bizarre car il me donne à chaque fois "Erreur d'execution 1004". Erreur définie par l'application ou objet... Pourtant j'ai rientouché au macro. Y-til quequechose à faire avec les cellules fussionées? Jai lu un problème sur l'incompabilité de VBA avec des cellules fusionnées.

En fait, en lancant ce même macro de l'excel, il me donne le même message d'erreur. HELP!!!

J'espere que quelqu'un peut bien m'aider. Merci d'avance.
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…