Probleme - données filtrées VBA

yatiz · 2 Mai 2018

Bonjour les amis,

J'ai un réel problème aujourd'hui, et j'ai besoin de votre aide.
Je cherche à créer un programme qui calculerait automatiquement un taux de réussite basé sur un score (100) basé sur plusieurs critères.

Mais le problème, c'est que mes données sont filtrées avec une dizaine de colonnes dans Excel et du coup, mon programme sur VBA prend en compte toute les données, et pas seulement les données filtrées comme je le souhaiterez.
Il sélectionne la totalité, c'est a dire environ 300 données au lieu d'une centaine ou vingtaine qui sont filtrées.

Quelqu'un aurait une solution s'il vous plait ?
En vous remerciant.

Voici ma macro :

Sub liste1()

Dim L As Variant
Dim compteur As Variant
Dim Total As Variant
Dim Bon As Variant

compteur = 0
L = 1

While Cells(L, 12).Value <> ""

If Subtotal(Cells(L, 12) = 100) Then
compteur = compteur + 1
Else
compteur = compteur

End If

L = L + 1

Wend

Cells(2, 16).Value = compteur
Bon = Cells(2, 16).Value

compteur = 0
L = 2

While Cells(L, 12).Value <> ""

compteur = compteur + 1
L = L + 1

Wend

Cells(4, 16).Value = compteur
Total = Cells(4, 16).Value

Cells(1, 16).Value = Bon / Total

End Sub

Lone-wolf · 2 Mai 2018

Bonjour yatiz et bienvenue sur XLD

Pour n'avoir que les lignes filtrées, il faut écrire comme ceci

.Cells.SpecialCells(xlCellTypeVisible)

Et pour avoir le total des lignes filtrées, à adapter

Dim derlig As Long
derlig = Range("i" & Rows.Count).End(xlUp).Row
Range("F7") = WorksheetFunction.Subtotal(9, Range("i2:i" & derlig)

yatiz · 2 Mai 2018

Bonjour Lone-wolf

Merci pour ta réponse, du coup je dois changer tout mes « cells » par des « Cells.SpecialCells » ? C’est le même principe avec les lignes et colonnes ?

Lone-wolf · 2 Mai 2018

Re

Tu parle d'une 10aine de colonnes, mais je vois >Cells(2, 16); en plus, il n'y a pas besoin de boucles. Un exemple à adapter

Dim derlig As Long, plage As Range
derlig = Range("a" & Rows.Count).End(xlUp).Row

Set plage = .Range("a1:r" & derlig)

plage.Autofilter Field:= Le n° de la colonne, Criteria1:= ton 1er critère, Operator:=xlAnd, _
Criteria2:= ton 2ème critère

yatiz · 2 Mai 2018

Re,

Je me suis complètement perdu

Avec mon cas dans ma boucle, comment je peux juste introduire SpecialCells ? je veux continuer sur ma lancé avec ma boucle si possible.
Pour ce qui est de la 16eme colonne que tu vois, c'est pour y inscrire le résultat.

yatiz · 2 Mai 2018

j'ai bien essayé avec :

Dim derlig As Long, plage As Range

derlig = Range("a" & Rows.Count).End(xlUp).Row

Set plage = .Range("a1:r" & derlig)

plage.AutoFilter 12, "< 100", xlAnd

End Sub

Mais je bloque vraiment. Mon fichier excel comporte 14 colonne filtrée, seul la 12eme m'intéresse (c'est celle ou les scores sont récoltés). Et je désire donc que le résultat soit affiché dans la première cellule de la 16eme colonne.

yatiz · 2 Mai 2018

De plus, dois-je mettre :

.Cells.SpecialCells(xlCellTypeVisible)

A la fin d'une cellule ? Comme ceci :

Cells(L,12).SpecialCells(xlCellTypeVisible)

Merci d'avance

Lone-wolf · 2 Mai 2018

Re

Il faut bien lire le message avant de faire quoi que ce soit. J'ai bien dit qu'il faut ADAPTER. Donc Au lieu de la colonne R, tu met le nom de la dernière colonne.

Pour la 2ème question: non. Juste Cells.SpecialCells(xlCellTypeVisible)

Plus est: si tu mettrais le fichier, ça serait beaucoup plus simple.

yatiz · 2 Mai 2018

Re

Je n'ai pas le droit de mettre le fichier sinon je vous l'aurez partagé depuis le début
Désolé de vous embêter d'avantage, mais malgré le fait que j'introduise :

Cells.SpecialCells (xlCellTypeVisible)

Le résultat ne change pas, excel prend en compte tout les lignes. (Je l'introduit juste après la boucle et avant)

Lone-wolf · 2 Mai 2018

Re

Essaie comme ceci

Set cel = Range("j5:j" & derlig) à changer par le nom de la colonne 12

With Range("g2") ' à changer aussi
.Value = WorksheetFunction.Subtotal(9, cel)
End With

yatiz · 2 Mai 2018

Ca ne fonctionne toujours pas. Ma colonne 12 se nomme "Score"

yatiz · 2 Mai 2018

Re
Voici un fichier test qui est semblable a mon fichier excel. J'ai incorporé ma première macro dedans.
Je veux juste prendre en compte les filtres

Lone-wolf · 2 Mai 2018

Re

À quoi servent compteur et Bon?? Sinon voir module2. Clique sur le bouton filtrer pour voir le résultat. Clique sur Suppr. Filtre pour enlever le filtre.

Probleme - données filtrées VBA

yatiz

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

yatiz

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

yatiz

XLDnaute Nouveau

yatiz

XLDnaute Nouveau

yatiz

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

yatiz

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

yatiz

XLDnaute Nouveau

yatiz

XLDnaute Nouveau

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Discussions similaires