Problème VBA passer formules en valeur lignes masquées (filtrées)

Dim Sh As Worksheet For Each Sh In Sheets 'partie remplacement des forumles par leur valeur Sh.Activate If Sh.Visible = True Then 'si la feuille est visible alors on applique le remplacement (evite de buguer la macro avec les tcd cachés) With ActiveSheet.UsedRange .Value = .Value End With Else ' si feuille pas active on passe à la suivant sans appliquer le remplacement (evite le bug de la macro avec les tcd) End If Next Sh

Bonjour,

Citation:

Lorsque je lance mon code, les formules sont bien passées en valeur mais la macro m'ajoute plein de données de façon "aléatoire" sur mes feuilles où il y a des lignes masquées, où plutôt filtrées, j'avoue ne pas comprendre pourquoi. Il n'y a pas de problème lorsque la plage n'est pas filtrée.

Tout est dit là
Pièce jointe 576915

Je vous propose ceci, dans une colonne supplémentaire on marque toutes les lignes visibles d'un "X", puis on supprime le filtre, on remplace les formules par les valeurs, puis on filtre sur les "X" de la colonne E pour retrouver la configuration d'origine et on efface la colonne E.

Le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Option Compare Text
 
Sub FormuleEnValeur()
    Dim Sh As Long, DerLig As Long
 
    Application.ScreenUpdating = False
    For Sh = 1 To Sheets.Count
        Set f = Sheets(Sh)
        If f.Visible = True Then 'si la feuille est visible alors on applique le remplacement
            DerLig = f.Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne de la zone filtrée
            f.Range("E5:E" & DerLig).SpecialCells(xlCellTypeVisible).Value = "X" 'on marque les lignes visibles d'un "X" dans la colonne E
 
            'On Error Resume Next 'pour le cas ou il n'y a pas de filtre sur la colonne A
            f.AutoFilterMode = False 'On affiche toutes les lignes
            DerLig = f.Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne de la feuille
 
            With f.UsedRange 'on remplace les formules par leurs valeurs
                .Value = .Value
            End With
        End If
 
        'Revenir à la présentation initiale, on applique le filtre sur la colonne E en ne sélectionnant que les "X"
        f.Range("A4:E4").AutoFilter
        f.Range("A4:E" & DerLig).AutoFilter Field:=5, Criteria1:="X"
        f.Range("E5:E" & DerLig).ClearContents 'on efface la colonne E
    Next Sh
End Sub

Cdlt