Fichier Stock
Bonjour à tous,
Je vous explique le fichier (cf pj)
Il y a au total 192 références, une ligne correspond à un numéro de semaine.
J'aimerais extraire le planning de production de ce fichier.
C'est à dire extraire, par exemple, l'ensemble des lignes correspondant de W42 à W49
Comme le fichier est actualisé tte les semaines, cela s'avère plus compliqué...
Si vous pourriez m'aider SVP.
Merci d'avance
Donc une macro qui effectue le tri sur la colonne C de la 1ere feuille et colle les resultats sur la 2nde, tri sur la valeur W42.
je te laisse adapter pour les autres.
Merci beaucoup Zarik
Par contre pour ca ne colle qu'une ligne en dessous ^^
Je crois que c'est ce code à modifier: Lignemax2 = Lignemax2 + 1 il faut le rajouter plusieurs fois? si par exemple il y a 5, ou 10 lignes à ajouter?
Si je fais If Cells(i, "C") = "W42", je remplace W42 par une cellule sur le fichier ca va???
Désolé de t'embeter j'apprends VBA sur ce forum et youtube
il faut le rajouter plusieurs fois?
Non, il est dans une boucle donc il gere tt seul le nombre de ligne a produire. si tu te contente de modifier le "W42" par une valeur qui possede plus de resultats, il creera autant de ligne que de reponse.
je remplace W42 par une cellule sur le fichier ca va???
Oui, tu peux mettre une liste deroulante(par exemple) avec les valeurs que tu souhaite.Si ta liste est en A1, le code deviends:
If Cells(i, "C") = Range("A1").valueReste a faire reagir la macro a une modification dans la liste(a chaque clic pourquoi pas?)
Désolé de revenir à la charge, mais ca ne marche tjr pas...
J'ai voulu changer le code:
Rows(i).EntireRow.Copy
Mais la selection varie en fonction de la semaine,
Extraction planning en W42 ==> la macro m'affiche la quantité à envoyer chaque semaine à partir de W42
J'y suis encore sur le code... désolé
Coucou, j'ai voulu modifier le code:
Sub Tri()
Dim i As Integer
Dim nb_lines As Double
Dim no_semaine As String
ActiveWorkbook.Sheets("STC Program").Select
nb_lines = Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 2 To nb_lines
If Cells(i, "A") = "W42" Then
Rows(i).EntireRow.Copy
Worksheets("Planning").Range("A" & dest_line).Pastspecialxlpastevalues
End If
Next i
End Sub
Mais ca ne marche tjours pas...
Tiens je t'ai fait une macro avec la cellule e1 comme choix et un bouton qui enclenche la recherche et la copie
/**/EDIT
("A" & dest_line)c'est quoi dest_line? il apparait pas dans les declarations et n'a pas de valeur dans cette macro....l'est peut etre la l'erreur