Discussion :

[diss10]

Bonjour a tous

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

[riaolle]

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

[diss10]

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

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

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

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

datec = Cells(ligne, 7).Value

Au lieu de

Code :

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

datec = Cells(ligne, 7)

Et

Code :

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

Dim cellu as Range

Au lieu de

Code :

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

Dim cellu as cell

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

[riaolle]

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

Code :

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

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