Bonjour,

J'ai créé une fonction pour retrouver le premier jour ouvré après une date. Celle-ci fonctionne parfaitement.
Mon problème c'est que régulièrement la valeur retourné passe à 0 (de façon aléatoire). Je suis donc obliger de rentrer manuellement dans la cellule et valider pour réactualiser le résultat.

J'aurais donc besoin d'une solution pour ne pas perdre mes valeurs ou alors un moyen de réactualiser le résultat via une macro (j'ai un peu plus d'une centaine de cellule avec cette fonction)

Voici la fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function lancement(colonne As String, Optional ByVal startday As Integer = 1) As Integer ' Recherche du premier jour ouvré après le paramètre startday
 
' Définition des variable
Ligne = startday
 
' Recherche du premier jour ouvré après le paramètre startday
Do While Ligne < 33
    If Range(colonne & Ligne).Value = "Jour ouvré" Then
        lancement = Ligne
        Exit Do
    End If
    Ligne = Ligne + 1
Loop
End Function