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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sebastien176

XLDnaute Junior
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)

1645088469830.png


Merci par avance de votre aide et bonne journée 😉

Sébastien
 

Pièces jointes

Bonjour Sébastien,
Un essai en PJ avec dans Modele 1:
VB:
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.
 

Pièces jointes

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
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Retour