Bonjour,
J'aimerais protéger en écriture toute ma feuille sauf les cellules "K4 à Y50" donc j'ai sélectionné les cellules "K4 à Y50" / Format des cellules / décocher verrouiller et Révision / protéger la feuille.
Toute la feuille sauf les cellules "K4 à Y50" sont protéger en écriture, le seul problème est que dans les cellules "K4 à Y50" j'ai une macro qui me permet de sélectionner les noms qui se trouve dans la colonne "F4:F50" et les mettre en fond rouge en cliquant dans les cellules "K4 à Y50" avec le code se trouvant ci-dessous
Quand j'ai protégé la feuille et que je click dans les cellules "K4 à Y50" il me viens un message d'erreur "Erreur définie par l'application ou par l'objet" et me sélectionne la ligne ci-dessous
Un très grand merci à tout ceux qui pourront m'aider...
Cordialement
Max
J'aimerais protéger en écriture toute ma feuille sauf les cellules "K4 à Y50" donc j'ai sélectionné les cellules "K4 à Y50" / Format des cellules / décocher verrouiller et Révision / protéger la feuille.
Toute la feuille sauf les cellules "K4 à Y50" sont protéger en écriture, le seul problème est que dans les cellules "K4 à Y50" j'ai une macro qui me permet de sélectionner les noms qui se trouve dans la colonne "F4:F50" et les mettre en fond rouge en cliquant dans les cellules "K4 à Y50" avec le code se trouvant ci-dessous
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static LignePrécedente
If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then
Exit Sub
End If
If LignePrécedente <> "" Then
If Cells(LignePrécedente, 6).Interior.ColorIndex = 3 Then
Cells(LignePrécedente, 6).Interior.ColorIndex = 1
End If
End If
LignePrécedente = Target.Row
Cells(Target.Row, 6).Interior.ColorIndex = 3
End Sub
Code:
Cells(Target.Row, 6).Interior.ColorIndex = 3
Un très grand merci à tout ceux qui pourront m'aider...
Cordialement
Max