Agenda et réservation

Agenda et réservation Version 14

JM27

XLDnaute Barbatruc
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...
 
Dernière modification par un modérateur:

JM27

XLDnaute Barbatruc
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

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

Pièces jointes

  • Agenda et réservations 18042017.xlsm
    339.1 KB · Affichages: 570

Toubabou

XLDnaute Impliqué
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
MOOC.JPG
)]. Pourriez-vous me conseiller pour insérer cette fonction?

Mon fichier est accessible à l'adresse suivante:

Lien du fichier:

Clé de déchiffrement:
5zgPbrOLpv2VCll2K_frPg

Amicalement
Jean-Marie
 

JM27

XLDnaute Barbatruc
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)
 

JM27

XLDnaute Barbatruc
bonjour
Ton fichier c'est une usine à gaz ;)
ci joint déroulant avec saisie intuitive:
VB:
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

Code:
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
 

JM27

XLDnaute Barbatruc
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.
 

JM27

XLDnaute Barbatruc
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é
 

Pièces jointes

  • Agenda et réservations new03082020.xlsm
    335.2 KB · Affichages: 169
Dernière édition:

a.cotw

XLDnaute Nouveau
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 ?
 

Pièces jointes

  • Capture d’écran 2021-04-08 à 11.49.35.png
    Capture d’écran 2021-04-08 à 11.49.35.png
    112.1 KB · Affichages: 56

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL