Validation des données date

barou_sanogo Messages postés 26 Date d'inscription mercredi 10 mars 2004 Statut Membre Dernière intervention 16 décembre 2023 - 14 déc. 2023 à 21:56
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 - 16 déc. 2023 à 11:04

Bonjour,

J'ai utilisé ce code pour l'automatisation des dates. Il fonctionne parfaitement.

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim h, iSct As Range
  
  Application.EnableEvents = False
  If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Value = "" Then
      Target.Offset(0, 1) = ""
    Else
      Target.Offset(0, 1) = Format(Now, "mm/dd/yy")
    End If
    
  End If
  If Not Application.Intersect(Target, Range("AH:AH")) Is Nothing Then
    If Target.Value = "" Then
      Target.Offset(0, 3) = ""
    Else
      Target.Offset(0, 3) = Format(Now, "mm/dd/yy")
    End If
  End If
  Application.EnableEvents = True
    
End Sub

J'ai essayé d'ajouter "la validation des données - option date", la fonction ne marche pas.

Un coup de main SVP.


A voir également:

7 réponses

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié le 14 déc. 2023 à 22:47

Bonjour,

Ce code fonctionne correctement si j'entre une donnée en colonne A:A et/ou en AH:AH

J'obtient la date en colonne B et/ou AK...!


0
barou_sanogo Messages postés 26 Date d'inscription mercredi 10 mars 2004 Statut Membre Dernière intervention 16 décembre 2023
Modifié le 14 déc. 2023 à 23:49

Bonjour,

C'est bien ce que j'ai écrit.

Le problème et que ne parviens pas à mettre la plage de date (Ex: debut: 01/12/2023 fin: 31/12/2023) en marche avec "Validatation de données - Option: DATE".

Quand j'enleve le code, la fonction marche parfaitement mais pas avec.

La raison pour cette option est que des nouveaux agents (stagiaires pour la plupart) ont tendence à toujours saisir la date et souvent il y'a des erreurs.

0
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
15 déc. 2023 à 16:37

Bonjour,

J'ai compris que lorsque l'on entre une donnée dans la colonne A:A alors la macro enregistre la date du jour dans la colonne B:B et de même pour une entré de donnée en colonne AH:AH avec date dans colonne AK:AK . Votre macro insère la date sous forme ‘mm.jj.aa’ (12.15.23) et c’est ceci qui n’est pas correct car vous voulez avoir la forme ‘mm/jj/aa’ (12/15/23).

Est-ce bien cela que vous voulez ou il s’agit d’autre chose… ?


0
barou_sanogo Messages postés 26 Date d'inscription mercredi 10 mars 2004 Statut Membre Dernière intervention 16 décembre 2023
15 déc. 2023 à 17:46

Bonjour,

Il s'agit de faire en sorte que l'agent de saisie qui tire la date (souvent) ne puisse atteindre 2024.

0
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
15 déc. 2023 à 17:49

Bonjour,

Dans l'attente de votre réponse, je vous propose ceci:

Mettre les colonne B:B et AK:AK avec le format personnalisé comme suit:

  Et modifier les 2 lignes de code comme suit:

'pour colonne B
Else
        Target.Offset(0, 1).Value = Now

' pour colonne AK

Else
        Target.Offset(0, 3) = Now

0
barou_sanogo Messages postés 26 Date d'inscription mercredi 10 mars 2004 Statut Membre Dernière intervention 16 décembre 2023
15 déc. 2023 à 18:05

Bonjour,

Il s'agit de faire en sorte que l'agent de saisie (qui tire la date souvent) ne puisse atteindre 2024.

0
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié le 15 déc. 2023 à 18:18

Bonjour,

A lire votre réponse poste 4 et 6, je pense que ma proposition du poste 5 n'est pas du tout ce que vous voulez...!

Il en vas de même puisque vous ne répondez pas  au poste 3 !

Note: pourquoi utiliser  une macro pour insérer une date si ensuite l'agent de saisie va la tirer ?????


0

Bonjour,

La capture d'ecran de ce que je veux éviter

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
15 déc. 2023 à 18:47

Bonjour;

Vous ne répondez pas à mes questions postes 3, 5 et 7..


0
barou_sanogo Messages postés 26 Date d'inscription mercredi 10 mars 2004 Statut Membre Dernière intervention 16 décembre 2023
15 déc. 2023 à 19:27

Bonjour,

Veuillez excuser, j'ai essayé ces options sans résultat.

0
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
15 déc. 2023 à 23:00

Bonjour,

Et pour ceciNote: pourquoi utiliser  une macro pour insérer une date si ensuite l'agent de saisie va la tirer ?????

Je pense que je n'ai rien compris de ce que vous voulez, peut être que la mise à disposition du fichier sur  Accueil de Cjoint.com Et poster le lien me permettra de vous comprendre !


0
barou_sanogo Messages postés 26 Date d'inscription mercredi 10 mars 2004 Statut Membre Dernière intervention 16 décembre 2023
16 déc. 2023 à 08:11

Bonjour,

Je pense que l'explication se trouve à la question 8 ; mais je vais envoyer en pièce jointe.

Merci.

0
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié le 16 déc. 2023 à 11:22

Bonjour,

Eh bien non ceci est juste une copie partielle sans description (pas indication de lignes et colonnes) de la structure complète.

Une fois de plus vous ne répondez pas à  : pourquoi utiliser  une macro pour insérer une date si ensuite l'agent de saisie va la tirer ?????

Et quelle est le lien avec votre copie d'écran partielle?

A bien plaire  ma simulation selon poste 1 : https://www.cjoint.com/c/MLqkwksYRnZ


0