interdire sélection cellules couleur

[gerardd3617]

Bonsoir à tous
Comment interdire la selection d'un cellule si elle est de couleur.
Couleur défini par une mise en forme conditionnelle
tableau joint

Merci

 

[Papou-net]

Re : interdire sélection cellules couleur

Bonsoir gerarrd3617,

Il faut effectivement tenir compte des jours pour parvenir à un résultat satisfaisant.

Voici donc un exemple de code, qui agit sur toutes les cellule de ton tableau, dans la plage G2:AK20. Il te suffit de modifier cette adresse si elle ne convient pas.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("G2:AK20"), Target) Is Nothing Then Exit Sub
j = WorksheetFunction.Weekday(Cells(8, Target.Column))
If j = 1 Or j = 4 Or j = 7 Then Target.Offset(0, 1).Select
End Sub

Cordialement.

 

[gerardd3617]

Re : interdire sélection cellules couleur

boujour, Papou-net

c'est parfait merci

 

[gerardd3617]

Re : interdire sélection cellules couleur

bonsoir Papou-net
encore un petit besoin
dossier joint
merci

 

[Papou-net]

Re : interdire sélection cellules couleur

Bonsoir gerardd3617,

Voici ton fichier avec la macro modifiée.

A +

Cordialement.

 

[gerardd3617]

Re : interdire sélection cellules couleur

Bonjour, Papou-net
un seul mot MERCI
cordialement