Simplification enregistreur macro

Bonjour,

Pouvez-vous me donner une simplification de ce bout que je retrouve plusieurs fois après avoir généré un code avec l'enregistreur de macros.

Columns("AG:AG").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Cordialement,

xszma.

Bonjour,

En clair, tu veux que l'on devine ce que tu as fait ... pourquoi tu l'as fait ... et comment tu pourrais mieux faire !

A priori, tu remplaces les formules de la colonne AG par les valeurs renvoyées par ces formules.

Pour simplifier, tu peux supprimer les sélections :

'Copie la colonne AG
Columns("AG:AG").Copy
'colle les valeurs copiées sur cette même colonne AG.
Columns("AG:AG").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Cordialement.

Bonjour bonjour,

Columns("AG:AG").Copy
Columns("AG:AG").PasteSpecial (xlPasteValues)

bonjour,

Autre possibilité :

Sub Galopin()
Dim a
a = Columns("AG:AG").Value
Columns("AG:AG") = a
End Sub

A+

Merci beaucoup!

Juste je profite de vos compétences en la matière pour vous demander est-ce normal que lorsque j'écris :

Columns("BL:BL").Cut
Columns("AM:AM").Paste

il y a une erreur d'exécution

Bonjour,

Oui, utilise l'enregistreur de macro...

A+