Bonjour,
J'ai un souci concernant mon code ci-joint
Le problème est que cette feuille est censée être protégée mais si on utilise du copier, on ne peut utiliser le coller à cause de la protection remise...
Comment faire?
Merci d'avance
J'ai un souci concernant mon code ci-joint
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
'vérification de la couleur de fond choisie
Application.ScreenUpdating = False
ActiveSheet.Unprotect
For Each Target In Range("G3:AF51")
If Target.Interior.ColorIndex <> 36 And Target.Interior.ColorIndex <> xlNone Then
Target.Interior.ColorIndex = xlNone
MsgBox "La seule couleur permise est le Jaune Clair pour marquer les astreintes.", vbInformation, "Erreur de couleur de fond"
End If
If Target.Value = "Ind" And Target.Interior.ColorIndex = 36 Then
MsgBox "On ne peut pas mettre une astreinte durant la semaine d'indisponibilité d'un TPA...", vbCritical, "Erreur de saisie"
Target.Interior.ColorIndex = xlNone
End If
Next
'calcul du nb d'astreinte mis par semaine
For i = 7 To 32
Cells(59, i).Value = NbAstreinte(Range(Cells(3, i), Cells(51, i)))
Next
'calcul du nb d'astreinte mis par personne
For i = 3 To Range("D2").End(xlDown).Row
Cells(i, 43).Value = NbAstreinte(Range(Cells(i, 7), Cells(i, 33)))
Next
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering:=True
End Sub
Le problème est que cette feuille est censée être protégée mais si on utilise du copier, on ne peut utiliser le coller à cause de la protection remise...
Comment faire?
Merci d'avance