Copier en valeur

[Murdoc]

Bonjour à tous,

Ci-dessous ma macro pour copier/collier en valeur les cellules (concaténées) d'une colonne:

Range("H3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Je ne comprends pas pourquoi lorsque je l'éxécute, le collage ne s'effectue, la macro s'arrête une fois que la copie de la colonne est effectuée (Aucun message d'erreur).

Est-ce que quelqu'un pourrait me donner un coup de main sur le sujet?

Merci d'avance pour votre aide.

 

[Guest]

Re : Copier en valeur

Bonjour Murdoc,

Sans selection préalable tu faire comme ceci:

Range("H3",range("H3").End(xlDown)).Formula=Range("H3",range("H3")).End(xlDown).Value

Avec selection préalable:

Range("H3").Select
Range(Selection, Selection.End(xlDown)).Formula = Range(Selection, Selection.End(xlDown)).Value

A+

 

[nantouillet]

Re : Copier en valeur

Salut
il faudrait peut etre juste préciser la cellule de déstination .

Range("H3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("i3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

A+

 

[Guest]

Re : Copier en valeur

Re,

Oui, je me suis demandé ce qu'il voulait exactement, notre ami, copier les cellules sur elles-mêmes (enlever les formules) ou ailleurs. De plus que veux-t-il nous dire dans:

pour copier/collier en valeur les cellules (concaténées) d'une colonne:

A+🙂

 

[Murdoc]

Re : Copier en valeur

Bonjour Nantouillet,

Effectivement tu as raison, j'avais tout simplement oublié de préciser la cellule de destination.

Merci quand même