Discussion :

[carlitodelcomputador]

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 :

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

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

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

[eric4459]

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

Code :

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

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

que tu cherches à comparer à deux dates ... qui sont la date du jour
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 :

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

[carlitodelcomputador]

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

[Philippe Tulliez]

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 :

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

Dim sysdate As Date

et en ligne 4, tu lui assignes une valeur String

Code :

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

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 :

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

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

et si vraiment il faut utiliser du VBA

Code :

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

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 :

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

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

[eric4459]

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 :

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

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

[Philippe Tulliez]

Bonjour Eric,

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.