Discussion :

[shipuden64]

Bonjour à vous tous,
Je vous contact car je n'arrive plus à avancer sur une macro qui me permet de répartir des données sur plusieurs cellules.
Je m'explique : dans un tableau2 j'ai toutes les semaines de l'année et pour chaque semaine j'ai la quantitée de produit à produire. La macro que j'essaie de construire me permet de completer mon tableau1 (colonne G) et pour chaque produit dans la semaine désirée lui imputer la date de production.
Voici un petit bout de mon code et en pj mon fichier pour mieux me comprendre.

Code :

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

1
2
3
4
5
6
7
8
Sub date_prod()
Dim i As Integer
For i = 2 To 500 Step 1
If Sheets("Tableau1").Range("F" & i) = Sheets("Tableau2").Range("A" & i) Then
    Sheets("Tableau1").Range("G" & i) = Sheets("Tableau2").Range("D" & i)
End If
Next i
End Sub

Je vous remercie par avance

[joe.levrai]

Bonjour,

j'ai un peu de mal à comprendre comment doit s'effectuer le repérage dans ton tableau 2, afin de compléter le tableau 1 :

- ton tableau 1 dispose du champs "Code produit", contrairement à ton tableau 2
- dans ta macro, tu veux récupérer la date en colonne D, qui correspond à la date du champs "LUNDI", il ne faut donc pas tenir compte des autres jours de la semaine ?

En fait, ton problème souffre d'un manque de clarté : ce remplissage correspond à quel besoin exactement ?
Car la structure du fichier me semble inadaptée avec les faibles informations fournies, et sources d'erreurs d'interprétation

[shipuden64]

Merci à toi de prendre le temps de me répondre. Je pense que ce que je désire faire n'est peut être pas faisable. Je vais essayer d'être plus claire.
Dans mon cas de figure on ne tient pas compte du code produit on prend simplement en compte le numéro de semaine. En fonction de ce numero de semaine on va chercher dans le tableau2 la date de production (colonne D, F, H, J, L).
Par exemple pour la semaine 14 j'ai 8 produits à produire (peu importe le code produit). Dans le tableau2 j'ai donc, 2 produits pour lundi, 2 produits pour mardi, 2 produits pour mercredi, 1 produit pour jeudi et 1 pour vendredi.
Ce que je souhaite faire c'est dans le tableau1 renseigner les dates de production calculées dans le tableau2 :

MOIS	Code lancement	Code produit	Date liv.	Date com.	SEM DDO	Date prod.
4	6610	NA28008-016	1/4/2015	27/03/2015	14	30/03/2015
4	6613	NA28012-016	1/4/2015	27/03/2015	14	30/03/2015
4	6624	NA28003-016	2/4/2015	30/03/2015	14	31/03/2015
4	6615	NA28008-016	2/4/2015	30/03/2015	14	31/03/2015
4	6616	NA28008-016	3/4/2015	02/04/2015	14	01/04/2015
4	6617	NA28008-016	7/4/2015	02/04/2015	14	01/04/2015
4	6618	NA28012-016	8/4/2015	03/04/2015	14	02/04/2015
4	6626	NA28008-016	9/4/2015	08/04/2015	14	03/04/2015

[Philippe Tulliez]

