Ne copier que les valeurs

[Macpoy]

bonsoir le forum,

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

cette formule me copie les cellules d'une feuille Fact vers une nouvelle que j'ai crée précédemment.
est il possible de la modifier afin de recopier que les valeurs et non pas les formules ?

merci d'avance pour vos savant éclairages.
@plus jacques

 

[kjin]

Re : Ne copier que les valeurs

Bonsoir,

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

devrait le faire
A+
kjin

 

[Macpoy]

Re : Ne copier que les valeurs

Re le forum,
bonsoir kjin,

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 ?????

 

[kjin]

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

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

A+
kjin

 

[Macpoy]

Re : Ne copier que les valeurs

Re,

derrière ces termes

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.

 

[Macpoy]

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é.

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

 

[kjin]

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

 

[Macpoy]

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

 

[Macpoy]

Re : Ne copier que les valeurs

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

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

[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

 

[Compte Supprimé 979]

Re : Ne copier que les valeurs

Bonjour MacPoy 😉

Peut-être avec ce code

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

A tester

 

[Macpoy]

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.

 

[kjin]

Re : Ne copier que les valeurs

Bonjour,
Sans copier coller

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