XL 2019 VBA - Autofilter - Prob: Copie toute la plage sans prendre en compte le filtre

Phil69970

XLDnaute Barbatruc

• 13 Décembre 2022

• #2

Bonjour @Lolexcel

Il y a un pb ici

If Derlig1 <= 2 Then DerligS = 2

Cliquez pour agrandir...

Je pense qu'il faut mettre ceci :

If Derlig1 <= 2 Then Derlig1 = 2

Cliquez pour agrandir...

Merci de ton retour

@Phil69970

 

Dernière édition: 13 Décembre 2022

Vote positif 0 Vote négatif

L

Lolexcel

XLDnaute Nouveau

• 13 Décembre 2022

• #3

Oufti ça c'est une biesse erreur! Mais ça ne fonctionne toujours pas :/

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Décembre 2022

• #4

Re

Essaye comme ceci :

VB:

Sub TAB_LegSelect()

Dim Derlig1&, Derlig2&

Derlig1 = Sheets("LegSelect").Range("A" & Rows.Count).End(xlUp).Row
If Derlig1 <= 2 Then Derlig1 = 2
Sheets("LegSelect").Range("A2:F" & Derlig1).Clear

With Sheets("ListTotalLeg")
    .AutoFilterMode = False
    Derlig2 = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A2:E2").AutoFilter
    .Range("$A$2:$E$" & Derlig2).AutoFilter Field:=5, Criteria1:="x"
    .Range("$A$2:$C$" & Derlig2).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("LegSelect").Range("A2")
    .AutoFilterMode = False
End With

End Sub

@Phil69970

 

Vote positif 0 Vote négatif

L

Lolexcel

XLDnaute Nouveau

• 13 Décembre 2022

• #5

C'est le même code que j'ai :/ (après correction du Derlig1

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Décembre 2022

• #6

Re

Quand tu copies copie juste !!!
(CTRL C CTRL V est ton ami !!!)

Le bon code :

VB:

Sub TAB_LegSelect()

Dim Derlig&, Derlig2&

Derlig = Sheets("LegSelect").Range("A" & Rows.Count).End(xlUp).Row
If Derlig <= 2 Then Derlig = 2
Sheets("LegSelect").Range("A2:F" & Derlig).Clear

With Sheets("ListTotalLeg")
    .AutoFilterMode = False
    Derlig2 = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A1:E1").AutoFilter
    .Range("$A$1:$E$" & Derlig2).AutoFilter Field:=5, Criteria1:="x"
    .Range("$A$2:$C$" & Derlig2).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("LegSelect").Range("A2")
    .AutoFilterMode = False
End With

End Sub

Et ton erreur :

Lolexcel à dit:

Range("A2:E2").AutoFilter
.Range("$A$2:$E$" & Derlig2).AutoFilter Field:=5, Criteria1:="x"

Cliquez pour agrandir...

au lieu de :

.Range("A1:E1").AutoFilter
.Range("$A$1:$E$" & Derlig2).AutoFilter Field:=5, Criteria1:="x"

Cliquez pour agrandir...

@Phil69970

 

Vote positif 1 Vote négatif

Solution

L

Lolexcel

XLDnaute Nouveau

• 13 Décembre 2022

• #7

Mince, merci, ça fonctionne ! Prochaine fois, je n'essaye pas de trouver ce qui cloche, je copie-colle direct

Par contre, je ne comprends pas pourquoi si l'AutoFilter est mis en ligne 1 ça fonctionne, et pas en ligne 2. Est-ce que tu pourrais m'expliquer stp ^^ ?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Décembre 2022

• #8

Re

Car le filtre se fait comme ceci : ==> Incorrect



Au lieu de comme cela : ==> Correct



@Phil69970

 

Vote positif 1 Vote négatif

L

Lolexcel

XLDnaute Nouveau

• 13 Décembre 2022

• #9

Oh merci dis !! Tout s'éclaire
Belle soirée

 

Vote positif 0 Vote négatif