Probleme - données filtrées VBA

[yatiz]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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

 

[yatiz]

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]

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.