Formule Lundi_suivant

bonjour au forum,

J'utilisais une fonction qui maintenant pose des problèmes avec mon 'Thisworkbook'

je cherche une formule pouvant la remplacer.

il s'agit de trouver le lundi suivant une date.

'Function Lundi_suivant(jour)
        'Lundi_suivant = jour + 7 - WeekDay(jour) + 2
        'If WeekDay(jour) = 1 Then Lundi_suivant = Lundi_suivant - 7
'End Function

merci d'avance

amicalement.......Claude.

Bonjour,

Cette formule agit sur une feuille ou sur toutes les feuilles de ton classeur ?

A te relire

Dan

salut Dan,

sur une seule feuille et sur une seule cellule.

(cette question est liée au fil Thisworkbook ne fonctionne pas)

Claude.

re,

Vas dans VBA et dans la feuille concernée par cette formule tu mets ce code :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lundi_suivant As String
Dim jour As Byte
        Lundi_suivant = jour + 7 - Weekday(jour) + 2
        If Weekday(jour) = 1 Then Lundi_suivant = Lundi_suivant - 7
End Sub

La macro s'exécute sur le changement de sélection dans ta feuille.

A te relire

Dan

re,

je suis nul, çà marche pas.

j'ai mis en place ton code,

j'explique + clair :

en i45 j'ai une date jj/mmm/aa (qui peut changer)

en k50 je voudrai obtenir la date du lundi suivant. (c'est un départ graphique)

j'ai rentré en k50 : =lundi_suivant(i45) mais c'est pas çà !

comment faire ?

à te lire

Claude.

re,

je suis bloqué, que faire ?

Claude.

Salut le forum

Une formule sur la feuille en K50, pas besoin de fonction

=I45-JOURSEM(I45;3)+7

Mytå

Bonjour au forum,

Pourquoi faire simple !!!!!!!!

Merci Mytå , tu m'as sauvé le coup .

Amicalement

Claude.