Discussion :

[tarnx]

Bonjour à tous,

Dans mon application, je réaliser un copier/coller de cellules via macro grâce aux instructions suivantes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sheets("T-Pompages").Select
Range(Cells(oLigne, 5), Cells(oLigne, 31)).Select
Selection.Copy
 
Sheets("T-Exhaust").Select
Range(Cells(oRow, 55), Cells(oRow, 55)).Select
ActiveSheet.Paste

Cependant, ça ne copie pas le contenu mais les formules, or je souhaite récupérer le contenu des cellules.

Comment puis-je y parvenir?

Merci de votre aide

[Fvandermeulen]

Salut,
De manière générale il faut éviter les copier/coller avec selection (ça ralenti le code), essaies ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("T-Exhaust").Range(Sheets("T-Exhaust").Cells(oRow, 55), Sheets("T-Exhaust").Cells(oRow, 55))=Sheets("T-Pompages").Range(Sheets("T-Pompages").Cells(oLigne, 5), Sheets("T-Pompages").Cells(oLigne, 31))

Sinon, si tu peux toujours utiliser l'enregistreur de macro et faire un copier coller valeur, tu auras alors la réponse

A+

[Nad-Dan]

Bonjour,

essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("T-Pompages").Range(Cells(oLigne, 5), Cells(oLigne, 31)).Copy
With Sheets("T-Exhaust")
    .Activate
    .Range(Cells(oRow, 55)).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False

Amicalement

Dan

[LeForestier]

Le plus simple ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("T-Pompages").Range(Cells(oLigne, 5), Cells(oLigne, 31)).Copy
Sheets("T-Exhaust").Cells(oRow, 55).PasteSpecial Paste:=xlValues

Avec PasteSpecial obliger de le faire sur deux lignes, avec Paste ça va sur une seule ligne.
A+

[tarnx]

Merci à tous.

J'ai utilisé la technique de LeForestier, ca marche à merveille