Discussion :

[julie.t]

Bonjour,

Je suis débutante en VBA, je vous expose mon problème:
En gros je dois filtrer des données d'un tableau sur un classeur excel et copier que certaines colonnes dans un autre classeur Excel.
J'ai essayé un Code, mais il y a une erreur au niveau de : Range("A3:A400" & "B3:B400").Value.SpecialCells(xlCellTypeVisible).Copy

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
Sub Macro4()
'
' Macro4 Macro
'
 
'
   Set classeurSource = Application.Workbooks.Open("C:\Users\julie\Desktop\Cinaps\SF.xlsx", , True)
 
   Rows("2:2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$AI$400").AutoFilter Field:=11, Criteria1:="DG"
    ActiveSheet.Range("$A$2:$AI$400").AutoFilter Field:=1, Criteria1:="P"
 
    Range("A3:A400" & "B3:B400").Value.SpecialCells(xlCellTypeVisible).Copy
 
 
 
   Set classeurDestination = ThisWorkbook
    Range("C2").Select
    ActiveSheet.Paste
 
    classeurSource.Close False
 
 
End Sub

Merci pour votre aide

[Tooth]

Bonjour,

Voici un code permettant de réaliser un filtre en VBA (ici, le champ filtré est choisit grâce à un combobox dans un userForm), en adaptant un peu, ça devrait te convenir.

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
 Dim retour As Long
 
    Dim Texte As String
 
    'On affecte à la variable text, la valeur que l'utilisateur a rentré dans le TextBox
    Texte = ValeurRecherche
 
 
 
        'Effectue le Worksheets("Filtre") sur les données que l'utilisateur à entré
        Worksheets("BDD").Range("A1").AutoFilter Field:=1, Criteria1:= Texte
 
      'Code permettant de copier les données filtrès vers une autre feuille excel   
    If Worksheets("Filtre").Range("A1") = void Then
            Worksheets("BDD").Columns("A:G").SpecialCells(xlCellTypeVisible).Copy Worksheets("Filtre").Range("A1")
            Worksheets("BDD").[A1].AutoFilter
            Unload Me
        Else
            Worksheets("BDD").Columns("A:G").SpecialCells(xlCellTypeVisible).Copy Worksheets("Filtre").Range("A1").End(xlDown).Offset(1, 0)
            Worksheets("BDD").[A1].AutoFilter
            Cells(derligne, 1).EntireRow.Delete
            Unload Me
        End If

Si tu as des questions concernant le code ou son fonctionnement, je reste à ta disposition

Cordialement,

Thomas

[julie.t]

Merci pour ton aide.
J'ai réussi à créer un code qui correspond à peu près, maintenant il faut que je l'améliore, mais je n'y serais pas arrivé sans ton code.

Cordialement,

Julie