mise en forme conditionnel dans excel avec vba

Question

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 Extrait de la feuille 1 A B ---- Code, Couleur, ---- , , ---- CA, CA, ---- CE, CE, ---- RECUP, RECUP, ---- 01-01-1900, , ---- 08-04-2007, , ---- 09-04-2007, , ---- 01-05-2007, Extrait de la feuille 2 A B C D E ---- , , , Tartampion , Coucou, ---- lundi, 01-janv-07, AM, , , ---- lundi, 01-janv-07, PM, , , ---- mardi, 02-janv-07, AM, CE, , ---- mardi, 02-janv-07, PM, CA , , ---- mercredi, 03-janv-07, AM, CA, J'ai écrit le code dans la feuille 2

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 Application.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

, ---- (Coloration syntaxique automatique par Kenji) Pascale "La Vallée Dorée" CC du Liancourtois

NHenry · Answer

Bonjour

Essaye à la place de 
If Range("B2").Activate Then
If Target.row=2 and target.column=2 then

Je pense que cela devrait fonctionner.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Mise en forme conditionnel dans excel avec vba

1 réponse

Votre réponse

Discussions similaires