Xlvalue ne fonctionne que partielement lors d'une

[Christiangeorges]

Jour à tous,

Objectif : créer une copie de feuilles dans un nouveau classeur. Cette copie ainsi créée ne devant avoir que des valeurs et non des formules.

Voici le code créé :

Dim Feuilles(1 To 3)
Feuilles(1) = 'Truc'
Feuilles(2) = 'Muche'
Feuilles(3) = 'EtMoi'
Sheets(Feuilles).Copy
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Tout se passe parfaitement bien sur la feuille 1, j'ai bien les valeurs indiquées ! ou ça se complique c'est sur la deuxième feuille ou j'ai seulement une partie en valeur et le reste avec les formules. Mes nuits blanches n'ont apporté que des cernes plus que de solution.

Sur la troisième feuille créée je n'ai qu'une copie avec les formules et aucune valeur.

Probleme de capacité mémoire ? comment solutionner ce probleme en le contournant ? La est la question !

Merci de votre aide

Cordialement

 

[Bernard_XLD]

Bonjour

Il faut que tu précises que c'est l'ensemble des cellules que tu désires copier coller, et que tu le fasses par feuille! d'autre part les sélections sont inutiles.

A+

Dim Feuilles As Worksheet
Sheets(Array('Truc', 'Muche', 'EtMoi')).Copy
For Each Feuilles In ActiveWorkbook.Sheets
Feuilles.Cells.Copy
Feuilles.Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next Feuilles

 

[Christiangeorges]

Je vais essayer cela tres rapidement.
Bonne continuation et grandement MERCI pour me sortir de cette impasse.

Cordialement Christian