Gestion calendrier via 1 cellule date
Bonjour à tous,
Je vous joins un fichier :
Ce que je souhaite:
A partir de la date dans l'onglet Devis cellule B11 :
1 - récupérer le mois (j'y arrive, j'ai même mis la valeur en format texte en cellule K4)
--> de cette valeur j'aimerai ouvrir le bon mois dans l'onglet planning. Sur ce point j'ai besoin d'aide
2- récupérer le jour (j'y arrive, j'ai même mis la valeur en cellule K3)
--> trouver le jour -2 (j'y arrive, j'ai même mis la valeur en cellule K5)
--> trouver le jour +2 (j'y arrive, j'ai même mis la valeur en cellule K6)
-->Pour chaque ligne du devis envoyé la valeur (quantité en colonne C de l'onglet devis) dans la bonne date de l'onglet Planning
-->Si la quantité du devis est égale à la quantité max du planning mettre les cellules de Jour -2 à Jour +2 en rouge
--> si la quantité du devis est inférieur à la quantité max du planning mettre les cellules de jour -2 à jour +2 en vert
--> si la quantité du devis est supérieur à la quantité max = message d'erreur
Merci de votre lecture
Merci d'avance pour votre aide
Mika
Bonjour,
Moi je comprend comme ça : Tu modifies ta Sub Clic_Mois de cette manière :
NomSh = IIf(Left(Application.Caller, 2) = "Ms", Application.Caller, "Ms" & x)et la Subp Recup (sans accent en VBA hein !) :
Sub Recup()
With Sheets("Devis")
Clic_Mois Month(.Range("B11"))
Sheets("Planning").Visible = True
.Range("G1").FormulaR1C1 = "=NOW()"
.Range("K1").Value = Format(Year(Sheets("Devis").Range("B11").Value), "0000") 'ok
Sheets("Planning").Range("B5").Value = Format(Year(.Range("B11").Value), "0000")
.Range("k2").Value = Format(Month(.Range("B11").Value), "00") 'Nok format
.Range("k3").Value = Format(Day(.Range("B11").Value), "00") 'ok
.Range("k4").Value = MonthName(.Range("k2").Text) 'ok
.Range("k5").Value = (Sheets("Devis").Range("B11").Value) - 2
.Range("k6").Value = (Sheets("Devis").Range("B11").Value) + 2
End With
End SubA+
Bonjour,
Je te remercie Galopin01
Cependant j'ai un soucis à la ligne
With .Shapes("Ms" & i)La partie clic_mois n'est pas de moi comme dit précédemment c'est un code récupérer sur le forum
Merci pour l'accent j'avais même pas vu :o ...
Oui c'est des codages à la a comme jte pousse. Au lieu de ActiveSheet au début tu mets With WorkSheets("Planning")
A+
Merci beaucoup cela fonctionne
Par contre il reste le lien entre le devis et le planning
si quelqu'un a une idée ..
Merci
Mika
C'est ne question ou une devinette.
Personnellement je ne vois pas de lien possible en ce devis sous cette forme et ton planning.
Il va te falloir plus d'une ligne d'explication pour expliquer comment tu fais le lien entre une commande de patates et de carottes et un planning.
Pour moi un planning ça implique à minima une date de départ, et une durée (ou une date de fin)
Avec une commande de produit tu peux faire au mieux une gestion de stock, de commandes ou quelques choses d'apparenté, mais dans tous les cas ça ne se gère pas dans un planning mais plutôt dans une base de données...
A+
J'ai nommé carotte patate ect pour avoir un exemple mon fichier est pour de la location donc j'essaie de gérer une devis avec un planning
je vais essayer de m'expliquer
la date de début c'est : Sheets("Devis").range("B11") = Jour 1
la durée est : Jour 1 - 2 à Jour 1 + 2
j'aimerai renvoyé la quantité du devis (exemple 50 pommes du 02/01/2022 au 06/01/2022)
de la il y a plusieurs possibilité
Il faudrait pouvoir comparer à la valeur max dans le planning en colonne C
Si la quantité du devis plus petite que la valeur max remplir le planning en vert sur les jours de location
En plus faire une vérification sur la possibilité sur les dates
Exemple 1 : (C'est possible car valeur max est à 100)
50 pommes du 02/01/2022 au 06/01/2022 Devis 1
50 pommes du 07/01/2022 au 11/01/2022 Devis 2
Exemple 2 : (C'est pas faisable à cause des dates)
50 pommes du 02/01/2022 au 06/01/2022 Devis 1
60 pommes du 05/01/2022 au 09/01/2022 Devis 2
=> Impossible (disponibilité que de 50 pommes le 05/01/2022 au 07/01/2022
Si la quantité est plus grand => message d'erreur "Devis à revoir"!
J'espère avoir été assez clair.
Merci
Mika