Aide sur planning auto [Forums - Espace Débutants] : myDearFriend! Excel Pages

Forums XLPages

Excel & VBA

Espace Débutants

Aide sur planning auto

« 1 2

Vous n'êtes pas connecté ! Identifiez-vous pour poster dans le Forum...

Re: Aide sur planning auto		#11
kelly Régulier XLPages Inscription: 05/11/2008 Messages: 53 Système d'exploitation: PC Version Excel utilisée: 2003	Posté le : 18-02-2009 02h18 Bonsoir, Grace à votre aide, j'ai un beau planning pour les voitures de mon entreprise. Cependant, mon supérieur souhaiterait qu'il soit inscrit en plus du nom, le lieu. Est-ce possible ? J'ai essayé de modifier le code. Cependant lors de la réservation, il inscrit seulement le lieu ??? Merci d'avance pour votre aide !!! Pièce jointe: copie PLANNING DES VOITURES.zip [ Taille: 72.86 Ko - Téléchargements: 831 ]

Re: Aide sur planning auto		#12
JCGL Accro XLPages Inscription: 23/05/2007 De Chamrousse Messages: 309 Système d'exploitation: PC Version Excel utilisée: 2013	Posté le : 18-02-2009 18h08 Bonjour à tous, Peux-tu essayer avec : Private Sub OK_Click() If Me.Nom = "" Or Me.Voiture = "" Or Me.Lieu = "" Then Exit Sub 'si les 2 combo "Nom" et "Voiture" sont vides, on sort de la procédure, 'tout en laissant l'usf visible If Application.Weekday(Me.DTPicker1, 2) > 5 Or _ Application.Weekday(Me.DTPicker2, 2) > 5 Then Exit Sub 'si on a choisi une date de week-end, idem If Me.DTPicker1 < [A6] + 6 And Me.DTPicker1 >= [A6] And Me.DTPicker2 <= [A6] + 6 Then 'si la date est bien dans l'onglet If Me.DTPicker1 > Me.DTPicker2 Then Exit Sub 'si le retour est antérieur au départ, on sort If Me.DTPicker1 = Me.DTPicker2 Then 'si les deux dates sont identiques If Val(Left(Me.Arrivée, Len(Me.Arrivée) - 3)) < Val(Left(Me.Départ, Len(Me.Départ) - 3)) Then Exit Sub 'si l'heure de retour est antérieure à l'heure de départ, on sort 'Left(Me.Arrivée, Len(Me.Arrivée) - 3) te donne le ou les chiffres anvant le h 'Val le convertit en nombre End If Lig = Application.Match(Me.Voiture, Range("A1:A32"), 0) 'on recherche le numéro de ligne de la voiture sélectionnée 'correspond à la fonction "EQUIV" d'une feuille Col = (Int(Me.DTPicker1 - [A6]) * 12) + 2 'comme tes journées tiennent sur 12 colonnes 'on retrance la date en A6 à la date du DTP1, qu'on multiplie par 12 'et on rajoute 2 car tes journées commencent en colonne C DerCol = (Int(Me.DTPicker2 - [A6]) * 12) + 2 'idem, pour le DTP2 Prem_Heure = Me.Départ.ListIndex + Col 'on détermine la colonne de départ 'Me.Départ.ListIndex donne l'index sélectionné, auquel on rajoute Col Der_Heure = Me.Arrivée.ListIndex - 1 + DerCol 'idem, ici le -1, car si retour à09h00, ce créneau est toujours valable If Cells(Lig, Prem_Heure).MergeCells Or Cells(Lig, Der_Heure).MergeCells Then 'si les cellules trouvées sont fusionnées MsgBox "Créneau déjà utilisé" 'on prévient que le créneau est déjà pris Exit Sub 'on sort End If With Range(Cells(Lig, Prem_Heure), Cells(Lig, Der_Heure)) .Merge 'fusion des cellules .Value = " Pour " & Me.Nom & " à " & Me.Lieu ' .Value = Me.Lieu 'on marque le nom et le lieu .Interior.ColorIndex = 33 'couleur Bleu .HorizontalAlignment = xlCenter 'on centre horizontalement .VerticalAlignment = xlCenter 'et verticalement .Font.Bold = True 'on met en gras End With Else MsgBox "La date entrée ne correspond pas à cette semaine" 'si la date n'est pas dans l'onglet Exit Sub End If Unload Me 'on décharge et on ferme l'usf End Sub A+ à tous Cordialement

