Discussion :

[antoinepoirier]

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 !



Merci à plus

Antoine

[Theze]

Bonjour,

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

Hervé.

[antoinepoirier]

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[antoinepoirier]

'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 !!!!

[Theze]

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

Oups, il faut changer cette ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Debut = Date

par celle-là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

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é.