XL 2010 Formule et Userform

Christram78

XLDnaute Nouveau
Bonsoir,
Besoin d'aide pour une formule
Dans mon onglet "Planning quotidien" j'aurais besoin de prendre en compte le dernier véhicule attribué à chaque personne. Pour le moment, je n'ai fait qu'une petite rechercheV avec l'onglet "suivi" mais il faudrait prendre en compte la date la plus récente.
Pouvez-vous m'aider??

Est-ce qu'il est possible d'insérer un numéro automatique à chaque ouverture de formulaire "RESERVATION"? Et si oui, peut-on avec l'onglet IMPRIMER (pas encore paramétrer!!) créer un fichier PDF qui serait enregistrer avec ce même numéro automatique ?

Dernière petite question, est ce qu'on peut insérer une photo dans un userform?

Très bonne soirée.
 

Pièces jointes

  • suivi planning et véhicules 2.xlsm
    59.8 KB · Affichages: 15

jpb388

XLDnaute Accro
bonjour à tous
j'ai modifié la macro valider pour que ton entrée s'affiche en haut de la table
ta formule prenant la première occurrence qu'il rencontre tu auras ainsi la plus récente
numéro automatique= pas fait mais oui on peut
pdf = pas fait mais oui si imprimante pdf par défaut
photo = sélectionne une voiture et les images changent
 
Dernière édition:

Christram78

XLDnaute Nouveau
Bonjour,
Il faudrait effectivement un numéro automatique pour que je puisse enregistrer le userform en PDF avec ce numéro, est-ce possible ?
Pour les photos nickel, merci beaucoup. Par contre, il me faudrait 6 encarts pour les photos. Elles serviront d'état des lieux lors de la remise du véhicule. Du coup je ne sais pas si ma demande est réalisable ??
Merci beaucoup pour le temps que vous avez passé sur mon dossier, j'ai bien avancé.
Très belle journée
 

jpb388

XLDnaute Accro
Bonjour à tous
pour le numéro on peux se servir de fiche numéro et tu veux mettre quoi en PDF

pour les photos j'ai mis une toupie ainsi tu as tes 6 photos au même endroit
voiture si tu sélectionnes la 29 et la 30 tu auras un message
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir @Christram78 @jpb388 , le Forum

Je n'ai pas ouvert le Fichier XLSM avec ce genre de warning à l'ouverture :
1590175202085.png

(Sur Office 2013 Pro Plus 32, Windows 8.1 Pro 64) Je me demande bien ce qu'il y a comme activeX mal vu ?

Mais donc je me suis "fait plaisir" en ne me basant que sur que j'ai lu... Et en partant de zéro la tête à Toto!
Je pense que ca devrait vous donner des bonnes "pistes"...

Idem dézipper le tout dans le même répertoire de test pour avoir les images...

Bonne découverte
@+Thierry
 

Pièces jointes

  • XLD_.Christram78_DEMO_USF_Picture_PDF_Etc_V00xlsm.zip
    271.7 KB · Affichages: 16
Dernière édition:

Christram78

XLDnaute Nouveau
Bonsoir @jpb388 et @_Thierry ,
Merci pour votre aide, je viens de faire le point avec mon directeur et nous avons reconfigurer le userform, plus de photo de véhicule…
Cependant, il faudrait toujours un numéro automatique qui se créé à chaque réservation.
Il faudrait un contrôle sur le véhicule quand celui-ci est en révision ou en contrôle technique.
Je pense que cela doit être possible.
Très bonne soirée à vous.
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir @Christram78 le Fil, le Forum

Donc c'est bon pour le numéro automatique tu l'as dans la Version XLD_.Christram78_DEMO_USF_Picture_PDF_Etc_V00.xlsm

Je ne sais pas si excel est déjà capable par contre de faire le contrôle technique du véhicule lui-même ;)
Mais si on lui dit, "pas dispo", il saura le gérer...
Bon courage
@+Thierry
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Re Bonsoir