Re: Aide sur planning auto		#13
bhbh Débutant XLPages Inscription: 19/04/2008 Messages: 16 Système d'exploitation: PC Version Excel utilisée: 2003, 2007	Posté le : 18-02-2009 22h19 Bonsoir Kelly, JC, le forum Kelly, JC a le triple mérite, d'une part d'avoir lu mon code, d'autre part, de l'avoir compris (pas toujours évident, quand le code provient d'une autre personne), et enfin de t'avoir donné une solution.... Qui plus est, cette solution fonctionne.... (mais là, tu as de la chance, c'est pas souvent......) Bonne soirée.....

Re: Aide sur planning auto		#14
kelly Régulier XLPages Inscription: 05/11/2008 Messages: 53 Système d'exploitation: PC Version Excel utilisée: 2003	Posté le : 19-02-2009 13h59 Bonjour, Encore une fois mille merci !!! Vous êtes géniaux !! Merci encore !

Re: Aide sur planning auto		#15
pierre3401 Débutant XLPages Inscription: 29/06/2011 Messages: 5 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 29-06-2011 17h51 Bonjour, Je me suis permis de reprendre le fichier de Kelly (dernière version) et de le mettre à ma sauce perso, par exemple mes plages horaires sont 07h30-10hy00, 10h00-12h00, 12h00-14h00 et 14h00-16h00... Il me reste quatre questions: 1/ Malgré lez code " If Cells(Lig, Prem_Heure).MergeCells Or Cells(Lig, Der_Heure).MergeCells Then 'si les cellules trouvées sont fusionnées MsgBox "Créneau déjà utilisé" 'on prévient que le créneau est déjà pris le message n'apparaît pas et la nouvelle réservation remplace l'ancienne 2/ Est-il possible, en modifiant le code de ne laisser séléctionner que les véhicules disponible pour une plage donnée? C-à-d, sir je veux réserver un véhicule le 01/07/2011 entre 07h30 et 12h00, je ne peus choisir que les véhicules non encore réserver pour cette date et ces heures-là. 3/ Est-il possible de réservere l'usage du bouton d'annulation au seul administrateur du fichier? Je m'explique, plusieurs personne font des réservation et le parc de véhicule est souvent full, dès lors certains annulent une réservation pour placer la leur (( 4/ Enfin, si ce fichier fonctionne bien sous exell 2003, sous 2007, il lance un déboguage me disant qu'il manque des bibliothèques d'ojets ?!? Merci pour votre aide.

Re: Aide sur planning auto		#16
pierre3401 Débutant XLPages Inscription: 29/06/2011 Messages: 5 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 22-08-2011 14h01 Bonjour, je me permets de relancer, n'ayant pas eu de réponse... entretemps, j'ai constaté un autre problème, au boulot, nous travaillons tous avec excel 2003 sp3, si le prog fonctionne bien pour la plupart d'entre-nous, ceratins on ce message lorsqu'ils veulent faire une réservation: "Object library invalid or contains réferences to object définitions that could not be found" Merci de votre aide... Ci-joint le lien ou télécharger mon fichier: Reservation vehicule1.zip Edité par pierre3401 le 22/08/2011 14:32:20

Re: Aide sur planning auto		#17
JCGL Accro XLPages Inscription: 23/05/2007 De Chamrousse Messages: 309 Système d'exploitation: PC Version Excel utilisée: 2013	Posté le : 23-08-2011 21h59 Bonjour à tous, Peux-tu vérifier, sur les postes "défaillants", si il n'y aurait pas, dans les Références du VBE (accessible par Alt F11 et Références), des références manquantes ? Je ne suis pas intervenu sur mDFXLPages depuis un certain temps donc il me faudra un certain temps pour tenter de répondre (et de me replonger dans cet univers) à cette demande issue d'un courriel suite à une réponse. A + à tous Cordialement

Re: Aide sur planning auto		#18
pierre3401 Débutant XLPages Inscription: 29/06/2011 Messages: 5 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 05-09-2011 07h38 Bonjour, En fait, sur le poste défaillant, j'ai essayé d'inscrire le fichier MSCOMCT2.OCX dans la base de registre (regsvr32 c:\windows\System32\MSCOMCT2.OCX), mais malheureusement je n'ai pas les droits d'accès... Le problème, est que le fichier est nommé en MAJUSCULE, alors que dans la base de registre, l'inscription existante est en minuscule, serait-ce là le problème ?

« 1 2

Vous n'êtes pas connecté ! Identifiez-vous pour poster dans le Forum...

Vous pouvez voir les sujets.

Vous ne pouvez pas débuter de nouveaux sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.

Qui consulte actuellement ce sujet ? 2 Utilisateur(s) anonymes