modification code userform

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
r
reglaet
Membre fidèle
Membre fidèle
Messages : 176
Appréciation reçue : 1
Inscrit le : 14 mars 2017
Version d'Excel : 2013

Message par reglaet » 20 mars 2018, 15:07

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....
Modifié en dernier par reglaet le 24 mars 2018, 10:52, modifié 3 fois.
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'697
Appréciations reçues : 228
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 21 mars 2018, 15:46

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
r
reglaet
Membre fidèle
Membre fidèle
Messages : 176
Appréciation reçue : 1
Inscrit le : 14 mars 2017
Version d'Excel : 2013

Message par reglaet » 21 mars 2018, 22:26

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....
Modifié en dernier par reglaet le 24 mars 2018, 10:52, modifié 2 fois.
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'697
Appréciations reçues : 228
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 22 mars 2018, 17:44

Bonsoir,

ci-jointe nouvelle version
https://www.cjoint.com/c/HCwq1MYGfBI
r
reglaet
Membre fidèle
Membre fidèle
Messages : 176
Appréciation reçue : 1
Inscrit le : 14 mars 2017
Version d'Excel : 2013

Message par reglaet » 23 mars 2018, 08:33

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...
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'697
Appréciations reçues : 228
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 23 mars 2018, 09:34

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.
r
reglaet
Membre fidèle
Membre fidèle
Messages : 176
Appréciation reçue : 1
Inscrit le : 14 mars 2017
Version d'Excel : 2013

Message par reglaet » 23 mars 2018, 10:41

merci pour la modification je vais faire un peu de tris....
r
reglaet
Membre fidèle
Membre fidèle
Messages : 176
Appréciation reçue : 1
Inscrit le : 14 mars 2017
Version d'Excel : 2013

Message par reglaet » 23 mars 2018, 15:30

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
Modifié en dernier par reglaet le 24 mars 2018, 10:49, modifié 1 fois.
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'697
Appréciations reçues : 228
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 23 mars 2018, 18:12

Bonsoir,
reglaet a écrit :
23 mars 2018, 15:30
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
r
reglaet
Membre fidèle
Membre fidèle
Messages : 176
Appréciation reçue : 1
Inscrit le : 14 mars 2017
Version d'Excel : 2013

Message par reglaet » 24 mars 2018, 10:49

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message