Discussion :

[mouftie]

Bonjour,
je voudrais remplacer les résultats à zéros d'une formule par des cellules vides, le tout seulement sur des cellules filtrées.

J'ai commencé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Sup0Ja()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim plg As Range, x As Variant, i As Integer, y As Integer
Worksheets("BdD").Activate
ActiveSheet.ListObjects("BdD").Range.AutoFilter Field:=2, Criteria1:= _
        "JA Yan"
Set plg = ActiveSheet.Range("_filterdatabase").SpecialCells(xlCellTypeVisible)
x = Split(plg.Address, ",")
For i = LBound(x) + 1 To UBound(x)
'je veux remplacer les formules par leur résultat dans la colonne BdD[Tp Post Traitm]
        Range("BdD[Tp Post Traitm]").Copy
        Range("BdD[Tp Post Traitm]").PasteSpecial Paste:=xlPasteValues    'C'est ici que ça ne fonctionne plus
        Range("BdD[Tp Post Traitm]").Replace What:="00:00:00", Replacement:=""
Next i
 
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Mais j'ai un message "impossible de coller les infos car les zones copier et de collage sont de forme rectangulaire et de taille différentes..."
Est-ce que quelqu'un peut m'aider svp

[SfJ5Rpw8]

bonjour,

essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
with ThisWorkBook.Worksheets("BdD")
 .Range("BdD[Tp Post Traitm]") = .Range("BdD[Tp Post Traitm]").value
end with

[mouftie]

Bonjour bbil,
Merci pour ta réponse, mais cela ne fonctionne pas.
En effet, je n'ai plus de formule, mais j'ai la même valeur dans toute ma colonne filtrée (ça ne touche pas aux formules des lignes non filtrées - ce qui est déjà bien).
Est-ce que vous voyez ce qu'on peut faire, svp ?
Merci