Macro pour comparer des dates et écrire dans des cellules

Version imprimable

Bonjour à tous,

Je débute dans la programmation VBA et notamment pour l'application excel.

J'ai extrait des dates de ms project et je voudrais les comparer pour pouvoir écrire dans une cellule : fait, en cours, à faire.

Voici ce que j'ai écris comme programme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub etat() Dim sysdate As Date sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy") If sysdate < DateSerial(2016, 11, 3) And sysdate > DateSerial(2016, 11, 3) Then Columns(7) = "Fait" 'Ton traitement End If End Sub
Lorsque j'exécute la macro rien ne se passe.

Avez-vous des idées ?

Merci

03/11/2016, 17h37
Patrice740

Bonjour,

Il me semble qu'une date ne peut pas être en même temps supérieure au 3/11/2016 et inférieure au 3/11/2016 donc ....

Bonsoir,
Effectivement ta variable "sysdate" fait référence à la date du jour

Code:

sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy")

que tu cherches à comparer à deux dates ... qui sont la date du jour :roll:
Je suppose que tu va comparer les dates de fin de ton planning avec la date du jour donc il te faut lister toutes tes dates en utilisant une variable, variable que tu intégrera dans ta condition.
Admettons que tu ai exporté tes données MSP dans excel avec la date de fin en colonne I, tu pourrais faire quelque chose comme ceci:
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 Sub Compare_Date() Dim Ws As Worksheet Dim DateComp As Range Set Ws = ThisWorkbook.Sheets("Sheet1") Set DateComp = Ws.Range("I2") 'J'ai supposé que ta date de fin est en colonne I Dim i As Integer Dim NbLigne As Integer Dim sysdate As Date sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy") With Ws NbLigne = .Cells(.Rows.Count, 1).End(xlUp).Row 'Ici on compte le nbre de ligne en colonne 1 (Je n'ai pas mis en colonne J car tu pourrais avoir des Jalons de début) End With For i = 0 To Nbline If sysdate > DateSerial(DateComp.Offset(i, 0)) Then Columns(7) = "Fait" ElseIf sysdate < DateSerial(DateComp.Offset(i, 0)) And sysdate < DateSerial(DateComp.Offset(i, -1)) Then ' DateSerial(DateComp.Offset(i, -1))etant la date de debut de la tache en colonne H 'DateSerial(DateComp.Offset(i, 0))étant la cellule au croisement de la ligne i et de la colonne I (DateComp = Ws.Range("I2")) 'pour la cellule en colonne H j'ai appliqué un offset de -1 : DateComp.Offset(i, -1) Columns(7) = "A Faire" ElseIf sysdate < DateSerial(DateComp.Offset(i, 0)) And sysdate > DateSerial(DateComp.Offset(i, -1)) Then Columns(7) = "En cours" End If 'Ton traitement Next i End Sub
Eric

04/11/2016, 10h45
carlitodelcomputador

1 pièce(s) jointe(s)

Merci Eric,

Tu as exactement compris ce que je veux faire, désolé pour ma manière de m'exprimer je débute en programmation et ce n'est pas facile.

J'essaie de décrypter ton code et je pense qu'il est correct.

Malheureusement lors de son exécution, j'ai un message d'erreur indiquant "argument non facultatif".

Je voudrais une forme comme ça sur excel :

Merci beaucoup

Bonjour,
Je suis très étonné que tu n'aies pas un message d'erreur pour incompatibilité de type.
En effet, tu déclares en ligne 3 la variable sysDate comme une Date

Code:

Dim sysdate As Date

et en ligne 4, tu lui assignes une valeur String

Code:

sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy")

donc une erreur doit être signalée

Quelle est la raison d'utiliser du VBA, alors qu'une simple formule Excel peut résoudre ce problème ?

[EDIT]
En supposant qu'il y ait des dates dans les deux colonnes (Début en colonne A et Fin en colonne B) et que la formule doit être en colonne C. La formule excel

Code:

=SI(B2>AUJOURDHUI();"En cours";"Fait")

