Saisie semi intuitive comme google

Bonjour,

... ou est-ce que je pourrais trouver un format de calendrier un peux plus sexy? ...

Dans de l'huile de coudre ... c'est-à-dire que tu peux le sexyser ...

Sur ce forum ... il y a plusieurs personnes qui ont eu leur interprétation sur sexysisme.

En haut du forum, il y a un bel outil de recherche.

L'avantage et la difficulté ici sont la trop grande quantité de données.

Quand tu auras trouvé la version qui te conviendra ... je pourrai t'aider à l'intégrer si besoin est.

Si tu es verni, les sexyseurs te proposeront quelques interprétations leur fantasme.

Tout en écrivant, j'ai repensé au "fils d'acier" (Steelson) qui en propose un excellent dans les téléchargements ... voir s'il te convient ...

https://www.excel-pratique.com/fr/telechargements/calendriers/saisie-date-excel-no458

ric

Merci mais je doit être aveugle, j'ai téléchargé le fichier mais je trouve pas l'objet calendrier dans le fichier?!?

Bonjour,

Fais un double clic sur D5 en jaune pour avoir un aperçu.

S'il est suffisamment sexy ... ouvre ton fichier en parallèle > va dans VBE > glisse ModuleCalendrier sur ton fichier (toujours en VBE).

Sans quitter VBE > regarde dans "Feuil5(_saisie_date) > comment c'est codé pour placer la date en D5.

Dans ton fichier à toi > ce sont E14 et E16 au lieu de D5.

Il restera une dernière étape > la bidouille > date antérieure et postérieure.

Si le calendrier te convient, je pourrai t'aider à extraire cette partie du code pour l'inclure dans le nouveau calendrier.

En passant > est-ce que ces deux dates peuvent être le même jour ? Ou, c'est forcément au plus tôt le lendemain ??

ric

Ah ok merci, oui ça peut être la même date

Bonjour,

Tu cherchais le nouveau calendrier ... il n'y en a pas, il n'y a que du code.

Quand on le démarrer, le calendrier se construit (des shapes) ... puis quand on le ferme, il se supprime.

En passant ... Merci à Steelson pour le calendrier ...

Est-ce que tu as fait tes devoirs ? Je l'espère ...

En VBE > dans "Feuil1(Formulaire rechercher)" > remplace cette macro >

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True

    Set zSaisie = Range("E14")
    If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then
        ModuleCalendrier.affichercalendrier
        Exit Sub
    End If

    Set zSaisie = Range("E16")
    If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then
        ModuleCalendrier.affichercalendrier
        Exit Sub
    End If
End Sub

Puis dans "ModuleCalendrier" > remplace cette macro >

Sub ChoixDate(quand)
On Error Resume Next ' cas où le calendrier est resté actif à la fermeture
Dim Sh As Object

   If Not quand = 0 Then
        If MSjour.Address = "$E$16" And ActiveCell.Offset(-2, 0) > 1 Then
            If quand >= ActiveCell.Offset(-2, 0) Then
                ActiveCell = quand
                GoTo FIN
            Else
                MsgBox " Cette date doit être postérieure à la "" date de début "". "
                Exit Sub
            End If

        ElseIf MSjour.Address = "$E$14" And ActiveCell.Offset(2, 0) > 1 Then
            If quand <= ActiveCell.Offset(2, 0) Then
                ActiveCell = quand
                GoTo FIN
            Else
                MsgBox " Cette date doit être antérieure à la "" date de fin "". "
                Exit Sub
            End If
        Else
            ActiveCell = quand
        End If
    End If
FIN:
    Set MSjour = Nothing
    For Each Sh In ActiveSheet.Shapes
        If Left(Sh.Name, Len(prefixe)) = prefixe Then Sh.Delete
    Next
End Sub

Étant donné que je suis sûr que tu vas réussir >

Ceci est à coller en haut à droite de ton travail > TRÈS BIEN

ric

Tout fonctionne parfaitement, merci beaucoup.

Je vais faire sensation en retournant au boulot, grâce à toi.