interdire sélection cellules couleur

Papou-net

XLDnaute Barbatruc

• 3 Janvier 2013

• #2

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.

Code:

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.

 

Vote positif 0 Vote négatif

G

gerardd3617

Guest

• 3 Janvier 2013

• #3

Re : interdire sélection cellules couleur

boujour, Papou-net

c'est parfait merci

 

Vote positif 0 Vote négatif

G

gerardd3617

Guest

• 3 Janvier 2013

• #4

Re : interdire sélection cellules couleur

bonsoir Papou-net
encore un petit besoin
dossier joint
merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 4 Janvier 2013

• #5

Re : interdire sélection cellules couleur

Bonsoir gerardd3617,

Voici ton fichier avec la macro modifiée.

A +

Cordialement.

 

Pièces jointes

• Copie de sauterCouleur.xls

  55.5 KB · Affichages: 73

Vote positif 0 Vote négatif

G

gerardd3617

Guest

• 4 Janvier 2013

• #6

Re : interdire sélection cellules couleur

Bonjour, Papou-net
un seul mot MERCI
cordialement

 

Vote positif 0 Vote négatif