VBA Copy Past
Bonjour à tous,
Avant tt je vous remercie de prendre le temps de m'aider sur mon problème.
Pour expliquer, j'ai un fichier avec 14 onglets, j'aimerai réunir les informations suivantes dans une même feuille:
Total Forecast,
Total Received,
Number of days,
Total firm release,
Total Shipped,
J'ai mis des semaines à trouver mon super code que voici:
Sub copy_lines()
Dim i As Integer
Dim nb_lines As Double
Dim dest_line As Integer
dest_line = 1
Application.ScreenUpdating = False
ActiveWorkbook.Sheets("Mahle").Select
nb_lines = Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To nb_lines
If Cells(i, 1) = "PART NUMBER:" Then
dest_line = dest_line + 1
Rows(i).EntireRow.Copy
Worksheets("Summary").Range("A" & dest_line).PasteSpecial xlPasteValues
dest_line = dest_line + 1
Rows(i + 1).EntireRow.Copy
Worksheets("Summary").Range("A" & dest_line).PasteSpecial xlPasteValues
dest_line = dest_line + 1
Rows(i + 2).EntireRow.Copy
Worksheets("Summary").Range("A" & dest_line).PasteSpecial xlPasteValues
dest_line = dest_line + 1
End If
If Cells(i, 1) = "TOTAL RECEIVED" Or Cells(i, 1) = "Number of days" Or Cells(i, 1) = "TOTAL Forecast" Or Cells(i, 1) = "TOTAL Firm Release" Or Cells(i, 1) = "TOTAL Shipped" Or Cells(i, 1) = "Total On Hand" Then
Rows(i).EntireRow.Copy
Worksheets("Summary").Range("A" & dest_line).PasteSpecial xlPasteValues
dest_line = dest_line + 1
End If
Next i
Le problème est que cela copie la ligne entièrement (copy entire row) j'aimerai copier uniquement les lundis de chaque semaines ou
par numéro de semaine
Est ce que vous auriez des suggestions? ou améliorations?
Merci pour votre aide
Bonjour
Il serait plus facile de te proposer quelque chose si tu joignais ton fichier, même simplifié ou anonymisé...
Bye !
Je te remercie, je viens de trouver la solution à l'instant ^^
J'ai nommée le haut des colonnes pr supprimer ensuite
mais j'ai encore un pbm lol
Pr le formulaire, je le poste en mm temps
Alors, pr expliqué, j'ai fais une boite de dialogue, mais je ne sais pas pourquoi mon code bug (jsuis pas une pro je sais ms d'après les tutos ca devrait marcher lol)
Si tu aurais un peu de temps à m'accorder ton aide serait d'un IMMENSE secours
j'ai testé différent code mais rien à faire
PS= userform1 et 2 c'st les deux codes que j'ai testé
Regards,
le fichier est trop gros mm qd je le met en format ZIP comment fr pr le poster?
soasticot a écrit :le fichier est trop gros mm qd je le met en format ZIP comment fr pr le poster?
Passe par http://www.cjoint.com
Bye !
https://www.cjoint.com/c/EKfokBdDad5
Merci pour ton aide
Pour l’exemple, je me suis occupé de faire fonctionner les boutons ‘’Stock IN’’ et ‘’Stock OUT’’, en partant du code existant.
Une remarque : je ne suis pas très fort en anglais mais il me semble que le nom du bouton ‘’Stock OUT’’ est inadapté car en fait, la macro associée sert à modifier une ligne de données existantes sur la feuille ‘’Sheet2’’, et non pas à la supprimer.
Mais… si cela te va comme ça…
Bye !
Merci beaucoup pr l'aide vraiment je suis très reconnaissante
Par contre je ne vois pas le fichier en pj
merci
Oups ! Encore une étourderie de ma part !
Voilà le coupable :
Bye !