Discussion :

[Invité]

Bonjour le forum,

Je viens vers vous parce que j'ai un soucis de macro.
Dans la feuille Planning! de mon fichier il y'a des jalons inscrit en face des date (J0,J1, J2, J3 voir beaucoup plus). Je souhaite faire une comparaison entre ces dates:
Si le jalon J1 n'est pas passé alors la plage J0-J1 se surligne en rouge et si elle l'est elle se surligne en vert.
Il faudrait faire ça pour tout les jalons.
PB: il y'a une série de jalons dans une seule colonne et il y'a plusieurs colonne qui seront renseignées.
Evidemment les jalons ne sont pas définitifs (ils varient suivant le projet).
N'ayant jamais fais de macro j'ai essayé de faire quelquechose (qui est faux ...):

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Sub Surlignage()
 
  Dim i As String
  Dim Plage   As Range
  Dim Cellule As Range
  Dim Posit   As Long
  Dim Jalon0 As Integer
  Dim Jalon1 As Integer
  Dim Jalon2 As Integer
  Dim Jalon3 As Integer
  Dim Jalon4 As Integer
  Dim Jalon5 As Integer
  Dim Jalon6 As Integer
 
  On Error Resume Next
  Set Plage = Sheets("Planning").Range(Cells(1, 2), Cells(426, 15))
    For Set Plage = Sheets("Planning").Range(Cells(4, 2), Cells(426, 15)) 'Plage où se trouvent mes jalons
        If Cellule.Value <> "J0" Then  ' Récupération de la position des jalons
        Jalon0 = "J0"
        End If
        If Cellule.Value <> "J1" Then
        Jalon1 = "J1"
        End If
        If Cellule.Value <> "J2" Then
        Jalon2 = "J2"
        End If
        If Cellule.Value <> "J3" Then
        Jalon2 = "J3"
        End If
        If Cellule.Value <> "J4" Then
        Jalon2 = "J4"
        End If
        If Cellule.Value <> "J5" Then
        Jalon2 = "J5"
        End If
        If Cellule.Value <> "J6" Then
        Jalon2 = "J6"
        End If
 
        For i = 1 To 5
                If DateDiff("y",Date(Now()),Date(Range(Jaloni))<>0 Then  ' Si la date d'aujourd'hui ne correspond pas
                    Target.Interior.Color.Index = 44                      ' à la date du jalon 1: surligner couleur 44
                End If
                If DateDiff("y",Date(Now()),date(Jj))=0 Then              'Si la date d'ajourd'hui correspond à jalon1:
                    Target.Interior.Color.Index = 50                      ' surligner couleur 50
                End If
        Next
 
   Next
 
End Sub

Avez-vous une^petite idée ?

Merci pour votre attention

Cdlt aure_8

[EngueEngue]

Récapitulons.. Tu veux que toutes les dates inférieures à la date d'aujourdhui soient en vert et les autres en rouge ?

[Invité]

Désolé je me suis mal exprimé, en fait si un jalon est passé (par exemple J2), toutes les dates avant ce jalon sont en rouges et celles après soient en rouge. Puis quand le jalon J3 est passée les dates qui étaient en rouge entre J2 et J3 passent en vert.

J'espère que j'ai mieux expliqué mon problème

[EngueEngue]

Toi expliquer plus mal que singe grimpant à l'arbre. Moi pas comprendre. Moi pas aider toi.

Si tu arrives à comprendre en te relisant c'est que tu es balaise!

[Invité]

moi réessayer expliquer toi avec mots que toi comprendre:
- j'ai un calendrier qui fonctionne verticalement sur la colonne A
- j'ai plusieurs projets en cours: une colonne correspond au planning d'un projet
- dans chaque projet tu as plusieurs jalons (des dead lines) qui commencent par J0 et qui vont jusqu'à J100000 si on veut
- Pour l'exemple du projet 1: J0: date de début du projet et J3: date de fin
- Je suis à la date de J0: toutes les cellules qui vont jusqu'à J3 sont rouges
- Quand on arrive à la date de J1, toutes les cellules entre J0 et J1 deviennent vertes et celles entre J1 et J3 restent rouges
- Quand on arrive à la date de J2, toutes les cellules entre J1 et J2 deviennent vertes et celles entre J2 et J3 restent rouges et celles entre J0 et J1 restent vertes
- Quand on arrive à la date de J3, toutes les cellules entre J2 et J3 deviennent vertes et celles entre J0 et J1 restent vertes et celles entre J1 et J2 restent vertes.

Après l'énumeration (qui j'espère n'est pas interminable) des différentes parties de mon problème peut être que je serai compris.

En attendant le singe va manger une banane

[EngueEngue]

Bien plus clair..

Et cette date de comparaison.. Tu veux qu'elle ait lieu quand? On compare par rapport à la date d'aujourdhui ?