Modification code userform

Bonjour, dans mon userform réservation des véhicules j'aurai besoin de votre aide pour modifier le code du bouton enregistrer la réservation.

je voudrais supprimer le double click sur LV5 et vérifier directement dans cette feuille qu'il n'y ai pas de réservation aux heures et dates choisies au préalable dans l'userform et ensuite si crenaux disponible copier données vers feuille synthèse et colorer dans la feuille LV5 la réservation avec le nom.

Merci de votre aide....

Bonjour Reglaet,

ci-jointe une proposition

https://www.cjoint.com/c/HCvoTvOd5xA

NB: J'ai converti votre liste de réservation (feuille Synthèse) en objet tableau

Bonjour Thev,

Merci pour tes modifications et en plus super bien structuré c'est bien plus compréhensible.

par contre c'est le fichier reservation de vehicule que j'utilise que je voudrais modifier pour faire un programme de reservation d'un lieu de vie donc je n'aurais qu'une seule feuille de reservation et du coup j'aurai souhaiter supprimer la fenetre de mon userform listboxvh....

je voudrais simplement cliquer sur reserver et que ca fasse le test pour voir si la réservation est possible et si oui colorer mon planing de reservation et enregistrer les données dans la synthèse....

ensuite j'aurai aimer faire un peu comme le logiciel " chamho "de LouReeD qui est tres bien conçus mais trop complet pour mon utilisation .

reprendre simplement l'utilisation de 4 couleurs lors de l'enregistrement

  • rouge foncé : réservé mais non payé
  • vert : réservé et payé
  • violet : réservé, payé et au moins une journée déjà écoulée
  • rouge vif : réservé, non payé et au moins une journée déjà écoulée quand on clique sur la réservation j'ouvre l'userform pour voir la et quand on click sur une reservation ouverture fenetre de consultation avec possibilite de modifier ou supprimer.

voila mon projet mais pour le moment je bute sur la suppression de listvox vh....

je remets le fichier avec l'userform un peu modifier par contre il me faudrait transposer le code que tu ma deja modifier en supprimant la listboxvh puisque j'ai qu'une feuille et en intégrant les 4 couleurs ....

un grand merci pour ton implication une fois de plus....

Bonsoir,

ci-jointe nouvelle version

https://www.cjoint.com/c/HCwq1MYGfBI

Bonjour Thev,

Merci pour cette nouvelle version par contre j'ai une erreur sur la feuille LV 5 je n'ai pas les dates qui s'affiche en colonne A et quand je valide ma reservation j'ai un msgbox qui me dit que ces lignes de réservations contiennent des dates non affichables sur le planning 7...

Bonjour,

Le problème venait d'une procédure de constitution des dates de la feuille LV5 déroulée à l'ouverture du fichier. J'ai désactivé cette procédure. Désormais toutes les dates de la feuille LV5 dépendent de la première (ligne 4). Version corrigée.

https://www.cjoint.com/c/HCxjKKwYyLJ

NB: je ne sais pas ce que voulez exactement conserver de votre version initiale mais il serait mieux d'enlever ce dont vous n'avez pas besoin dans les procédures d'ouverture et de fermeture du classeur.

merci pour la modification je vais faire un peu de tris....

je bloque sur une formule dans la feuille menu en I 25 pourquoi ma formule ne fonctionne pas?

est-il possible dans ma feuille de synthése dans la colonne Payé Oui ou non mettre une mise en forme conditionnelle si oui vert et si non rouge je n'y suis pas parvenu peut etre parceque c'est un tableau....?

Merci

Bonsoir,

je bloque sur une formule dans la feuille menu en I 25 pourquoi ma formule ne fonctionne pas?

Tout simplement parce que les véritables valeurs sont 0 (faux) et 1 (vrai). Les "oui" et "non" ne sont que des formats d'affichage.

J'ai procédé ainsi afin de tester dans le code une variable booléenne plutôt qu'une chaîne de caractères.

ci-joint donc la mise en forme conditionnelle demandée

https://www.cjoint.com/c/HCyhyTNaFdC

Bonjour Thev,

un grand merci pour l'explication de la mise en forme c'est impérial....

Maintenant me reste plus qu'a pouvoir supprimer une reservation j'ai mis ce bout de code mais j'ai un probleme sur le Cells(DataBodyRange.Rows(i), 1 ca ne doit pas etre comme cela?

Dim Réponse
    Réponse = MsgBox("En êtes vous sur ?", vbYesNo, "Suppression de séjour")
    If Réponse = 6 Then
        Sheets("Synthèse réservation").Cells(DataBodyRange.Rows(i), 1).EntireRow.Delete
    End If
    Unload Me

