Ne copier que les valeurs

K

kjin

XLDnaute Barbatruc

• 23 Avril 2010

• #2

Re : Ne copier que les valeurs

Bonsoir,

Code:

Set MaSelection = Fact.Range("A4:M125").SpecialCells(xlConstants)

devrait le faire
A+
kjin

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 24 Avril 2010

• #3

Re : Ne copier que les valeurs

Re le forum,
bonsoir kjin,

Code:

MaSelection.Copy Destination:=Sheets(Range("LeClient") & " " & TypeDoc).Range("A4")

sur cette ligne, j'ai un message d'erreur "erreur d'exécution 1004 " impossible d'exécuter cette commande sur des sélections multiples.

Quid ?????

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Avril 2010

• #4

Re : Ne copier que les valeurs

re,
Le pb est que vu le peu d'info on ne sait pas ce qui ce cache derrière ceci

Code:

Sheets(Range("LeClient") & " " & TypeDoc)

A+
kjin

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 24 Avril 2010

• #5

Re : Ne copier que les valeurs

Re,

derrière ces termes

Code:

Sheets(Range("LeClient") & " " & TypeDoc)

se trouve tous simplement une feuille que j'ai crée précédemment dans la macro et qui porte le nom d'un range nommé et d'un numéro.

j'ai tenté de remplacer
Sheets(Range("LeClient") & " " & TypeDoc) par le nom d'une feuille que j'ai créer pour l'occasion.
Sheets("Model") mais le problème est toujours le même
impossible d'exécuter cette commande sur des sélections multiples !!!

le pb vient de la sélection et pas de la feuille de destination.

au plaisir de vous relire.

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 24 Avril 2010

• #6

Re : Ne copier que les valeurs

Euréka !!!

en recherchant j'ai retrouvé cette astuce utilisé dans un vieux classeur et que j'ai adapté.

Code:

Set MaSelection = Fact.Range("A4:M125")

[B][COLOR=Red]With MaSelection
.Value = .Value
End With[/COLOR][/B]

     MaSelection.Copy Destination:=Sheets(Range("LeClient") & " " & TypeDoc).Range("A4")

et j'obtiens exactement le but recherché;

merci beaucoup kjin.

bonne soirée
@plus jacques

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Avril 2010

• #7

Re : Ne copier que les valeurs

re,
j'ai cru que la plage contenait et des valeurs et des formules et que tu souhaitais ne copier que les valeurs ! 🙄
A+
kjin

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 24 Avril 2010

• #8

Re : Ne copier que les valeurs

Vue l'heure, je dirais bonjour !!

merci beaucoup pour votre aide qui m'a permise de franchir un pas supplémentaire dans l'amélioration de mon classeur devis / facture.
bonne nuit.
@plus jacques

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 24 Avril 2010

• #9

Re : Ne copier que les valeurs

Bonjour le forum,
j'ai crié Euréka trop vite !!!

HTML:

re,
j'ai cru que la plage contenait et des valeurs et des formules et que tu  souhaitais ne copier que les valeurs ! :rolleyes:
A+
kjin

le résultat dans la feuille de destination est excellent

MAIS !!!

je n'ai plus de formules dans la feuille d'origine.

c'est à cause de cette partie de la macro

Code:

[B][B][COLOR=Red]With MaSelection
.Value = .Value
End With[/COLOR][/B][/B]

avez vous une idée pour copier les valeurs de ma feuille d'origine et y laisser les formules.

merci d'avance.
@plus Jacques

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Avril 2010

• #10

Re : Ne copier que les valeurs

Bonjour MacPoy 😉

Peut-être avec ce code

Code:

'Fact.Range("A4:M125").Copy
Fact.Range("A4:M125").SpecialCells(xlCellTypeFormulas).Copy
Sheets(Range("LeClient") & " " & TypeDoc).Range("A4").PasteSpecial Paste:=xlPasteValues

A tester

 

Dernière modification par un modérateur: 24 Avril 2010

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 25 Avril 2010

• #11

Re : Ne copier que les valeurs

bonsoir le forum, BrunoM45,

votre code ne fonctionne que si je supprime la partie

.SpecialCells(xlCellTypeFormulas)
bon pour le moment, sans comprendre pourquoi comment, j'utilise ce qui fonctionne tant bien que mal.
doit certainement y avoir mieux !!
mais ceci me convient.

bonne soirée.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 25 Avril 2010

• #12

Re : Ne copier que les valeurs

Bonjour,
Sans copier coller

Code:

Set c = Fact.Range("A4:M125")
Addr = c.Address(0, 0)
With Sheets(Range("LeClient") & " " & TypeDoc)
    .Range(Addr) = c.Value
End With

On peut aussi utiliser un tableau
A+
kjin

 

Vote positif 0 Vote négatif