Discussion :

[Valentiiiin3]

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.


Merci à vous pour votre aide précieuse.

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

[Marc-L]

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, …

[Valentiiiin3]

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?

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