1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub MedianFiltre()
Dim r As Long, Tag As Long, DerLig As Long
Dim LaFormule As String
LaFormule = "=Median(" 'Début du texte qui fera office de formule à placer
DerLig = Sheets("TaFeuil").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row 'Défini la dernière ligne remplie sur base de la colonne 1 (=>A)
For r = 2 To DerLig 'Boucle de la 2ème (car titre) à la dernière ligne remplie.
If Sheets("TaFeuil").Rows(r).Hidden = False Then 'Si ligne visible (avec le filtre activé),
Tag = Tag + 1 'Tag pour définir la première ligne et donc l'absence d'une virgule
If Tag = 1 Then
LaFormule = LaFormule & Cells(r, 2).Address '1 ère adaptation de la plage pour la formule
Else
LaFormule = LaFormule & "," & Cells(r, 2).Address 'Adaptation de la plage pour la formule
End If
End If
Next r
LaFormule = LaFormule & ")" 'Finalisation de la formule
Range("D1") = LaFormule 'Place la formule en D1
End Sub |
Partager