Copier coller special formules comme valeurs

[teodormircea]

Bonjour le forum

Il y a t-il une possibilité d'utiliser une macros qui copie et colle les cellules qui contient des formules comme valeurs. Le truc c'est qu'il me faut une solution pour pouvoir faire cela sur des cellules filtres.😀

 

[BOISGONTIER]

Re : Copier coller special formules comme valeurs

Bonjour,

Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy Sheets("xx").[A1]

JB
Formation Excel VBA JB

 

[teodormircea]

Re : Copier coller special formules comme valeurs

Sub PAST_VALUE_SPECIAL()
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   
End Sub

jai enregistre ce code mais ca ne fonctionne pas sur des cellules filtres

 

[BOISGONTIER]

Re : Copier coller special formules comme valeurs

Voir PJ

JB

 

[teodormircea]

Re : Copier coller special formules comme valeurs

Voila une solution qui marche sur les zones selecte

Sub PASTE_SPECIAL_VALUES_TEXTMODE()

Dim oneArea As Range
 With Selection
On Error Resume Next
With Selection.SpecialCells(xlCellTypeVisible)
    With .SpecialCells(xlCellTypeFormulas, xlTextValues)
        .NumberFormat = "@"
    End With
    For Each oneArea In .SpecialCells(xlCellTypeFormulas).Areas
        oneArea.Value = oneArea.Value
    Next oneArea
End With
End With
On Error GoTo 0
End Sub