Probleme de Dates

13exemple-tabdate.rar (12.46 Ko)

Bonjour,

Je cherche à entrer la date simplement en tapant que les 2 chiffres du jour uniquement.

Le formatage de la cellule date m'indique bien 10/01 par ex pour le mois de Janvier,

Mais pour les autres mois (onglets) ce résultat n'est pas possible par exemple pour Février 10/02, Mars 10/03 etc..

Comment faire ? , je précise que j'ai besoin de taper uniquement dans la colonne "date" indiquée ici la C .

Merci pour votre aide.

Excel 2016

Bonjour,

Dans le module du classeur (ThisWorkbook) tu colles ce code et tu testes pour vois si le résultat convient :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim Cel As Range
    Dim Jour As Integer
    Dim Mois As Integer
    Dim Annee As Integer

    Set Cel = Target.End(xlUp)

    If Cel.Value = "Date" Then

        Annee = Year(Date)

        With Sh

            Mois = Switch(.Name = "Janv", 1, _
                          .Name = "Fevr.", 2, _
                          .Name = "Mars", 3, _
                          .Name = "Avril", 4, _
                          .Name = "Mai", 5, _
                          .Name = "Juin", 6, _
                          .Name = "Juillet", 7, _
                          .Name = "Août", 8, _
                          .Name = "Sept.", 9, _
                          .Name = "Octobre", 10, _
                          .Name = "Novembre", 11, _
                          .Name = "Décembre", 12)

        End With

        Jour = Target.Value2

        Application.EnableEvents = False
        Target.Value = CDate(Jour & "/" & Mois & "/" & Annee)

    End If

    Application.EnableEvents = True

End Sub

Bonjour,

Cela ne marche pas

Merci

Re-bonjour,

En fait cela fonctionne parfaitement sur le fichier exemple. Mais pas sur mon fichier cible.

Lorsque je l'ai construit j'ai d'abord fait le mois de Janvier complètement et par la suite j'ai dupliqué l'onglet pour en faire les mois suivants. Logiquement cela ne devrait pas inter-agir puisque les onglets ont tous été renommés.

Je vais regarder cela de prés demain matin, le code est bon et surtout très pratique.

Merci encore.

Bonsoir,

une proposition :

les commentaires dans le code, avec mise en place de différents tests pour éviter des erreurs de saisie comme celle "toute bête" de feuilles multiples sélectionnées...Si on essaie de mettre le 29 février sur une année non bissextile, voir même un 31 ième jour à juin

@ bientôt

LouReeD

Bonsoir Theze & LouReeD

Bingo..

Cela marche du tonnerre. J'avais oublié de sélectionner toutes les cellules en restant simplement de C5 à C11.

Les codes sont simples et surtout très faciles à intégrer.

Pour LouReeD

Merci pour le petit tuto (cours) c'est grâce à la lecture du code que j'ai trouvé l'erreur.

Super travail de vous 2.

J'espère renvoyer l'ascenseur.

Bonne soirée et bon WK.

Merci @ vous pour ce retour ainsi que pour vos remerciements !

@ bientôt

LouReeD

@ bientôt

LouReeD

Rechercher des sujets similaires à "probleme dates"