Problème condition IF pas prise en compte

Version imprimable

Bonjour à tous,

Je créée un code qui permet de déplacer des données d'une feuille dans une autre grâce à un AutoFilter, cependant, lorsqu'il n'y a pas de données à déplacer, c'est l'entête qui l'est, j'ai alors ajouter une condition If qui déplace les données uniquement si le nombre de ligne filtrer est supérieur à 1. Le problème est que ce IF n'est pas pris en compte par Excel et il ne me marque pas d'erreur dans le code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Set FeuilActiv = Sheets("Base de données") Range("B2").AutoFilter Field:=2, Criteria1:="20300*" Set checkFiltre = FeuilActiv.UsedRange.SpecialCells(xlCellTypeVisible) If (checkFiltre.Rows.Count > 1) Then k = Range("B" & Rows.Count).End(xlUp).Row Range(Cells(2, 1), Cells(k, 24)).Select Selection.Copy Sheets("Disques").Select derniereligne3 = Range("A" & Rows.Count).End(xlUp).Row Cells(derniereligne3 + 1, 1).Select ActiveSheet.Paste End If
Sachant qu'il fonctionne sur d'autres ordinateurs, est-ce que le problème viendrait de mon code ou de ma version d'Excel ?

Merci d'avance :)

21/04/2021, 12h48
78chris

BOnjour

Utilise directement un filtre avancé https://philippetulliez.developpez.c...dvancedfilter/
21/04/2021, 15h19
Pierre Fauconnier

Salut.

Perso, j'utiliserais les tableaux structurés et Power Query, considérant que les filtres avancés sont obsolètes ;)

Merci pour le filtre avancé, mais la même chose se passe lorsque j'ajoute la condition, j'aimerai que s'il n'y a rien lorsque le filtre est appliqué, alors rien ne se passe, et s'il y a des données filtrées, alors on les copie dans une autre feuille.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set FeuilActiv = Sheets("SAP") i = Range("A" & Rows.Count).End(xlUp).Row Range(Cells(1, 1), Cells(i, 24)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Feuil1").Range("A1:A2"), Unique:=False Set checkFiltre = FeuilActiv.UsedRange.SpecialCells(xlCellTypeVisible) If (checkFiltre.Rows.Count > 1) Then k = Range("A" & Rows.Count).End(xlUp).Row Range(Cells(2, 1), Cells(k, 24)).Select Selection.Copy Sheets("Disques").Select l = Range("A" & Rows.Count).End(xlUp).Row Cells(l + 1, 1).Select ActiveSheet.Paste End If

21/04/2021, 15h58
Marie.L6

Citation:

Envoyé par Pierre Fauconnier

Salut.

Perso, j'utiliserais Power Query, considérant que les filtres avancés sont obsolètes ;)

Salut, je n'ai jamais utilisé Power Query encore, quels seraient les avantages ici ?
21/04/2021, 16h05
Pierre Fauconnier

J'ai édité mon message précédent pour parler également des tableaux structurés. Avec les versions actuelles d'Excel, Filtres (automatiques ou avancés) et Power Query sont intimement liés aux tableaux structurés.

En VBa, l'utilisation des tableaux structurés rend le code plus léger tout en le pérennisant.

Pour répondre à ta question, Power query permet de se dégager du VBA, surtout lorsque celui-ci ne s'appuie pas des tableaux structurés.

Pour ton code VBA, je ne vois pas pourquoi il fonctionnerait sur d'autres pcs et pas sur le tien. Perso, pour répondre stricto sensu à ta demande par rapport à ton code, il serait peut-être utile de tester que la plage des cellules visibles contient au moins deux lignes (celle des "entêtes" et une en dessous). Je dis cela sans avoir testé (car ça m'obligerait à reconstituer un fichier et à tester ton code)
21/04/2021, 16h24
Marie.L6

Citation:

Envoyé par Pierre Fauconnier

Pour ton code VBA, je ne vois pas pourquoi il fonctionnerait sur d'autres pcs et pas sur le tien. Perso, pour répondre stricto sensu à ta demande par rapport à ton code, il serait peut-être utile de tester que la plage des cellules visibles contient au moins deux lignes (celle des "entêtes" et une en dessous). Je dis cela sans avoir testé (car ça m'obligerait à reconstituer un fichier et à tester ton code)

Alors, quand je teste avec "entêtes" et une ligne en dessous, ça fonctionne. ça ne fonctionne enfaite que lorsque les valeurs filtrées sont sur les premières lignes, quand les valeurs filtrées sont après des lignes non filtrées : il n'y a que le filtre qui est appliqué dans mon code et pas la sélection + copier coller.

Code:

Range(Cells(2, 1), Cells(k, 24)).Select
21/04/2021, 16h33
Pierre Fauconnier
Je n'ai pas compris l'histoire "... et une ligne en dessous".

Selon l'expression de tes critères, tu pourrais tester qu'il y aura des lignes lors du filtre ou pas:
Code:

1 2 3 If Application.CountIfs(Range("b:b"), "20300*") > 0 Then '... End If
Tu peux aussi laisser aller, puis regarder s'il y a des données sous les entêtes collés et supprimer les entêtes si c'est vide en dessous. Ne comprenant pas bien les tenants et aboutissants de ta démarche, je sais personnellement difficilement aller plus loin.

RE

Pas clair : tu parle de déplacer mais ton code copie mais ne déplace ; ce sont 2 cas différents et les solutions ne sont pas les mêmes

Par ailleurs tu ajoutes les données à la fin d'autres données

Si c'est un déplacement ni le filtre avancé, ni POwerQuery, ne peuvent résoudre

Pour une copie par filtre avancé, ce type de code fonctionne quel que soit le cas
Code:

1 2 3 4 5 6 7 y = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1 With Worksheets("Feuil1") .Columns("A:H").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _ "K1:K2"), CopyToRange:=Worksheets("Feuil2").Cells(y, 1), Unique:=False End With Worksheets("Feuil2").Rows(y).EntireRow.Delete