Convertit automatiquement une table de formules en valeurs

Bonsoir le Forum,

J'ai fait pas mal de progrès grâce àvous et en particulier à Mytå depuis ma première incursion dans le forum. Merci.

J'ai une nouvelle demande car je ne trouve pas les instructions à utiliser.

J'ai une matrice A1:X20 qui se remplit par des formules ou des données directes. Une fois remplie, j'aimrai mette en place un bouton qui fasse disparaître les formules et n'afficeh alors que les valeurs obtenues. Cette matrice n'est en fait qu'une partie d'un document diffusé largement et je ne souhaite pas que les destinataires puissent voir les formules.

Merci pour votre aide.

Bien cordialement

Bonjour

Avec l'Editeur de Macro, tu sélectionnes ta plage A1:X20, tu fais un copier-collage spécial-Valeurs, tu sélectionnes une cellule au hasard, tu appuie sur Echapp et tu arrêtes l'enregistrement.

Cela doit donner cela:

Sub EffacerFormules()
    Range("A1:X20").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Puis, tu crées un bouton auquel tu affectes ta macro.

Cordialement

Merci Amadeus

Bonne soirée

Salut le forum

La macro simplifiée

Sub CopierValeurs()
With Range("A1:X20")
    .Value = .Value
End With
End Sub

Mytæ

Sinon la solution est de convertir ton document en PDF et de la diffuser dans ce format.