XL 2016 Incrémentation d'une date automatique statique

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 !

RobyL

XLDnaute Junior
Bonjour,

je souhaite incrémenter une date dans un tableau lorsque j'écrit ok dans une case.
cette date ne bouge pas une fois que je l'ai valider.

je crois qu'il existe une formule mais là je pèche....

merci pour votre aide.
 

Pièces jointes

Solution
Re,

Voici dans le module de code de la feuille (click-droit sur le nom de la feuille puis 'visualiser le code')
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Not Intersect(Target, Range("Tableau1[Validation19]")) Is Nothing Then
        If UCase(Target) = "OK" Then
            Application.EnableEvents = False
            Target.Offset(, 1) = Date
            Application.EnableEvents = True
        End If
    End If
End Sub

Bien sûr il faudra adapter le nom du tableau et de la colonne (Range("Tableau1[Validation19]") si vous les changez dans la feuille.

Cordialement
Re,

Voici dans le module de code de la feuille (click-droit sur le nom de la feuille puis 'visualiser le code')
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Not Intersect(Target, Range("Tableau1[Validation19]")) Is Nothing Then
        If UCase(Target) = "OK" Then
            Application.EnableEvents = False
            Target.Offset(, 1) = Date
            Application.EnableEvents = True
        End If
    End If
End Sub

Bien sûr il faudra adapter le nom du tableau et de la colonne (Range("Tableau1[Validation19]") si vous les changez dans la feuille.

Cordialement
 

Pièces jointes

woua super solution.

Bonjour,
magnifique ça marche.
j'ai juste une requette si c'est possible.
la cellule où il ya le "ok" est une cellule avec un renvoie a une autre.
elle est incrémenter de : "=CALCUL!E4"
du coup cela ne fonctionne pas. il faut qu'il reconnais la valeur de cette cellule.

avez vous une solution ?
 
Bonjour,

Les questions à tiroirs (question dans la question dans la question....) ne sont pas pour moi.
J'ai répondu à la question telle que posée initialement avec l'exemple donné.
Je ne recommence pas.
 
Re,

Il faut utiliser l'évènement calculate de la feuille, et tester toutes les cellules de la colonne pour voir si après calcul de la formule, elles sont 'ok'.
Alors qu'avec l'évènement 'change' on ne teste que la cellule changée. Mais le calcul de formule, n'entraîne pas cet évènement.
Pensez à une autre solution.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
95
Réponses
1
Affichages
243
  • Question Question
Microsoft 365 Aide Excel formule
Réponses
4
Affichages
343
  • Question Question
Microsoft 365 Formule ou VBA
Réponses
6
Affichages
338
Réponses
12
Affichages
497
Retour