Bonjour,
En résumé, tu souhaites extraire toutes les lignes d'enregistrements d'un tableau "source" vers une plage de données "cible" et ce suivant un ou des critères, comme l'indique le titre de la discussion ?
Si c'est bien le cas, le filtre avancé d'excel est la solution (en VBA, c'est la méthode AdvancedFilter).
A lire Les filtres avancés ou élaborés dans Excel

[joe.levrai]

Voici une piste sans utilisation des filtres avancés, pour lesquels je n'ai pas encore eu le temps d'en appréhender le fonctionnement.

Il faut adapter à ton cas, j'ai commenté les étapes pour la compréhension.
Le code est fonctionnel sur le fichier que tu as fourni.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
Option Explicit
 
Sub date_prod()
 
    Dim i As Integer
    Dim j As Integer
    Dim ShSource As Worksheet
    Dim ShDest As Worksheet
    Dim CellSource As Range
    Dim CellDest As Range
    Dim Reponse As String
 
    ' récupération du numéro de semaine
    ' attention à prévoir la vérification que la réponse est bien un numéro de semaine
    ' et gérer le cas où l'utilisateur ferme l'invite ou annule l'invite
    Reponse = InputBox("Veuillez indiquer le numéro de semaine")
 
    ' mise sous variable des deux feuilles
    With ThisWorkbook
 
        Set ShSource = .Worksheets("Tableau2")
        Set ShDest = .Worksheets("Tableau1")
 
    End With
 
    ' on cherche la ligne du tableau 2 qui contient le numéro de semaine
    ' on positionne CellSource sur la colonne A de cette ligne
    For i = 2 To ShSource.UsedRange.Rows.Count
        If ShSource.Range("A" & i) = Reponse Then
 
            Set CellSource = ShSource.Range("A" & i)
            Exit For
 
        End If
    Next i
 
    ' gestion du cas où cette semaine n'existe pas dans tableau 2
    If CellSource Is Nothing Then
 
        MsgBox ("La semaine " & Reponse & " n'existe pas dans Tableau2")
        Exit Sub
 
    End If
 
    ' on cherche la première ligne de tableau 1 qui contient ce numéro de semaine
    For i = 2 To ShDest.UsedRange.Rows.Count
        If ShDest.Range("F" & i) = Reponse Then
 
            Set CellDest = ShDest.Range("F" & i)
            Exit For
 
        End If
    Next i
 
    ' gestion du cas où cette semaine n'existe pas dans tableau 1
    If CellDest Is Nothing Then
 
        MsgBox ("La semaine " & Reponse & " n'existe pas dans Tableau1")
        Exit Sub
 
    End If
 
    ' pour les 5 jours de la semaine
    For i = 2 To 10 Step 2
 
        ' on boucle autant de fois que le nombre de pièces à produire sur cette journée
        For j = 0 To CellSource.Offset(0, i) - 1
 
            ' on écrit la date de production sur les "j" lignes de tableau 1
            CellDest.Offset(j, 1) = CDate(CellSource.Offset(0, i + 1))
 
        Next j
 
        ' après avoir fini le traitement de la journée, on décale la ligne d'écrite dans tableau2
        Set CellDest = CellDest.Offset(CellSource.Offset(0, i), 0)
 
    Next i
 
    Set CellDest = Nothing
    Set CellSource = Nothing
    Set ShDest = Nothing
    Set ShSource = Nothing
 
End Sub

[Marc-L]

Bonjour,

avec un filtre avancé, en général il ne faut guère plus de dix lignes de code …
Sans compter sa célérité : résultat instantané !


__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[shipuden64]

Je suis en train de tester avec les filtres avancés pour voir si je peux avoir le résultat souhaité sans passer par vb si cela est possible.
Je te remercie pour ta proposition. Je reviens vers vous après quelques tests qui je l'espère seront concluant

Après quelques tests je vais finalement opter pour le code de joe.levrai. En effet, le filtre avancé m’a causé bien des soucis. Cependant, j’ai juste une question concernant la macro j’ai essayé de la remodifier pour le cas où les semaines ne serait pas dans l’ordre croissant mais cela ne fonctionne pas. Exemple ci-dessous :

MOIS	Code lancement	Code produit	Date liv.	Date com.	SEM DDO	Date prod.
4	6610	NA28008-016	1/4/2015	27/03/2015	14
4	6623	NA28008-016	9/4/2015	06/04/2015	15
4	6618	NA28012-016	8/4/2015	03/04/2015	17
4	6625	NA28012-016	10/4/2015	07/04/2015	15
4	6616	NA28008-016	3/4/2015	02/04/2015	14
4	6637	NA28008-016	16/4/2015	15/04/2015	16
4	6625	NA28012-016	10/4/2015	07/04/2015	15
4	6626	NA28008-016	9/4/2015	08/04/2015	14
4	6623	NA28008-016	9/4/2015	06/04/2015	15

Merci