Regarde la feuille historique, c'est elle qui contient les numéros de "contrats"...
Et pour "Pas Dispo" il suffirait de l'indiquer dans la Feuille en "simulant" un contrat comme suit :

1590425845638.png


La Yamaka_Nikken n'apparaitra plus dans la Liste :

1590425734161.png

Tant qu'elle n'aura pas une date de retour...

Je pense que tu devrais comprendre...
Bien à toi, à vous
@+Thierry
 

Christram78

XLDnaute Nouveau
Re Bonsoir

Regarde la feuille historique, c'est elle qui contient les numéros de "contrats"...
Et pour "Pas Dispo" il suffirait de l'indiquer dans la Feuille en "simulant" un contrat comme suit :

Regarde la pièce jointe 1068251

La Yamaka_Nikken n'apparaitra plus dans la Liste :

Regarde la pièce jointe 1068250
Tant qu'elle n'aura pas une date de retour...

Je pense que tu devrais comprendre...
Bien à toi, à vous
@+Thierry
Ok je vais regarder cela demain matin à tête reposée.
Merci beaucoup et bonne soirée
 

jpb388

XLDnaute Accro
Bonjour Thierry,Christram,le forum
dans le 5 j'avais mis cette phrase
voiture si tu sélectionnes la 29 et la 30 tu auras un message
voici la macro ci dessous

VB:
Private Sub ComboBox2_Change()
  Dim Lg&
  On Error Resume Next
    Lg = Range("TabSuivi[Véhicule]").Find(Me.ComboBox2.Text).Row - Range("TabSuivi").Row + 1
    If Range("TabSuivi[Date de retour]").Cells(Lg) = "" Then _
      MsgBox "Ce véhicule est en utilisation", vbInformation + vbOKOnly, "Sélection Non Valide": Exit Sub
  On Error GoTo 0

End Sub

si ta voiture est en service un message s'affiche
tu adaptes cette macro à n'importe quelle colonne
 

jpb388

XLDnaute Accro
Bonjour à tous

J’ai remodelé le formulaire

Tu commences par choisir si c’est une mise à disposition ou un retour

Les labels se mettent à jour

Ajout calendrier pour la saisie date

Les listes déroulantes te proposent une liste selon ton choix

Exemple

Pour les voitures MAD

Toutes les voitures apparaissent sauf celles qui n’ont pas de date retour

Pour les retours

Seules les voitures mise à disposition sont listées

Pour les salariés s’il n’a pas le permis la mention « conducteur « n’apparait pas

La numérotation est faite

Le PDF est enregistré comme suit :

Mise à disposition =MAD + numérotation

Retour=Ret + numérotation

Il y a surement des améliorations à faire (garde-fou ou autre) à toi de voir
 

Christram78

XLDnaute Nouveau
Bonjour @jpb388 , et le forum
Le fichier est au top, cependant je ne peux saisir que les conducteurs car une fois que le véhicule est sélectionner en départ, il n'apparait donc plus et je ne peux donc plus saisir les autres passager. Comment dois-je procéder pour remédier à ce problème?

Pour le planning quotidien dans la colonne véhicule, voici ce que j'ai indiqué comme formule pour avoir le dernier véhicule mis à disposition pour le salarié en fonction de la dernière date la plus à jour
=SIERREUR(INDEX(TabSuivi[Véhicule];EQUIV(1;(TabSuivi[Date de MAD]=TEXTE(GRANDE.VALEUR(SI((TabSuivi[Salarié]=[Salarié])*(TabSuivi[Date de MAD]<>"");DATEVAL(TabSuivi[Date de MAD]));1);"jj/mm/aaaa"))*(TabSuivi[Salarié]=[Salarié]);0));"")

mais ça ne fonctionne pas et je ne vois pas d'où provient l'erreur.

Bonne journée.
 
Dernière édition: