[VBA] Copier/coller des valeurs sans les formules

Bonjour à tous!

le code ci-dessous me permet d'insérer dans des colonnes nommées des valeurs issues d'un formulaire

With TS_lan
                i = Application.Match(Me.sublan24, .ListColumns("Subnet IP").DataBodyRange, 0)
                .ListColumns("Designation").DataBodyRange(i) = Me.descriplan
                .ListColumns("VLAN").DataBodyRange(i) = Val(Me.vlanlan)
                .ListColumns("Commentaire").DataBodyRange(i) = Me.commfinal3
End With

dans le tableau nommé TS_lan, certaines colonnes contiennent des valeurs issues de formules.

Ce que je souhaiterais, c'est à la fin du dérouler du code VBA (sans doute avant le "end with"), copier l'ensemble de la ligne (qui s'tend sur 9 colonnes) et la coller en mode valeur (ce qui effacera les formules de cette ligne).

En utilisant, l'enregistreur, j'obtiens si j'effectue moi même le test sur une ligne:

Range("A460:I460").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Question avant de manipuler mon fichier, si je supprime de cet enregistrement le "selection" ce qui donne :

.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Obtiendrais je le résultat escompté?

Par avance merci

Bonjour Sitting_bull, le forum,

Peut-être ainsi:

Range("TS_lan").ListObject.ListRows(460).Range = Range("TS_lan").ListObject.ListRows(460).Range.Value  'ligne à adapter

Cordialement,

Merci de ton retour, dans ton exemple tu renvoies à ma ligne test ("460").

Si je veux appliquer ce copier/coller à la ligne que j'insère:

i = Application.Match(Me.sublan24, .ListColumns("Subnet IP").DataBodyRange, 0)

Je pense que la syntaxe doit être différente, ou peut être je me trompe.

Re,

Peut-être ainsi:

If i <> 0 Then Range("TS_lan").ListObject.ListRows(i).Range = Range("TS_lan").ListObject.ListRows(i).Range.Value 

Sinon, il serait judicieux de joindre un fichier représentatif (sans données confidentielles) pour comprendre le besoin.

Cordialement,