Problème de ligne + simplification code

Bonjour à tous,

Le but de la macro : lire chaque ligne de ma feuille 1 puis en fonction de la colonne 7 copie/coller les 3 colonnes suivantes (soit avec ELSE soit avec ELSEIF) dans une feuille 2

Mon problème : J'ai un problème avec mon code, je voudrais qu'il commence à la ligne 3 de la feuille 2, car j'ai des en-tête sur les 2 première lignes. Or actuellement la partie de ELSE qui se trouve à gauche commence à la ligne 2. Je n'ai pas de soucis du côté du ELSEIF....

Petit plus : De plus avait quelque chose de moins long car ce code met à peu près 5 minutes pour exécuter mes 8000 lignes :(:(
Et je suis persuadé que on peut le faire en très peu de ligne mais étant mauvais sur vba je n'y arrive pas. 8-)


Merci à vous pour votre aide précieuse. :mouarf:

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 34 35 36

Option explicit   Public Sub CopyRows()   Dim FinalRow As Integer Dim x As Integer Dim Thisvalue As String Dim NextRow As Integer     Sheets(1).Select ' Find the last row of data FinalRow = Cells(Rows.Count, 1).End(xlUp).Row ' Loop through each row For x = 3 To FinalRow ' Decide if to copy based on column G Thisvalue = Cells(x, 7).Value If Thisvalue = "B" Then Cells(x, 8).Resize(1, 3).Copy Sheets(2).Select NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(NextRow, 1).Select ActiveSheet.Paste Sheets(1).Select ElseIf Thisvalue = "S" Then Cells(x, 8).Resize(1, 3).Copy Sheets(2).Select NextRow = Cells(Rows.Count, 5).End(xlUp).Row + 1 Cells(NextRow, 5).Select ActiveSheet.Paste Sheets(1).Select End If Next x End Sub

---

Bonjour,

pour une exécution instantanée, utiliser un filtre et même mieux : un filtre avancé !
En moins de dix lignes de code …
Sans compter les nombreux exemples dans les discussions de ce forum.

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Je ne comprend pas l'utilisation de cela du tout, je suis débutant VBA

Du coup j'ai fais un autre code , cependant je ne peux l’exécuter que si je suis sur la feuille 1 quand je lance la macro, donc problématique... et de plus quand mes données se copies j'ai des espaces(voir photo), elle ne sont pas toutes les unes à la suite des autres.... pouvez-vous m'aidez?

Pièce jointe 240563

Code:

---

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

Sub aaa() n = Range("G2").End(xlDown).Row Const LB As Integer = 3 Dim j As Variant Dim i As Integer Dim h As Integer   For i = LB To n If Range("G" & i).Value = "B" Then For h = 8 To 10 j = Sheets(1).Cells(i, h).Value Sheets(2).Cells(i, h - 7).Value = j Next Else For h = 8 To 10 j = Sheets(1).Cells(i, h).Value Sheets(2).Cells(i, h - 4).Value = j Next End If Next End Sub

---