comment coller une partie de VBA tableau excel gamme

Est en quelque sorte possible de passé une partie de vba tableau à une plage excel?

J'ai besoin de faire quelque chose comme ceci:

dim testday() as Variant
testday = Sheets("raw").Range("E745:BN745").Value
Sheets("raw").Range("E745:BN745").Value = ""
Sheets("Interface").Range("B4:E4") = testday(3, 4, 5, 6).Value

mais cela ne fonctionne pas... est-il un moyen de résoudre ce problème? Thx!

  • Je préfère Sheets("raw").Range("E745:BN745").ClearContents
  • Ouais, j'ai l'habitude de le faire, mais je les ai conditionnelle formaté et je veux le garder, mais thx!
  • ClearContents n'est pas supprimer la mise en forme conditionnelle.
  • hmm ok, donc c'est différent .est-ce clair? thx pour que!
InformationsquelleAutor bramvs | 2014-08-07
  1. 0

    Vous pouvez soit:

    • Utiliser une boucle pour copier les valeurs que vous avez besoin d'un nouveau tableau, et de l'écrire à votre portée. Si vous allez le faire souvent, vous pouvez écrire une réutilisables fonction qui fait cela. Ou,

    • Lire uniquement ce dont vous avez besoin à partir de votre "raw" feuille, et de l'écrire à votre portée, comme illustré ci-dessous. C'est probablement la solution la plus simple dans votre cas particulier. 

    Dim testday() As Variant
testday = Sheets("raw").Range("G745:J745").Value ' only read what you need
Sheets("raw").Range("E745:BN745").ClearContents
Sheets("Interface").Range("B4:E4") = testday(3, 4, 5, 6).Value
    • ouais merci, mais j'ai besoin de testday(7,8,9,10) à C4:E4 etc. donc, la première méthode serait mieux
    InformationsquelleAutor Jean-François Corbett
  2. 2

    Vous pouvez Tranche la Array à l'aide de Index fonction

    Sub Slicer()
 Dim testday() As Variant
 testday = Sheets("raw").Range("E745:BN745").Value
 Sheets("raw").Range("E745:BN745").Value = ""
 Sheets("Interface").Range("B4:E4")= Application.Index(testday, 1, Array(3, 4, 5, 6))
End Sub
    • C'est une cool approche et il bat le mien sur la simplicité (+1). Au lieu de Array(3,4,5) je voudrais utiliser Evaluate("TRANSPOSE(ROW(" & lStartIndex & ":" & lFinishIndex & "))"), ce qui rend un tableau à une dimension de numéros commençant par lStartIndex tout le chemin à lFinishIndex, et peut être utilisé pour allouer un arbitraire long (contiguë) tableau dynamiquement.
    • Je ne comprends pas votre utilisation de l'Index. La dernière valeur doit être un numéro de colonne, mais vous avez un tableau à la place? Comment cela fonctionne?
    InformationsquelleAutor evenprime
  3. 1

    Si le tableau que vous souhaitez copier est unidimensionnel, et vous avez besoin de copier des cellules contiguës, vous pouvez utiliser le CopyMemory fonction:

    Option Explicit
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" _
    Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)


Sub test()
  Dim vArr(), vArr2()
  Dim lCnt As Long
  Dim lStartIndex As Long, lFinishIndex As Long, lLength As Long


  With Application
    vArr = .Transpose(.Transpose(Range("A1:R1").Value2))
  End With

  lStartIndex = 3
  lFinishIndex = 6
  lLength = lFinishIndex - lStartIndex + 1

  ReDim vArr2(1 To lLength)

  CopyMemory vArr2(1), vArr(lStartIndex), lLength * 16

  For lCnt = LBound(vArr2) To UBound(vArr2)
    Debug.Print vArr2(lCnt)
  Next lCnt

  Range("A2").Resize(1, UBound(vArr2)).Value2 = vArr2

End Sub

    Testé avec la première ligne,

    67.2    9   57.2    boo 52  64  76  39  48  50  28  54  96  29  98  25  68  19

    retourne 

    57.2    boo 52  64

    sur la deuxième ligne.
    Si votre extrait de code serait le changement comme

    dim testday(), testday2()
With Application  ' Value2 is faster than Value
  testday = .Transpose(.Transpose(Sheets("raw").Range("E745:BN745").Value2))
End With
Sheets("raw").Range("E745:BN745").ClearContents   ' Good suggestion by JFC
CopyMemory testday2(1), testday(3), 4 * 16        ' Variant = 16 Bytes
Sheets("Interface").Range("B4:E4").Value2 = testday2  ' I would do Resize instead

    J'espère que cela aide!

    InformationsquelleAutor Ioannis