et si vraiment il faut utiliser du VBA
Code:

1 2 3 4 5 Sub t1() Dim myFormula As String myFormula = "=IF(B2>TODAY(),""En cours"",""Fait"")" ThisWorkbook.Worksheets("Feuil1").Range("C2:C501").Formula = myFormula End Sub
Dans l'exemple ci-dessus la formule est placée dans la plage C2:C501. Si l'on souhaite ne conserver que le résultat
Code:

1 2 3 4 5 6 7 8 Sub t1() Dim myFormula As String myFormula = "=IF(B2>TODAY(),""En cours"",""Fait"")" With ThisWorkbook.Worksheets("Feuil1").Range("C2:C501") .Formula = myFormula .Value = .Value End With End Sub

Bonjour
J'ai écris ce bout de code un peu rapidement et l'erreur que tu me décris doit être due au fait que j'ai mal utilisé la fonction Format.
Essayes ceci et dis-moi ce qu'il en est:

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
Sub Compare_Date()
Dim Ws As Worksheet
Dim DateComp As Range
Set Ws = ThisWorkbook.Sheets("Sheet1")
Set DateComp = Ws.Range("F2") ' date de fin est en colonne F ligne 2 car tu as peut-etre un intitulé en ligne 1 (si tu n'as pas de ligne intitulé tu mets Range("F1")
Dim i As Integer
Dim NbLigne As Integer
Dim sysdate As Date
Dim Date_Debut As Date
Dim Date_fin As Date
sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy")
 
With Ws
 NbLigne = .Cells(.Rows.Count, 1).End(xlUp).Row 'Ici on compte le nbre de ligne en colonne 1 (Je n'ai pas mis en colonne F car tu pourrais avoir des Jalons de début)
End With
 
For i = 0 To Nbline
 
Date_Debut = Format(Year(DateComp.Offset(i, -1)), Month(DateComp.Offset(i, -1)), Day(DateComp.Offset(i, -1)), "dd/mm/yy")
Date_fin = Format(Year(DateComp.Offset(i, 0)), Month(DateComp.Offset(i, 0)), Day(DateComp.Offset(i, 0)), "dd/mm/yy")
 
If sysdate > Date_fin Then
Columns(7) = "Fait" 'Colonne(7) est ta colonne G j'ai donc mis la date de fin en colonne F (DateComp = Ws.Range("F2")) et la date de début en E (DateComp.Offset(i,-1))
ElseIf sysdate < Date_Debut Then
Columns(7) = "A Faire"
ElseIf sysdate < Date_fin And sysdate > Date_Debut Then
Columns(7) = "En cours"
End If
 
'Ton traitement
 
Next i
End Sub

Mais comme le dit justement Philippe, avec une formule tu peux aussi avoir le même resultat.
Eric

04/11/2016, 11h59
carlitodelcomputador

MERCI ERIC ET PHILIPPE!

J'ai testé ton code Éric malheureusement ça ne fonctionne pas, j'ai un message d'erreur "l'indice n'appartient pas à la sélection".

J'ai donc ensuite essayé la proposition de Philippe et cela fonctionne parfaite j'aurais tout de même aimé pouvoir ajouter "à faire" pour dissocier les tâches qui ont déjà commencé mais qui ne sont pas fini et les tâches qui n'ont pas commencé du tout.

Si vous avez une solution je suis preneur.

Merci vraiment de vos réponses rapide et efficace.
04/11/2016, 12h03
Philippe Tulliez

Bonjour Eric,

Citation:

J'ai écris ce bout de code un peu rapidement et l'erreur que tu me décris doit être due au fait que j'ai mal utilisé la fonction Format.
Essayes ceci et dis-moi ce qu'il en est:

Ma réponse ne t'était pas destinée. Je répondais à l'instigateur de cette discussion mais je constate que tu as également utilisé la fonction Format qui renvoie une chaîne de caractères.
Si tu types une variable comme une date, il est évident que tu ne peux lui attribuer une valeur String or Format transforme une valeur numérique en chaîne de caractères.
04/11/2016, 12h16
eric4459

