[RESOLU]Transférer Array vers Feuille

[cp4]

Bonsoir,

Je voudrais par code mettre en place l'entête d'un tableau en utilisant un array ci-dessous:
Entete = Array("N°", "Date", "Initiateur", "Mt Ecriture", "Libellé", "Dépenses", "Recettes")
à mettre sur la feuille de A3 à G3

Avec mes remerciements anticipés.

Bonne soirée.

edit: Je me noie dans un dé à coudre.
Solution: Range("A3").Resize(1, 7) = entete

 

[laurent950]

Bonsoir

LBound(Entete) = 0 donc LBound(Entete) + 1 = 1
UBound(Entete) = 6 donc UBound(Entete) + 1 = 7
donc de 1 a 7 soit 7 cellules
et ont range de A3 a G3 donc 7 cellules

Range("A3:G3").Resize(LBound(Entete) + 1, UBound(Entete)+1) = Entete

vous :
Range("A3") = 1 cellules = faux // donc ici il falait reserver 7 cellules soit de A3 à G3
Resize(1, 7) / 1 = vrai et aussi 7 = vrai
Solution: Range("A3:G3").Resize(1, 7) = entete // (Corrigé par Range("A3:G3")

cdt