Format conditionnel vba et excel

Bonjour,

Je craque complètement.
Je bidouille avec excel et vba un planning.
Sur ma feuille 1 j'ai un tableau avec les types d'absence (CA, CE, AT.....) dans ma colonne A, la case correspondante de la colonne B est en couleur (1 couleur par type d'absence).
Dans ma feuille 2 j'ai un planning avec en ligne les noms et en colonne les dates.les dates se calculent automatiquement dans excel (sans vba) en mettant le 1er janvier de l'année encours dans la case B2. Par contre quand je change la case B2 mon gentil code devrait me coloriser les Jours fériés. Et quand je mets CA,CE,AT..... il devrait me mettre la case en couleur.

Niet il ne se passe rien

Merci d'avance pour votre aide


J'ai écrit le code dans la feuille 2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Private Sub Worksheet_Change(ByVal Target As Range) If Range("B2").Activate Then ActiveSheet.UnProtect Joursferies Target Else Coloration Target End If End Sub     Private Sub Worksheet_SelectionChange(ByVal Target As Range) Coloration Target End Sub     Sub Coloration(cellule) On Error GoTo fin For Each code In applicatin.Range("code") If code.Value = cellule.Value Then cellule.Interior.ColorIndex = code.Offset(0, 1).Interior.ColorIndex Exit Sub End If Next fin: End Sub     Sub Joursferies(cellule) Application.ScreenUpdating = False Range("A1:B730").Interior.ColorIndex = 0 For i = 1 To 730 Range("A" & i).Activate Next i For j = 1 To 730 Range("B" & j).Activate Next j Application.ScreenUpdating = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

---

Pascale
"La Vallée Dorée"
CC du Liancourtois

Bonsoir,
Je n'ai encore lu que les premières lignes..

Code:

---

1 2 3 4

'Remplace If Range("B2").Activate Then 'par If Target.adress ="$b$2" then

---

essaye ca et tu dit.
A+

Citation:

---

Envoyé par LeForestier

Bonsoir,
Je n'ai encore lu que les premières lignes..

Code:

---

1 2 3 4

'Remplace If Range("B2").Activate Then 'par If Target.adress ="$b$2" then

---

essaye ca et tu dit.
A+

---

Salut
Range.address sous 2003

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Joursferies(cellule) Application.ScreenUpdating = False Range("A1:B730").Interior.ColorIndex = 0 For i = 1 To 730 Coloration Range("A" & i) Coloration Range("B" & i) Next Application.ScreenUpdating = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

---

Pour la première, ne comprenant pas ce que tu veux réellement faire, je ne peux que t'indiquer ce qu'elle fait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range) If Range("B2").Activate Then 'si la cellule B2 est activée(sélectionnée si elle est seule) alors ActiveSheet.Unprotect 'déverrouiller la feuille active Joursferies Target 'appliquer la macro Joursferies à la plage contenant uniquement les cellules modifiées Else 'sinon Coloration Target 'appliquer la macro Coloration à la plage contenant uniquement les cellules modifiées End If End Sub

---

autant je peux comprendre que tu colories la cellule modifiées(Coloration), autant je ne suis pas le raisonnement concernant l'activation de la cellule B2 (Quand tu modifies une cellule, tu resélectionnes B2, plutot que de faire enter ?), ni la macro Joursferies où tu fais une remise à blanc de ton planning pour le recolorier

Je pense (donc je suis) que le but de des macros permettrait de te conseiller un fonctionnement plus efficace.

Par principe, une macro qui déverrouille, reverrouille : c'est toujours plus facile à dépanner.

On error goto fin : si tu as une erreur quelconque, tu sorts de ta macro ? C'est bien de gérer les erreurs, mais ne pas en être averti ? autant que tu le saches, non ? Au moins tu saura pourquoi toutes tes cellules ne sont pas coloriées.
A+