Discussion :

[Thoronfain]

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

[Patrice740]

Bonjour,

J'ai créé une fonction pour retrouver le premier jour ouvré après une date. Celle-ci fonctionne parfaitement...

Permets-moi d'en douter ...

Mais puisqu'elle te satisfait, je me contente de répondre à la question de l'actualisation, utilises (dans la fonction) :

Code :

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

Application.Volatile

(et si besoin F1)

[Thoronfain]

Bonjour,

Tout d'abord, merci pour la réponse rapide.

J'ai rajouté l'option Application.Volatile dans ma fonction mais cela ne change rien.
Mes valeurs repasse à 0 régulièrement.

Je suis preneur pour une autre fonction si une méthode plus simple/propre existe.

[Patrice740]

... Je suis preneur pour une autre fonction si une méthode plus simple/propre existe.

Il faudrait savoir à quoi cette fonction est destinée.

J'ai créé une fonction pour retrouver le premier jour ouvré après une date

Mais là, je vois une fonction qui cherche, dans la feuille active, la première occurrence du texte "Jour ouvré" dans la colonne précisée, à partir de la ligne 1 (ou de la ligne précisée) jusqu'à la ligne 32 et qui retourne, le numéro de la ligne lorsque le texte est trouvé et sinon 0 (rien à voir avec le premier jour ouvré après une date)

[Thoronfain]

Comme tu l'indique,
Ma fonction cherche la première occurrence du texte "Jour ouvré" dans la colonne précisée (Et c'est bien le but).
La colonne précisé utilise d'autre fonction qui indique si le jour est ouvré ou non.

Par contre en te lisant j'ai eu une idée, je vais ajouter le nom de ma feuille car je bouge sur plusieurs feuille régulièrement. Cela règlera peut-être le problème.

[Thoronfain]

J'ai rajouter le nom de la feuille dans ma fonction et je n'ai plus de problème.
Voici la fonction terminé :

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(feuil As String, 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 Sheet(feuil).Range(colonne & Ligne).Value = "Jour ouvré" Then
        lancement = Ligne
        Exit Do
    End If
    Ligne = Ligne + 1
Loop
End Function

Merci Patrice740 pour l'aide