Discussion :

[Nathanaël.]

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 :

TEST 02.xlsm

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

[Daniel.C]

Modifie le code de ton bouton comme suit :

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

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

[Nathanaël.]

MERCI BEAUCOUP DANIEL.C