Vopier Coller en VBA

[nougitch]

Bonjour,

Suite a une macro qui filtre mon tableau, j'aimerais copier les donnees filtrees sur une autre feuille. Seulement, je ne veux pas que les donnees filtres, mais aussi les donnes qui les entourent (sur la meme ligne).

C'est plus parlant sur le fichier.

Merci par avance pour votre aide.

Cdt,

 

[pierrejean]

Re : Vopier Coller en VBA

Re

Tu as du faire une erreur de fichier !!

 

[nougitch]

Re : Vopier Coller en VBA

Re pierrejean,

Non, suite au fichier precedent, j'en arrive la dans mon probleme et j'ai bien modifie le code. Je copie celle = a Type1 ou = a Type2 dans la sheet3 avec un PasteSpecial. Mais j'aimerais que sur le sheet3 il y ait aussi les donnees de la colonne A et celles de la colonne C.

Merci pour ton aide.

P.S. : je bosse sur un tableur anglais, je ne sais pas si toi tu vois Feuil1 ou Sheet1

 

[nougitch]

Re : Vopier Coller en VBA

Revoici le fichier un peu allege.
Par exemple, j'aimerais que si le type est : Type1 ou Type2, Le Type et le Prix soient colles sur la Feuil3.
Merci bcp !

 

[nougitch]

Re : Vopier Coller en VBA

C'est bon :

Sub Macro()

    Application.ScreenUpdating = False
    
    Dim StartCell As Range
    
    With ActiveSheet.Range("A1:IV65536")
        Set StartCell = .Find("Type", LookIn:=xlValues, lookat:=xlWhole)
    End With
    
    For n = Cells(65536, StartCell.Column).End(xlUp).Row To StartCell.Row + 1 Step -1
        If Cells(n, StartCell.Column) = "Type1" Or Cells(n, StartCell.Column) = "Type2" Then
            ActiveSheet.Range(Cells(n, StartCell.Column).Address & ":" & Cells(n, StartCell.Column).Offset(0, 1).Address).Copy
            ActiveWorkbook.Sheets("Sheet3").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        End If
    Next n
    
    Application.ScreenUpdating = True
    
End Sub