Discussion :

[Djohn]

Bonjour,

Ma colonne D contient plusieurs formules,

Je veux via le vba uniquement, faire un copier/coller spécial qui ne colle que les valeurs sans les formules,

Lorsque j'enregiste une macro cela me cré ce code mais impossible de l'intégrer dans la suite de mon code VBA, j'ai une erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Columns("D:D").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Merci

[tomy7]

deja pk tu mets pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

column("D").select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
columns("D").select
selection.copy
Range("E1").select
selection.pastespecial Paste:=xlpastevalues , operation:=xlnone , skipblanks _
:= false, transpose:=false

sa marche chez moi...

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
columns("D").select
selection.copy
Range("E1").select
selection.pastespecial Paste:=xlpastevalues , operation:=xlnone , skipblanks _
:= false, transpose:=false

sa marche chez moi...

Sauf que ça sort brut de fonderie de l'enregistreur de macro... Donc, simplifions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("D").Copy
Range("E1").PasteSpecial Paste:=xlPasteValues