Proposition de dates

Bonjour,

Alors j'aimerais savoir s'il est possible de faire cette fonction et comment la faire.

J'ai un tableau sous forme de calendrier de production. J'aimerais faire une fonction qui le rempli automatiquement selon les délais de production (choisis par moi) ainsi que la date d'aujourd'hui. Alors Si je dis 5 jours à telle partie de production, le calendrier se rempli pour respecter les 5 jours... Je mets en screenshot le visuel de mon tableau !

Pièce jointe 185913

Merci à plus :)

Antoine

Bonjour,

Il se rempli de quoi ton calendrier ?
Un exemple du résultat voulu serait bien !

Hervé.

Il se rempli du code "1152P03" comme j'avais mis en première case ! J'avais oublié de spécifier ! En fait, voici un exemple de "formulaire" que je désirerais que l'utilisateur remplisse

Pièce jointe 185921

Bonjour,

Un début de piste car je ne sais pas sur quelle ligne entrer les valeurs une fois la date trouvée, il faudrait peut être effectuer une recherche de secteur pour savoir sur quelle ligne intervenir ?
Le code ci-dessous inscrit 3 lignes en dessous de celle des dates :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Appliquer()   Dim Cel As Range Dim Debut As Date Dim NBJours As Integer   Debut = Date   'recherche de la date sur la ligne 11 de la feuille "Feuil1" Set Cel = Worksheets("Feuil1").Rows(11).Find(Debut, , xlValues, xlWhole)   If Not Cel Is Nothing Then   'si trouvée, récupère le nombre de jours en C9 de la feuille "Feuil2" NBJours = Worksheets("Feuil2").Range("C9").Value   'et inscrit "1152P03" dans la plage Worksheets("Feuil1").Range(Cel.Offset(3, 0), Cel.Offset(3, NBJours - 1)).Value = "1152P03"   End If   End Sub

---

Un exemple de procédure pour incrémenter décrémenter la valeur en C9 de la feuille "Feuil2". Les deux boutons appellent la même proc, pour mon exemple, il sont nommés Bouton 1" et Bouton 2" :

Code:

---

1 2 3 4 5 6 7

Sub Incrementer()   If Application.Caller = "Bouton 1" Then Range("C9").Value = Range("C9").Value + 1 If Application.Caller = "Bouton 2" Then Range("C9").Value = Range("C9").Value - 1   End Sub

---

Hervé.

Citation:

---

'recherche de la date sur la ligne 11 de la feuille "Feuil1"
Set Cel = Worksheets("Feuil1").Rows(11).Find(Debut, , xlValues, xlWhole)

---

Le programme fait comment pour reconnaître la date que j'entre en C5 ?
Et si on veut faire changer le numero de produit, au lieu d'être fixe, par la case B5 ?

(J'ai tenté de tester mais vu que la date n'est pas cherchée je crois que ça ne fonctionne pas...)

Le programme va-t-il inscrire des données dans 7 cases horizontale ?
Comment on ferait pour lui donner des plages à respecter (exemple, à chaque fois que tu inscrit une donnée, descend de deux cases et tasse toi d'une case avant d'écrire la suivante.

Merci de ton aide je crois que ça avance !!!! :)

Citation:

---

Le programme fait comment pour reconnaître la date que j'entre en C5 ?

---

Oups, il faut changer cette ligne de code :

Code:

---

1 2	Debut = Date

---

par celle-là :

Code:

---

1 2	Debut = CDate(Worksheets("Feuil2").Range("C5").Value)

---

je re-poste le code corrigé avec prise en compte de la cellule B5 pour le produit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Appliquer()   Dim Cel As Range Dim Debut As Date Dim NBJours As Integer Dim Produit As String   'la date doit être dans un format valide comme par exemple 21/08/2015 Debut = CDate(Worksheets("Feuil2").Range("C5").Value)   Produit = Worksheets("Feuil2").Range("B5").Value   'recherche de la date sur la ligne 11 de la feuille "Feuil1" Set Cel = Worksheets("Feuil1").Rows(11).Find(Debut, , xlValues, xlWhole)   If Not Cel Is Nothing Then   'si trouvée, récupère le nombre de jours en C9 de la feuille "Feuil2" NBJours = Worksheets("Feuil2").Range("C9").Value   'et inscrit "1152P03" dans la plage Worksheets("Feuil1").Range(Cel.Offset(3, 0), Cel.Offset(3, NBJours - 1)).Value = Produit   End If   End Sub

---

Citation:

---

Le programme va-t-il inscrire des données dans 7 cases horizontale ?

---

Si tu entre la valeur 7 pour le nombre de jours, l'inscription se fera sur 7 cellules horizontales.

Citation:

---

Comment on ferait pour lui donner des plages à respecter (exemple, à chaque fois que tu inscrit une donnée, descend de deux cases et tasse toi d'une case avant d'écrire la suivante.

---

là, je ne comprends pas trop ce que tu veux ? Si tu veux "donner" une plage, il suffit de le préciser à un moment donné. En attendant plus de précisions.

Hervé.

Wow merci !

Mes explications son minimes comparé à ta compréhension héhé.

Alors voilà. Dans mon premier tableau, tu vois la colonne A (section). Ing. Prod. (Ingénierie de produit)
Alors quand je donne 7 comme jours, au lieu d'aligner les résultats horizontalement, j'aimerais que les résultats s'alignent en forme d'escalier si on peut dire, à travers Ing.Prod. donc lignes 13 à 36. Cela fait en sorte que l'on donne une plage au programme. Il y aura surment d'autres requis. Des idées ?

Merci pour tout !!

Bonjour,

De cette façon alors ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub Appliquer()   Dim Cel As Range Dim Debut As Date Dim NBJours As Integer Dim Produit As String Dim I As Integer Dim J As Integer   'la date doit être dans un format valide comme par exemple 21/08/2015 Debut = CDate(Worksheets("Feuil2").Range("C5").Value)   Produit = Worksheets("Feuil2").Range("B5").Value   'recherche de la date sur la ligne 11 de la feuille "Feuil1" Set Cel = Worksheets("Feuil1").Rows(11).Find(Debut, , xlValues, xlWhole)   If Not Cel Is Nothing Then   'si trouvée, récupère le nombre de jours en C9 de la feuille "Feuil2" NBJours = Worksheets("Feuil2").Range("C9").Value   'et inscrit le nom du produit en diagonale For I = 1 To NBJours   Cel.Offset(1 + I, J) = Produit J = J + 1   Next I End If   End Sub

---

Hervé.