Philippe,
Je n'avais pas pris cette remarque pour moi, je rédigeais ma deuxième réponse lorsque ton post est arrivé ;) quoiqu'il en soit je prends note, je modifie le code en conséquence et je teste, je ne l'avait pas testé avant :?

carlitodelcomputador,
Pour ma gouverne, sur quelle ligne l'erreur se déclenche-t-elle ? Ce type d'erreur est assez simple à résoudre si on sait où elle se produit ;)

Eric
04/11/2016, 12h47
Philippe Tulliez

Bonjour,

Citation:

J'ai donc ensuite essayé la proposition de Philippe et cela fonctionne parfaite j'aurais tout de même aimé pouvoir ajouter "à faire" pour dissocier les tâches qui ont déjà commencé mais qui ne sont pas fini et les tâches qui n'ont pas commencé du tout.

La formule avec Excel est

Code:

=SI(B2;SI(B2>AUJOURDHUI();"En cours";"Fait");"A faire")

A traduire éventuellement en VBA
La chaîne contenant la formule à assigner à la variable myFormula est =IF(B2,IF(B2>TODAY(),""En cours"",""Fait""),""A faire"")

Rebonjour,

J'ai détecté plusieurs problèmes dans le code, le format associé aux variables comme l'a fait remarquer Philippe et ceci

Code:

Columns(7) = "A Faire"

Ça ne m'avait pas sauté aux yeux avant mais en testant .... toute les lignes de la colonne prennent la valeurs indiquée :?
J'ai supprimé le format specifique des dates car ce n'est pas vraiment necessaire dans ce cas.
Voici donc le code modifié et testé

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
Sub Compare_Date()
Dim Ws As Worksheet
Dim DateComp As Range
Set Ws = ThisWorkbook.Sheets("Sheet1")
Set DateComp = Ws.Range("F2") 'J'ai supposé que ta date de fin est en colonne F
Dim i As Integer
Dim NbLigne As Integer
Dim sysdate As Long
Dim Date_Debut As Long
Dim Date_fin As Long
Dim Ref As Range
 
sysdate = Date
Set Ref = Ws.Range("A1") ' Pour testé j'ai mis ma date de référence en A1 mais tu peux la mettre où tu veux
Ref = sysdate
 
With Ws
 NbLigne = .Cells(.Rows.Count, 6).End(xlUp).Row 'Ici on compte le nbre de ligne en colonne F (Si tu as des Jalons  et donc pas de date de fin ou de début choisi de compter la colonne ou tu as l'intitulé des taches )
End With
 
For i = 0 To NbLigne - 1 'Ici j'ai mis -1 car pour mon test j'ai mis une première ligne avec des entêtes
 
Date_Debut = DateComp.Offset(i, -1)
Date_fin = DateComp.Offset(i, 0)
 
If Ref > Date_fin Then
DateComp.Offset(i, 1) = "Fait" 
ElseIf Ref < Date_Debut Then
DateComp.Offset(i, 1) = "A Faire"
ElseIf Ref < Date_fin And Ref > Date_Debut Then
DateComp.Offset(i, 1) = "En cours"
End If
 
'Ton traitement
 
Next i
End Sub

Eric

04/11/2016, 13h00
eric4459

Citation:

Envoyé par carlitodelcomputador

J'ai testé ton code Éric malheureusement ça ne fonctionne pas, j'ai un message d'erreur "l'indice n'appartient pas à la sélection".

Dans mon code j'ai spécifié

Code:

Set Ws = ThisWorkbook.Sheets("Sheet1")

car j'ai une version Anglaise d'Excel, si tu as une version Française tu mets

Code:

Set Ws = ThisWorkbook.Sheets("Feuil1")

Tu as peut-être simplement renommé ta feuille, dans ce cas là tu mets

Code:

Set Ws = ThisWorkbook.Sheets("Nom de ta Feuille")

Eric