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.
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: