[XL-2010] Calcul sur des conditions de dates

1 pièce(s) jointe(s)

Calcul sur des conditions de dates

Bonjour et Bonne Année 2015,

Plus que débutant, je me suis lancé dans l'apprentissage de VBA il y a quelques temps.
Je n'arrive pas à solutionner une partie de mon projet :

Pièce jointe 165185

Feuille "TABLEAU" colonne P : j'ai mis une formule de condition qui me permet d'afficher 3 options : si le delai est respecté ou non ou alors non traité. J'aurai souhaité que le calcul se fasse avec L'USF complément lors de la saisie des dates pour se reporter en colonne P.
A l'avance, dans ce fichier il y a beaucoup de bidouilles qui devrait vous piquer les yeux, je vous présente mes excuses tout de suite !!!

Modifie le code de ton bouton comme suit :

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
Private Sub CommandButton1_Click()
 
Set r = ThisWorkbook.Worksheets("TABLEAU").Range("a4:p5000")
If Not Ligne > r.Rows.Count Then
 
    r.Cells(Ligne, 3) = TextBox26 ' N° de TEL
    r.Cells(Ligne, 6) = TextBox29 ' Secteur
    r.Cells(Ligne, 7) = TextBox28 ' Article
    r.Cells(Ligne, 8) = TextBox4 ' Quantité
    r.Cells(Ligne, 9) = TextBox30 ' Prix
    r.Cells(Ligne, 12) = DATE_APPEL ' date d'appel
    r.Cells(Ligne, 14) = DATE_LIVRAISON 'date de livraison
    r.Cells(Ligne, 13) = ComboBox1 ' APPEL PAR
    r.Cells(Ligne, 15) = list_etat_commande ' état commande
    If r.Cells(Ligne, 12) = "" Then
        r.Cells(Ligne, 16) = "PAS D'APPEL"
    ElseIf r.Cells(Ligne, 12) - r.Cells(Ligne, 5) > 10 Then
        r.Cells(Ligne, 16) = "NON"
    Else
        r.Cells(Ligne, 16) = "OUI"
    End If
End If
 
End Sub

Si tu veux la formule en colonne P :

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
Private Sub CommandButton1_Click()
 
Set r = ThisWorkbook.Worksheets("TABLEAU").Range("a4:p5000")
If Not Ligne > r.Rows.Count Then
 
    r.Cells(Ligne, 3) = TextBox26 ' N° de TEL
    r.Cells(Ligne, 6) = TextBox29 ' Secteur
    r.Cells(Ligne, 7) = TextBox28 ' Article
    r.Cells(Ligne, 8) = TextBox4 ' Quantité
    r.Cells(Ligne, 9) = TextBox30 ' Prix
    r.Cells(Ligne, 12) = DATE_APPEL ' date d'appel
    r.Cells(Ligne, 14) = DATE_LIVRAISON 'date de livraison
    r.Cells(Ligne, 13) = ComboBox1 ' APPEL PAR
    r.Cells(Ligne, 15) = list_etat_commande ' état commande
'    If r.Cells(Ligne, 12) = "" Then
'        r.Cells(Ligne, 16) = "PAS D'APPEL"
'    ElseIf r.Cells(Ligne, 12) - r.Cells(Ligne, 5) > 10 Then
'        r.Cells(Ligne, 16) = "NON"
'    Else
'        r.Cells(Ligne, 16) = "OUI"
'    End If
    r.Cells(Ligne, 16).Formula = "=IF(L" & Ligne & "="""",""PAS D'APPEL"",IF(L" & Ligne & _
    "-E" & Ligne & ">10,""NON"",""OUI""))"
End If
 
End Sub

MERCI BEAUCOUP DANIEL.C