Discussion :

[Marie.L6]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[78chris]

BOnjour

Utilise directement un filtre avancé https://philippetulliez.developpez.c...dvancedfilter/

[Marie.L6]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Salut.

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

[Marie.L6]

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 ?

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

[Marie.L6]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(2, 1), Cells(k, 24)).Select

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

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[78chris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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