Impossible coller valeurs seules

Staple1600

XLDnaute Barbatruc

• 8 Novembre 2009

• #2

Re : Impossible coller valeurs seules

Bonsoir

EDITION: sans copier/coller

Code:

Sub Macro3()
[F8].Resize(3, 3).Value = Application.Trim([F2].Resize(4, 3).Value)
End Sub

Essayes comme ceci

Code:

Sub Macro2()
' Macro2 Macro
' Macro enregistrée le 08/11/2009 par  

    Range("F2:H5").SpecialCells(xlCellTypeFormulas, 23).Copy
    Range("F8").PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    Selection.Replace " ", "", xlPart, xlByRows, False
End Sub

 

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif

P

paseg

Guest

• 8 Novembre 2009

• #3

Re : Impossible coller valeurs seules

Merci Staple,

Ca fonctionne mais j'aurais du préciser que je souhaitais copier la feuille entière. Lorsque je sélectionne la feuille (je remplace Range("F2:H5") par Selection), je perds la plupart des données
Pourrais-je les conserver ?
Merci
Paseg

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Novembre 2009

• #4

Re : Impossible coller valeurs seules

Bonjour


Et comme cela ?

Code:

Sub Macro1()
Dim r As Range, rvs As Range
Set r = Selection
r.Value = Application.Trim(r.Value)
End Sub

 

Vote positif 0 Vote négatif

P

paseg

Guest

• 8 Novembre 2009

• #5

Re : Impossible coller valeurs seules

Super Staple,
Je ne comprends pas grand chose mais c'est exactement ce que je voulais.
Encore merci.
Mon problème est résolu mais je ne sais pas comment l'indiquer.
Cordialement
Paseg

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 8 Novembre 2009

• #6

Re : Impossible coller valeurs seules

paseg à dit:

Super Staple,
Je ne comprends pas grand chose mais c'est exactement ce que je voulais.
Encore merci.
Mon problème est résolu mais je ne sais pas comment l'indiquer.
Cordialement
Paseg

Cliquez pour agrandir...

bonjour à tous
en fait tu n'as pas à indiquer que le sujet est clos sur ce forum
en effet excel offre tellement de possibilités que quelqu'un peut revenir rajouter sa méthode qui pourra ensuite profiter à d'autres grâces aux archives
cordialement

 

Vote positif 0 Vote négatif

K

Kobaya

XLDnaute Occasionnel

• 8 Novembre 2009

• #7

Re : Impossible coller valeurs seules

bonjour le Forum,

je pense qu'il est important de préciser une chose : lorsque l'on réserve de la mémoire pour une variable objet, il ne faut pas oublier de la libérer en fin de macro.
Donc, il faut rajouter la ligne Set r = Nothing :

Code:

Sub Macro1()
Dim r As Range, rvs As Range
Set r = Selection
r.Value = Application.Trim(r.Value)
Set r = Nothing
End Sub

 

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif