Planning Gestion de véhicules

Question

N'étant pas un expert de l'utilisation d'Excel, je viens vous exposer mon souci. Je dois gérer un parc de 12 véhicules et je souhaite automatiser les demandes quotidiennes. (et arrêter de m'arracher les cheveux... Dans le fichier annexé, j'ai créer plusieurs onglets: BD véhicules ==&gt; Nom et détails de tous les véhicules (ex: nbre de passagers max) BD groupes ==&gt; Nom des groupes qui font des demandes de sorties avec pour chaque groupe une couleur différente Un planning par véhicule Liste des demandes ==&gt; qui me servira de formulaire en quelque sorte Mois ==&gt; pour m'en servir en liste déroulante de choix Maintenant, voici l’énoncé auquel je souhaite trouver LA formule à insérer dans l'onglet "planning du véhicule": SI B1 (nom du véhicule) = F4 (véhicule souhaité- liste des demandes) ET G4 (nbre de passagers de la liste des demandes) &lt;= onglet BD véhicules nbre de places du véhicule sélectionné ET QUE l'heure de départ D8 &gt;= liste des demandes C4; D8&lt;= liste des demandes D4 ET QUE la cellule dans planning est vide ALORS on insère la demande accepté dans le planning avec la couleur du groupe et on valide OK dans l'onglet des demandes SINON PAS OK (rouge) dans l'onglet des demandes Voilà... J'espère avoir été suffisamment clair dans ma demande. En tout cas, je vous remercie d'avance pour votre aide. Cordialement Micke...

gmb · Answer

Un essai à tester.Te convient-il ...

gmb · Answer

Tu écris : J'ai mis ce message d'alerte lorsque la macro ne trouve pas sur le planning la date de départ. Elle ne peut donc pas y reporter les données saisies. Vérifie. Si ce n'est pas cela, il faut me dire ce que tu as exactement saisi pour que je vois d'où cela vient. A te relire...

gmb · Answer

Désolé mais je n'arrive pas à reproduire ce bug. Sur mon PC, le résultat s'affiche correctement. Il s'agit peut-être d'une incompatibilité de version ou de matériel.....

cousinhub · Answer

Si je puis me permettre... Pour ne pas avoir ce bug, modifie ces 2 lignes ainsi : ..... ..... Set Cell = Sheets("Planning A").Rows("8:8").Find(CDate(Tb_Hdépart)) ..... ..... Set Cell = Sheets("Planning A").Rows("8:8").Find(CDate(Tb_Hretour)) Et en complément au code, à cet endroit : With Sheets("Liste des demandes") Ln = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(Ln, "A").Value = Cb_Groupe Cells(Ln, "B").Value = Tb_Date Cells(Ln, "C").Value = Tb_Hdépart Cells(Ln, "D").Value = Tb_Hretour Cells(Ln, "E").Value = Tb_Chauffeur Cells(Ln, "F").Value = VéhS Cells(Ln, "G").Value = Tb_Npassagers Cells(Ln, "I").Value = VéhR If Flag = 0 Then Cells(Ln, "H").Value = "OK" Else Cells(Ln, "H").Value = "Pas OK" End If End With Il me semble que tu as oublié de mettre un point (.) devant chaque Cells Bonne soirée...

gmb · Answer

Tu écris : Mais je t'en prie, et je t'en remercie ! J'espère que cette nouvelle version revue et corrigée grâce à toi pourra fonctionner pour mickevdv Bye ...