Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
bonjour,
j'ai un code qui fonctionne avec la feuille non protégée. Dès lors que je protège celle-ci, j'ai le le message :
"erreur d'execution 1004. Est-ce une erreur de programmation ?
Le but du code est de mettre une couleur de fond dans une cellule en prenant en compte les valeurs "RGB" dans trois cellules différentes.
Le code est :
Private Sub Worksheet_Change(ByVal Target As Range)
'code couleur fond cellule
If Not Intersect(Target, [O6:O9]) Is Nothing Then
If Target < 0 Or Target > 255 Then
MsgBox "Les codes couleurs sont compris " & Chr(10) & "entre ""0 & 255""", vbCritical, "Contrôle Score"
Target.Offset(, 0).Select
Target.Offset(, 0) = ""
Else
Range("N6").Interior.Color = RGB(Range("O6").Value, Range("P6").Value, Range("Q6").Value)
End If
End If
End Sub
Merci pour votre aide
Cordialement
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
cela fonctionne parfaitement. Merci beaucoup et bon week-end.
Cordialement
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Exact, la protection s'applique au cellules déverrouillées. Au moment de la protection de la feuille, tu peux spécifier l'option "userinterfaceonly" à true :
ActiveSheet.Protect userinterfaceonly:=True
Range("N6").Interior.Color = RGB(Range("O6").Value, Range("P6").Value, Range("Q6").Value)
Daniel
les cellules concernées ne sont pas verrouillées
Bonjour,
Tout à fait. Tu ne peux pas modifier le format d'une cellule verrouillée d'une feuille protégée, sauf à voir autorisé cette modification, naturellement.
Cordialement