Excel, bouton, filtre et moyenne
Résolu/Fermé
dijkstra
Messages postés
1
Date d'inscription
jeudi 1 janvier 2015
Statut
Membre
Dernière intervention
1 janvier 2015
-
Modifié par jee pee le 1/01/2015 à 14:36
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 5 janv. 2015 à 00:21
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 5 janv. 2015 à 00:21
A voir également:
- Bouton filtre
- Photo filtre gratuit - Télécharger - Retouche d'image
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Filtre manga - Guide
- Bouton shift pc ✓ - Forum Windows
- Taille bouton css - Forum HTML
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
1 janv. 2015 à 21:09
1 janv. 2015 à 21:09
Bonsoir Dijkstra, bonsoir le forum,
Peut-être comme ça (non testé) :
Un petit coucou au Maroc cher à mon coeur...
Peut-être comme ça (non testé) :
Sub filtrer()
Dim I As Byte
Dim x As Double
Dim PL As Range
Dim PLV As Range
Sheets("Casa-Fès").Activate
Set PL = Range("I2:I20945")
For I = 4 To 6
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$20945").AutoFilter Field:=1, Criteria1:=Sheets("feuil2").Cells(I, 1).Value
ActiveSheet.Range("$A$1:$I$20945").AutoFilter Field:=2, Criteria1:=Sheets("feuil2").Cells(I, 2).Value
ActiveSheet.Range("$A$1:$I$20945").AutoFilter Field:=3, Criteria1:=Sheets("feuil2").Cells(I, 3).Value
ActiveSheet.Range("$A$1:$I$20945").AutoFilter Field:=4, Criteria1:=Sheets("feuil2").Cells(I, 4).Value
ActiveSheet.Range("$A$1:$I$20945").AutoFilter Field:=6, Criteria1:=Sheets("feuil2").Cells(I, 5).Value
ActiveSheet.Range("$A$1:$I$20945").AutoFilter Field:=8, Criteria1:=Sheets("feuil2").Cells(I, 6).Value
'x = WorksheetFunction.Subtotal(1, Sheets("Casa-Fès").Range("I:I"))
On Error Resume Next
Set PLV = PL.SpecialCells(xlCellTypeVisible)
If Err <> 0 Then
MsgBox "Aucune cellule visible !"
GoTo suite
End If
x = Application.WorksheetFunction.Sum(PLV)
Sheets("feuil2").Cells(I, 7).Value = x
suite:
Next I
End Sub
Un petit coucou au Maroc cher à mon coeur...
5 janv. 2015 à 00:00
en tout cas merci bcp :)
le Maroc vous salut aussi ^^
5 janv. 2015 à 00:21