Macro copier/coller valeurs

[LocSta]

Bonjour, est ce que quelqu'un aurai une macro qui fait un copier/coller valeur.
Ex: en colonne A j'ai un liste issu d'une fonction égale d'un autre classeur excel (=SI('C:\Documents and Settings\Marc\Bureau\Stage\[Filtrage (Partie 1).xls]Filtrage'!A2=0;"";MINUSCULE('C:\Documents and Settings\Marc\Bureau\Stage\[Filtrage (Partie 1).xls]Filtrage'!A2)))
Je souhaite une macro qui remplace la formule par la valeur qu'elle contient et ce dans toute la colonne
Cette formule serait valable dans les colonnes A & B

Thx

 

[Compte Supprimé 979]

Re : Macro copier/coller valeurs

Salut LocSta,

Pourquoi en VBA, un simple CTRL+C de la colonne puis clique sur outils "Coller valeur" le fait parfaitement en 2 secondes

 

[Staple1600]

Re : Macro copier/coller valeurs

Bonjour

Si vraiment VBA est ton Dieu
alors en direct de l'enregistreur de macro (son apotre)

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/04/2007 par MOI'

'
 Selection.Copy
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub

 

[Staple1600]

Re : Macro copier/coller valeurs

Après tu peaufiner

Sub Macro1()
    Selection.Copy
    Selection.PasteSpecial xlValues, xlNone, False, False
End Sub

ou sans passer par un copier/coller

Sub formultovaleur()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In ActiveSheet.UsedRange
cell.Value = cell.Value
Next
End Sub

 

[bast0504]

Re : Macro copier/coller valeurs

Bonjour

Comment ajuster la macro de manière à remplacer les messages d'erreur Valeur (cas ou aucune donnée n'est copiée) par un simple tiret ou aucune valeur ?

Merci