Agenda et réservation Version 14

[JM27]

Agenda et réservation - Réservation d'objets

Cette application permet de créer des réservations d'objets, avec bon de réservation imprimable , envoi par email , etc.
Le nombre d'objets n'est pas limité.
Le code source est ouvert , ce qui permet de lire , de modifier ou d'améliorer le code.
Merci à ceux qui souhaiterait le mettre sur leur site (sans en faire le commerce) de le laisser...

Lire la suite...

 

[JM27]

Bonjour
Petite évolution du fichier
Ajout de la possibilité de réserver plusieurs objets en une seule fois ( aux mêmes dates de réservation)

 

[JM27]

JM27 updated Agenda et réservation with a new update entry:

Ce lien n'existe plus

Bonjour
une petite évolution pour permettre de réserver simultanément plusieurs
objets ( aux même dates)

Ce lien n'existe plus

 

[JM27]

JM27 updated Agenda et réservation with a new update entry:

Ce lien n'existe plus

Bonjour
une petite évolution pour permettre de réserver simultanément plusieurs
objets ( aux même dates)

Ce lien n'existe plus

 

[JM27]

Bonjour
une petite évolution pour permettre de réserver simultanément plusieurs
objets ( aux même dates)

 

[Toubabou]

Bonjour JM27,
Je viens de regarde votre fichier "Agenda et réservation". A nouveau super intéressant
Je suis particulièrement intéressé par la prise en charge de la molette, que j'aimerai inséré dans un de mes fichier [(ici Botanique test), (cliquez sur l'image en bas à gauche pour avoir accès au menu

)]. Pourriez-vous me conseiller pour insérer cette fonction?

Mon fichier est accessible à l'adresse suivante:

Lien du fichier:

898.32 MB folder on MEGA

483 files and 7 subfolders

mega.nz

Clé de déchiffrement:
5zgPbrOLpv2VCll2K_frPg

Amicalement
Jean-Marie

 

[JM27]

Bonjour
Je ne te conseille pas d'utiliser la molette de la souris pour les déroulants?
cela rend excel instable.( je l'ai remarqué sur d'autres appli) et dorénavant je ne l'utilise plus
utilises plutôt un recherche intuitive.( qui existe aussi dans ce fichier)

 

[Toubabou]

Re,
Je te remercie pour l'information .
Bonne journée

 

[JM27]

bonjour
Ton fichier c'est une usine à gaz
ci joint déroulant avec saisie intuitive:

Private Sub Fiches_botanique_Change()
If Me.Fiches_botanique.ListIndex = -1 Then
        Me.Fiches_botanique.Clear
        With Sheets("Listes")
                For Each Cell In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
                   'If StrConv(Left(cell, Len(Me.ComboRéférence)), vbUpperCase) = StrConv(Me.ComboRéférence, vbUpperCase) Then
                   If StrConv(Cell, vbUpperCase) Like "*" & StrConv(Me.Fiches_botanique, vbUpperCase) & "*" = True Then
                        Me.Fiches_botanique.AddItem (Cell)
                    End If
                Next
      End With
     Me.CommandButton5.SetFocus
     Me.Fiches_botanique.SetFocus
     Me.Fiches_botanique.DropDown
             If Me.Fiches_botanique.ListCount = 1 Then
                    Me.Fiches_botanique.ListIndex = 0
                    MsgBox " fiche trouvée"
                   
                    Me.Fiches_botanique.SetFocus
             ElseIf Me.Fiches_botanique.ListCount = 0 Then
                MsgBox " fiche inexistante"
                Me.Fiches_botanique = Left(Me.Fiches_botanique, Len(Me.Fiches_botanique) - 1)
            Else
                Exit Sub
            End If
    Exit Sub
  End If
If noevents = True Then Exit Sub
Chemin = ThisWorkbook.Path & "\Documents\Fiches botanique\"            ' REMETTRE TON chemin ICI
Direction = Dir(Chemin & "*.pdf")
'MsgBox "Voulez-vous voir la fiche?"
Do While Len(Direction) > 0
fichierpdf = Fiches_botanique & ".pdf"
If Direction = fichierpdf Then
fic2open = Chemin & fichierpdf
OuvrirFichier (fic2open)
  GoTo Fin
End If
Direction = Dir()
Loop
Fin:
noevents = False
'Fiches_botanique = ""
noevents = True
Application.Visible = True
'UserForm1.Hide

Application.WindowState = xlMinimized

End Sub

et rajouter

Private Sub Fiches_botanique_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Fiches_botanique = "" Then
        Fiches_botanique.DropDown
    End If
End Sub

et pour finir changer la propriété de la combo MatchEntry en 2- FrmmatchEntryNone

 

[Toubabou]

Re,
Pourquoi une usine à gaz?

 

[JM27]

bonjour
je trouve que c'est bien complexe, et que j'ai été obligé de quitter excel avec des ctrl/alt /supp.
après avoir lancé ton appli.
J'ai essayé de comprendre , mais il y a des chose bizarres
mais chacun voit midi à sa porte
Si cela te conviens pas de pb.

 

[Toubabou]

Le code m'a été fait ainsi. Maintenant j'accepte toutes nouvelles idées

 

[JM27]

Bonjour
ci joint une version avec le PicDate de Pierre-Jean et Modeste Gee-Dee
Et avec une feuille ou l'on peut visualiser les réservations d'objets , un jour donné

 

[a.cotw]

Bonjour
une petite évolution pour permettre de réserver simultanément plusieurs
objets ( aux même dates)

Bonjour, j'ai ouvert le fichier avec Mac mais un message d'erreur apparait, vous avez une idée ?

 

[JM27]

bonjour
je te propose de prendre le fichier du #13.
( il n'y a plus d'api dans ce fichier)