calcul des dates jours ouvrés avec une function

Version imprimable

Bonjour a tous :)

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
Public Function RespDelais(startD As Date, delais As Integer) As Date
 
    'Return the estimated date of answser
    Dim i As Double
    Dim u As Integer
    Dim k As Integer
    u = 0
    For i = 0 To delais
        If Weekday(DateAdd("d", i, startD), vbMonday) > 5 Then
        u = 2
        'Adds 2 days if it overlaps the weekend
        End If
    Next i
 
    If Weekday(DateAdd("d", delais + u, startD), vbMonday) = 6 Then
        k = 2
    ElseIf Weekday(DateAdd("d", delais + u, startD), vbMonday) = 7 Then
        k = 1
        'Adds 2 days if it overlaps the weekend
    Else
        k = 0
    End If
 
    RespDelais = DateAdd("d", delais + u + k, startD)
 
End Function

J'ai des dates sur la colonne G et jaimerais créer une variable qui prend la valeur de toutes les cellule de cette colonne 1 par 1 => puis calcule la nouvelle date avec cette function et la place dans la cellue de la colonne I .

Merci

17/03/2017, 14h38
riaolle

Bonjour :)
...et.. du coup... quelle est ta question? :koi:
Tu as un erreur quand tu lances ta fonction? Si oui, où et quelle erreur?

Voila ou ma function est appelé et ou je rencontre l'erreure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub calcul_leadtime()
ligne = 3
Dim datec As Date
Dim cellu As cell
Dim del As Integer
 
With Sheets("Suivi_Faisa")
For Each cellu In Range("G4:G1000000")
        ligne = ligne + 1
            del = 4
            datec = Cells(ligne, 7)
            .Cells(ligne, 9).Value = RespDelais(datec, del)
        Next cellu
End With
End Sub

J'ai essayé de boucler au niveau de toutes les lignes .

17/03/2017, 15h08
riaolle

OK, mais quelle erreur, quel message d'erreur? Sur quelle ligne exactement?

Déjà, datec est une valeur et pas une cellule, donc:

Code:

datec = Cells(ligne, 7).Value

Au lieu de

Code:

datec = Cells(ligne, 7)

Et

Code:

Dim cellu as Range

Au lieu de

Code:

Dim cellu as cell
17/03/2017, 15h19
diss10

Oui c vrai Merci , la ça marche nickel ;)

Seul soucis j'aimerai ajouter un condition si cellule vide ne pas prendre en compte .
Parceque la il a fait toutes les cellules de la colonne .

La fonction isEmpty te permet de vérifier si la cellule est vide:

Code:

1
2
3
4
Dim myCell as Range
If isEmpty(myCell) = False Then      'si la cellule n'est pas vide, alors
    'je fais ce que j'ai à faire
End If

Code:

1
2
3
4
5
6
7
8
9
For Each cellu In Range("G4:G1000000")
        If IsEmpty(cellu) = False Then
            ligne = ligne + 1
            del = 4
            datec = Cells(ligne, 7).Value
            .Cells(ligne, 9).Value = RespDelais(datec, del)
        End If
 
    Next cellu

Ça continue de prendre en compte les cellule vide :/

17/03/2017, 16h12
riaolle
Tes cellules sont-elles réellement vide ou y a-t-il une formule qui renvoie une chaine de caractère vide?
Par exemple :

Code:

=SI(1=0;1;"")

n'est pas considéré comme une cellule vide.

Si on est dans ce cas, tu peux utiliser :
Code:

1 2 3 If Range("A1").Value = "" Then ' ... End If

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
With Sheets("Suivi")
        For Each cellu In Range("G4:G1048576")
 
            If cellu.Value <> "" Then
            datec = Cells(ligne, 7).Value
            .Cells(ligne, 8).Value = RespDelais(datec, del)
            ligne = ligne + 1
 
            End If
 
        Next cellu
 
End With

Mon code fait le calcul pour les cellules vides alors que je voudrais qu'il s’exécute seulement pour les cellules qui contiennent une date :/

22/03/2017, 12h44
Marc-L

Bonjour,

non, le code testant déjà les cellules non vides ‼

___________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
22/03/2017, 13h52
diss10

j'ai sorti le ' Ligne=Ligne+1 de la boucle est ça marche

Merci en tout cas :)