Problème de transfert d'un tableau (VBA) vers la feuille

[Magic_Doctor]

Bonjour,

J'ai rédigé une routine (macro "Tartampion") dans laquelle je dresse un tableau. Ma foi ça marche (confirmé dans le "Debug.Print"). Mais je voudrais transférer les résutats du tableau dans une colonne donnée (ici la 1ère du tableau) de la feuille. Et là j'ai un problème, je ne parviens pas à "caser" le résultat uniquement dans la colonne en question.

Merci pour l'aide.

 

[Hervé]

Re : Problème de transfert d'un tableau (VBA) vers la feuille

salut

tu geres déjà ton offset dans ton resize, donc :

[Date_Inventaire].Resize(UBound(t) + 1, 1) = Application.Transpose(t)

a plus

 

[Magic_Doctor]

Re : Problème de transfert d'un tableau (VBA) vers la feuille

Bonjour Hervé,

OK. Le problème est que le titre d'en-tête de la colonne en question du tableau ("Dates d'inventaires") disparaît. Comment faire en sorte pour l'éviter ?

 

[Magic_Doctor]

Re : Problème de transfert d'un tableau (VBA) vers la feuille

Re,

Un truc brut de décoffrage qui fonctionne :

Sub Tartampion() 'dates d'inventaires
Dim dv As Byte, an As Integer, t(), i As Byte, titre As String

dv = [ColonneAL].Rows(4)
an = Year([ColonneAL].Rows(6))
titre = [Date_Inventaire]

ReDim t(dv + 1)

'********** Chargement du tableau **********
For i = 1 To UBound(t)
    t(i) = CDate("12/1/" & an - 1 + i)
    Debug.Print t(i)
Next
'*******************************************

[Date_Inventaire].Resize(UBound(t) + 1, 1) = Application.Transpose(t)
[Date_Inventaire] = titre
End Sub

 

[job75]

Re : Problème de transfert d'un tableau (VBA) vers la feuille

Bonjour Magic_Doctor, Hervé,

ReDim t(1 To dv + 1) 'base 1
'----
[Date_Inventaire].Offset(1).Resize(UBound(t)) = Application.Transpose(t)

A+

 

[Magic_Doctor]

Re : Problème de transfert d'un tableau (VBA) vers la feuille

Bonjour job,

Et oui, il fallait changer de base, je n'y aurais pas pensé.
Merci, ça marche "macanudo".

Sub Tartampion() 'dates d'inventaires
Dim dv As Byte, an As Integer, t(), i As Byte

dv = [ColonneAL].Rows(4)
an = Year([ColonneAL].Rows(6))

ReDim t(1 To dv + 1) 'base 1

'********** Chargement du tableau **********
For i = 1 To UBound(t)
    t(i) = CDate("12/1/" & an - 1 + i)
Next
'*******************************************

[Date_Inventaire].Offset(1).Resize(UBound(t)) = Application.Transpose(t)
End Sub

C'est quand même mieux !