Microsoft 365 Remplir automatiquement une cellule (de 9 à 12 jours après selon le contenu d'une autre cellule)

[sebastien176]

Bonjour à tous,

Une nouvelle fois, j'ai besoin de votre aide
Dans le tableau ci-joint, j’ai besoin d’écrire automatiquement "à faire" de 9 à 12 jours après si le contenu d'une cellule est = à "ok" (ex ci-dessous)

Merci par avance de votre aide et bonne journée

Sébastien

 

[Phil69970]

Bonjour @sebastien176

Je te propose ce fichier

Mais que fais tu ici car cela déborde

*Merci de ton retour

@Phil69970

 

[sylvanu]

Bonjour Sébastien,
Un essai en PJ avec dans Modele 1:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D6:E376")) Is Nothing Then
        Application.ScreenUpdating = False
        Dim i%
        If LCase(Target) = "ok" Then    ' Si ok entré
            For i = 0 To 3              ' Répéter 4 fois "A faire" 9 jours plus tard
                Cells(Target.Row + 9 + i, Target.Column) = "A faire"
            Next i
        End If
    End If
End Sub

Il écrit ex abrupto dans les cellules même si cellules ci sont non vides.

 

[sebastien176]

Merci à vous deux pour ce retour très rapide

Comme d’habitude vous êtes excellents

Je vais retenir la solutions de Sylvanu qui est en application auto et pas en macro avec bouton (cela convient mieux pour mon utilisation)

Par contre (après essai),jJe vois que le code continu après le calendrier
Y a t-il quelque chose à faire pour qu'il ne puisse pas continuer après la dernière date du tableau ?

Merci pour ton retour

Seb