XL 2010 Formule et Userform

[Christram78]

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.

 

[jpb388]

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

 

[Christram78]

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

 

[Christram78]

Re-bonjour !!
J'aimerais faire un contrôle sur le véhicule, si il n'y a pas de date de retour alors il ne peut pas être a nouveau mis à disposition est ce possible ?

 

[jpb388]

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]

Bonsoir @Christram78 @jpb388 , le Forum

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

(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

 

[Christram78]

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]

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

 

[Christram78]

@_Thierry, je viens de regarder et comme je suis novice et bien je ne comprends rien !!! Je suis vraiment désolée.

 

[_Thierry]

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 :

La Yamaka_Nikken n'apparaitra plus dans la Liste :

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

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

 

[Christram78]

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]

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

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]

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]

bonjour @jpb388,
merci beaucoup pour ce fichier il est super!!
je vais l'utiliser et voir au fur et à mesure s'il y a des modification à y apporter.
Très belle journée.

 

[Christram78]

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.