2010-10-18 10 views

Répondre

2

Idem, fondamentalement.

Vous pouvez utiliser Copier:

source_range.Copy 
dest_range.PasteSpecial Transpose:=true 
application.cutcopymode = false 

Ou vous pouvez éviter d'utiliser (si vous avez seulement besoin des valeurs brutes):

dest_range.value = application.worksheetfunction.transpose(source_range.value)