Discussion :

[bosk1000]

bonjour a tous
voila j'ai ce code

Code :

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

1
2
3
4
 
 Columns("D:F").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues '

que j'essais de compiler en une ligne, mais sans succes
je voudrais éviter de passer par .select

[mapeh]

Bonsoir,

en une ligne :

Code :

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

Range(Cells(1, 4), Cells([D65000].End(xlUp).Row, 6)).Value = Range(Cells(1, 4), Cells([D65000].End(xlUp).Row, 6)).Value

Bonne soirée

[bosk1000]

merci
ton code est nickel

par contre je comprend pas la terminologie

je décompose et dis moi si je me trompe

Code :

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

1
2
 
Range(Cells(1, 4), Cells([D65000].End(xlUp).Row, 6))

tu détermines la colonne d à f en prenant de :
d1 avec cells(1,4)
à la fin de la colonne f : Cells([D65000].End(xlUp).Row, 6

et du coup ton code ma donné une idée plus simple qui fonctionne

Code :

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

1
2
 
Columns("D:F").Value = Columns("D:F").Value

grace à ton xxx.value =xxxx.value

merci

[mapeh]

Re-,

ton code fonctionne également....

Sauf que (pour 2003), tu calcules sur 65536 lignes....

Pour 2007, un peu plus (1 048 576 lignes)...


et gardes tes idées....(quoique....)