sinon voit tu autre chose qui pourrait améliorer mon projet?

Peut etre une fonction de recherche des locations....

https://www.cjoint.com/c/HCyjWnuR53z

Merci

Bonjour,

En fait, je te propose déjà une alternative qui me parait plus cohérente avec la logique que tu as retenue pour la modification.

1- accès au planning de réservation

2- sélection de la réservation concernée

3- choix de l'action : visualisation, modification ou suppression

4- retour au menu principal paramétré selon l'action choisie

ci-joint lien

https://www.cjoint.com/c/HCyoDaUq46I

Pourquoi dans ma macro de mise en plein écran j'ai une erreur sur cette ligne [codeSheets(Cpt).Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Plein écran"][/code]

Comment pourrais je faire pour connaitre le taux d'occupation de mon lieu de vie par mois et sur l'année?

Merci.

Pourquoi dans ma macro de mise en plein écran j'ai une erreur sur cette ligne [codeSheets(Cpt).Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Plein écran"][/code]

Cela vient du fait que la forme "Plein écran" n'existe pas sur les feuilles 2 (Gestion mot de passe) et 3 (Gestion Liste).

Ok merci effectivement j'ai mis la forme dans chaque feuille et ca fonctionne.

j'ai mis ce code pour attacher des fichiers dans mon userform de réservation comment puis je le modifier pour seulement ouvrir le repertoire?

[codeDim fichier As String

Dim lienF As String

With Application.FileDialog(msoFileDialogFilePicker)

.Show

On Error Resume Next

fichier = .SelectedItems.Item(1)

On Error GoTo 0

End With

If fichier <> "" Then lienF = fichier

Label154.Caption = "Changer"

Lien.Visible = True

Lien.Caption = lienF

[/code]

Merci

Pas bien sûr d'avoir compris votre question.

Si vous voulez sélectionner un fichier dans un répertoire :

   
With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "votre répertoire" & "\"
        .Show

Comment pourrais je faire pour connaitre le taux d'occupation de mon lieu de vie par mois et sur l'année?

ci-jointe une proposition via :

1- ajout dans votre tableau de réservations de 2 colonnes : Durée réservation et Date Début Mois Arrivée

2- création d'un TCD + ajout formules calculant le nb de jours du mois et au final le taux d'occupation du mois

https://www.cjoint.com/c/HCAsJZMTJmJ

Bonjour Thev,

Merci pour cette nouvelle modification qui me va parfaitement pour le taux d'occupation cependant j'ai encore un petit problème au niveau de la feuille LV5 quand on créer une nouvelle réservation sur plusieurs jours exemple du 02/04/2018 08h00 au 15/04/2018 10h00 seulement les cellules de 08h00 à 10h00 se colories du 02 au 15 et deuxièmement dans la colonne durée de réservation ca me met 2heures au lieu de 13 jours et x heures et x minutes.

Pour ce qui est de la première question en fait dans mon userform je veux attacher le chemin d'un répertoire ou se trouverais des documents comme facture,dialogue avec le locataire.....et que ce chemin apparaisse dans mon tableau de synthése en tant que lien.

Merci.

Merci pour cette nouvelle modification qui me va parfaitement pour le taux d'occupation cependant j'ai encore un petit problème au niveau de la feuille LV5 quand on créer une nouvelle réservation sur plusieurs jours exemple du 02/04/2018 08h00 au 15/04/2018 10h00 seulement les cellules de 08h00 à 10h00 se colories du 02 au 15 et deuxièmement dans la colonne durée de réservation ca me met 2heures au lieu de 13 jours et x heures et x minutes.

ci-jointe nouvelle version

https://www.cjoint.com/c/HCBklTwdIQJ

merci....

pour etre plus clair je voudrais dans l'userform réservation en appuyant sur le bouton lien créer un nouveau dossier ou je pourrais y déposer des pièces comme facture ou convention passé avec le locataire... ou autre et que ça me copie le lien du dossier dans mon tableau synthèse.

et à partir du tableau de synthèse accéder par le lien au dossier ou en faisant modification de la réservation dans feuille LV5 ouvrir l'userform de reservation et avoir accès au dossier et ses pieces jointes.

un début de code dans le bouton lien de mon userform reservation mais qui m'ouvre un fichier et moi je veux juste qu'il m'ouvre le dossier.

ensuite mon 2em probleme quand je valide ma reservation je copie bien le chemin du lien dans mon tableau de synthèse mais je ne peut pas l'ouvrir en tant que lien.

https://www.cjoint.com/c/HCBmNml1ZxX

Rechercher des sujets similaires à "modification code userform"