macro pour remplacer liens par valeur

[mcj1997]

Bonsoir,

J'ai cette macro qui doit permettre de remplacer des liens par les valeurs, toutefois j'ai une erreur sur la ligne 4 ?

merci d'avance,


Sub RemplacerLiensParValeurs()
Dim vFin As Object
Dim vCellule As Object
vFin = ActiveCell.SpecialCells(xlLastCell).Address
For Each vCellule In ActiveSheet.Cells
If vCellule.Address = vFin Then
Exit For
End If
If InStr(1, vCellule.Formula, "!") > 1 Then
vCellule.Copy
vCellule.PasteSpecial Paste:=xlValues
End If
Next
End Sub

 

[kjin]

Re : macro pour remplacer liens par valeur

Bonsoir
Essaie

vFin = ActiveSheet.Cells.SpecialCells(xlLastCell).Address

A+
kjin

 

[mcj1997]

Re : macro pour remplacer liens par valeur

Bonsoir
Essaie

vFin = ActiveSheet.Cells.SpecialCells(xlLastCell).Address

A+
kjin

MAINTENANT j'ai le message d'erreur suivant : variable objet ou variable de bloc With non définie.

Merci d'avance,

 

[kjin]

Re : macro pour remplacer liens par valeur

Re,
Variable non adaptée

Sub RemplacerLiensParValeurs()
Dim vFin As String
Dim vCellule As Object
vFin = ActiveSheet.Cells.SpecialCells(xlLastCell).Address
For Each vCellule In ActiveSheet.Cells
If vCellule.Address = vFin Then
Exit For
End If
If InStr(1, vCellule.Formula, "!") > 1 Then
vCellule = vCellule.Value
End If
Next

End Sub

A+
kjin

 

[mcj1997]

Re : macro pour remplacer liens par valeur

Bonjour,

Merci KJIN, cela fonctionnne toutefois c'est ok pour les celllules qui comportent un !, mais j'ai aussi des cellules qui comportent une formule ex : B6+C4 et pour celles-ci est-il possible d'ajouter une ligne à la macro afin de remplacer aussi ces formules par les résultats ?

 

[kjin]

Re : macro pour remplacer liens par valeur

Bonsoir,
Donc si je comprends bien, on remplace toutes les formules par leur valeur

Sub RemplacerLiensParValeurs()
Dim Cel
Dim FCells As Range
On Error Resume Next
    Set FCells = Cells.SpecialCells(xlFormulas)
        For Each Cel In FCells
        Cel.Value = Cel.Value
        Next
End Sub

A+
kjin

 

[mcj1997]

Re : macro pour remplacer liens par valeur

Bonsoir,
Donc si je comprends bien, on remplace toutes les formules par leur valeur

Sub RemplacerLiensParValeurs()
Dim Cel
Dim FCells As Range
On Error Resume Next
    Set FCells = Cells.SpecialCells(xlFormulas)
        For Each Cel In FCells
        Cel.Value = Cel.Value
        Next
End Sub

A+
kjin

Bonjour,

C'est exactement ce que je voulais mais je veux encore aller plus loin.
Exemple si le fichier ou je remplace les liens et formules par les valeurs est dans la feuille 1, je voudrais compléter ma macro afin qu'une copie de la feuille 1 se fasse en feuille 2 qu'avec les nombres et ainsi conserver les formules et liens dans la feuille 1. Puis une autre fois répéter l'opération et que la copie se fasse en feuiile 3 .....

Merci d'avance,

 

[kjin]

Re : macro pour remplacer liens par valeur

Bonsoir,
Puisque tu ne fournis pas la macro qui copie ta feuille...
...de souvenance xl2003 permet le Copier/Coller Spécial Valeurs et Formats, il suffit donc de faire les copies avec les bonnes options
A+
kjin

 

[mcj1997]

Re : macro pour remplacer liens par valeur

Bonsoir,
Puisque tu ne fournis pas la macro qui copie ta feuille...
...de souvenance xl2003 permet le Copier/Coller Spécial Valeurs et Formats, il suffit donc de faire les copies avec les bonnes options
A+
kjin

Bonjour,

C'est évident que je ne fournisse pas la macra puisque c'est l'objet de ma demande !

 

[kjin]

Re : macro pour remplacer liens par valeur

Bonjour,

....Puis une autre fois répéter l'opération et que la copie se fasse en feuiile 3 .....

C'est de ça dont je te parlais...parce je ne comprends pas ce que ça veut dire ?!

Sub Copie()
    Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
    RemplacerLiensParValeurs
    
End Sub

Sub RemplacerLiensParValeurs()
Dim Cel
Dim FCells As Range
On Error Resume Next
    Set FCells = Cells.SpecialCells(xlFormulas)
        For Each Cel In FCells
        Cel.Value = Cel.Value
        Next
End Sub

kjin

 

[mcj1997]

Re : macro pour remplacer liens par valeur

Bonjour,

C'est de ça dont je te parlais...parce je ne comprends pas ce que ça veut dire ?!

Sub Copie()
    Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
    RemplacerLiensParValeurs
    
End Sub

Sub RemplacerLiensParValeurs()
Dim Cel
Dim FCells As Range
On Error Resume Next
    Set FCells = Cells.SpecialCells(xlFormulas)
        For Each Cel In FCells
        Cel.Value = Cel.Value
        Next
End Sub

kjin

OK désolé, en fait j'ai sur ma feuille 1 un tableau que j'alimente tous les mois et donc je veux le sauvegarder mensuellement au fil des mois sur les feuilles 2 en février, Feuille 3 en mars ...

 

[kjin]

Re : macro pour remplacer liens par valeur

Bonsoir,
Il faut dans un premier temps récupérer la date qui je suppose doit apparaitre qq part dans ton tableau,et ceci pour nommer la nouvelle feuille; mais sans fichier...
A+
kjin