Saisie des dates sans les slashs

Bonjour,

Voici un fichier excel permettant de calculer des reconstitutions de carrière dans notre convention collective que j'avais élaboré avec votre aide.

J'ai une nouvelle demande, une personne doit en faire un très grand nombre et souhaiterait que quand elle tappe la date en jjmmaaaa et fasse entrée cela se traduise en date jj/mm/aaaa pour les cellules suivantes :

c8, d15,d16,e15,e16,etc,c21

J'ai bien trouvé des discussions sur ce sujet mais je n'ai pas réussi à le faire.

Pouvez-vous m'aider svp?

Vous en remerciant par avance.

WILHELM Frédéric

Bonjour Frédéric38360

Ce genre de sujet a déjà été abordé, mais pause un problème sérieux

Comment être certain que la personne va saisir les nombres correctement et pas JMMAA ou JJMAA ou JMAAAA !?

Bon sinon, voici un début de possibilité avec l'évènement Change dans ThisWorkbook

A+

Bonjour JExceL2fr, cela a marché sur une ou deux date puis ça a fait debogage et c'est tout cassé.

Voici ce que ça donne.

Merci d'avance pour votre aide.

Frédéric

Bonjour,

cela a marché sur une ou deux date puis ça a fait debogage et c'est tout cassé.

Oui logique car une fois le code exécuté la première fois, la cellule modifiée est au format de date et lors de la deuxième exécution du code la valeur Target existante est au format date. Ce qui fait planter le code.

Allez dans le code Private Sub Workbook_SheetChange proposé par JExcel2FR, ajoutez cette ligne juste avant chaque ligne où vous avez l'instruction CONVDATE TARGET

Target.NumberFormat = "General"

Cela remet la cellule concernée au format standard qui permet au code de continuer sans plantage

Cordialement

Edit: j'aurais aussi apporté une ou deux modifications pour éviter les problèmes en cas d'erreur d'entrée de date. Attendons peut-être le retour de Jexcel2Fr qui s'occupe de votre demande

Salut à tous,

Frédéric38360, JExcel2fr, et Dan, il est vrai qu'une saisie de date sans les slashs dans une case prévue pour des dates s'approche de l'impossible, mais Excel détecte toute action dans les cellules, alors je me suis dit que si on crée la saisie ailleurs dans les feuilles (Sans slash) puis on déverse la date saisie avec des slashs cela pourrait être viable.

J'ai donc repris le programme, j'ai rajouté des cases vertes pour la saisie "SANS SLASH" qui se déversent automatiquement dans les cellules prévues à l'origine

Je vous joins le fichier, il est à torturer, les opérations dans les autres cellules non pas été touchées

Bonjour

Bah je trouve cela plus compliqué et de plus vous mettez deux codes Change au lieu d'un seul

En mettant un seul code dans Thisworkbook, le code sera exécuté sur les cellules définie dans les lignes Intersect et pas ailleurs

De mon coté j'attends de voir ce que Frederico va dire.

Crdlt

Hello,

je trouve la demande compliqué et les réponses encore plus pour juste éviter une saisie de slach

Sur un clavier de fixe (un 102 et quelques touches) le slach se trouve sur le pavé numérique, donc, à moins que vous ayez qu'un clavier sans pavé numérique vous avez un nnnnééééééénnnoorrrmmme risque d'erreur de saisie si vous ne séparez pas les jours mois et années (nb : les pavés numériques seuls existent et coûte moins de temps -donc d'argent- que de corriger les erreurs)

11120 c'est quoi ? 11/1/2000 ou 1/11/2000 ou 11/12/2000 moi je vois mal comment ça peut s'automatiser.

Une possibilité, saisir avec les 0 non significatif, mais du coup ça rallonge la saisie 011120 et oblige à saisir toujours 6 chiffres et du coup "20" c'est 19"20" ou "20"00

Pour éviter cette erreur il faudrait donc saisir l'année en entier en plus des 0 non significatifs : 01112000 (8 caractères) au lieu de saisir 1/11/20 (7 caractères et peu/aucun risque d'erreur)

OK, vous n'aimez pas le slach, saviez vous que vous pouvez aussi utiliser le "-" ? 1-12-20 donne 01/12/2000 et pour différencier 1920 de 2000 il suffirait de saisir l'année en entier

Bref, ça me semble bien des complications et beaucoup de risque d'erreur pour gagner quelques milli secondes

Essayez cet exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge <> 1 Then Exit Sub
 If Intersect(Target, Me.Range("C8,C22,D15:E17")) Is Nothing Then Exit Sub
 If IsDate(Target) Then Exit Sub
 Application.EnableEvents = False
 On Error GoTo mFin
 Dim v As Long
  v = Int(Target.Value2)
  If (VarType(Target.Value2) = vbDouble) And (Left(Target.Text, 1) = "#") Then
    Target.Value = CDate(Format(v, "00/00/0000"))
  Else
    Target.Value = CVErr(xlErrNA)
  End If
mFin:
If Err Then
  Target.Value = CVErr(xlErrNA)
End If
Application.EnableEvents = True
End Sub