Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2016Incré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 !
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.
Une formule ? Pour ça, je ne crois pas.
Par contre un simple raccourci clavier : CTRL+; (Contrôle + Point-virgule) vous mettra la date dans la cellule de votre choix.
Cordialement
P.S. C'est obligatoire les majuscules dans votre titre ????? Ca casse les oreilles. Corrigez-le
un autre classeur valide et incrémente la case où il est marquer "ok" mais je doit savoir à quel date ce ok apparais dans cette case. surement en VBA alors.
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.
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.
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.
oui en effet et bravo comme je l'ai dit dans mon dernier message.
je penssais que juste changer l'info prise dans la cellule c'est à dire la valeur était pas trop complexe.
il faut que je crée une autre discution alors...
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