Discussion :

[boom47]

Bonjour tout le monde
voila mon souci:
j'ai fait un programe de generation de tableau qui recupère des données calculés pour me cree un fichier utilisable. Afin de faciliter ou optimiser son efficience je cherche a eviter de mettre un copier coller dans VBA ( prise de memoire trop importante)

Voici le code que j'ai utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
Do Until Col > 9
    Worksheets("Tableau Prix-Destinations").Cells(307, Col).Copy
    Worksheets("FRT").Range("B14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Li = 308
    Do Until Li > 365
        Worksheets("Tableau Prix-Destinations").Cells(Li, 2).Copy
        Worksheets("FRT").Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Votre aide et propositions sont la bienvenu

Cordialement

AB

[gFZT82]

Bonjour,

Il serait préférable que tu indiques quelle(s) plage(s) tu souhaites copier dans "Tableau Prix-Destinations" et à quel endroit de "FRT" tu veux les coller.
En l’état, ton programme effectue simplement une flopée de copies vers les cellules A5 et B14 de "FRT" .

Cordialement.

[boom47]

ofet le programe me retourne une valeur qui s'inscrit dans la cellule que je copie et la place ensuite dans un tableau recapitulatif

peut etre en passant le ficjier cela sera plus compréhensible

calcul cout transport international V3.xls

[gFZT82]

Sans aller chercher plus loin, as-tu essayé une affection directe ?

Code :

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

1
2
3
4
5
Do Until Col > 9
	Worksheets("FRT").Range("B14")= Worksheets("Tableau Prix-Destinations").Cells(307, Col)
	Li = 308
	Do Until Li > 365
			Worksheets("FRT").Range("A5").=Worksheets("Tableau Prix-Destinations").Cells(Li, 2)

Cordialement.

[boom47]

nikel ca va eviter de me bouffer de la memoire quand je le ferai tourner je te remercie j'était pas sure sur l'affectation directe