Discussion :

[Dédé6621]

Bonjour,

Je souhaiterais suivre la procédure décrite dans l'article Utiliser les variables tableaux en VBA Excel pour Transférer le contenu d'un tableau dans une feuille de calcul, mais avec seulement une seule dimension.

En adaptant le code, j'obtiens ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        Dim x As Integer
        Dim i As Integer
        Dim NomTableau() As String
 
 
        'Redéfinit la taille du tableau
        x = 10
        ReDim NomTableau(1 To x)
 
        'Alimente les éléments du tableau
        For i = 1 To x
                NomTableau(i) = i
        Next i
 
        'Transfère les éléments du tableau dans la feuille de calcul
        Set Cl = Workbooks.add
        Cl.Sheets(1).Range(Cells(1, 1), _
            Cells(UBound(NomTableau, 1), 1)) = NomTableau

Mais je n'ai que des 1 au lieu d'avoir une série de 1 à 10 !

Comment est-ce que ça se fait?

Cordialement

[Philippe Tulliez]

Bonjour,
Il y a lieu de transposer la variable tableau nommée NomTableau

Code :

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

1
2
cl.Sheets(1).Range(Cells(1, 1), _
  Cells(UBound(NomTableau, 1), 1)).Value = Application.Transpose(NomTableau)

[EDIT]
Même si dans un nouveau classeur à une seule feuille ce n'est obligatoire, je préfère publier un code correct. Il y a lieu de rattacher les deux objets Cells à leur parent

Code :

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

1
2
3
4
  Set cl = Workbooks.Add
  With cl.Sheets(1)
  .Range(.Cells(1, 1), .Cells(UBound(NomTableau, 1), 1)).Value = Application.Transpose(NomTableau)
  End With

[Dédé6621]

Bonjour,

En effet, ça fonctionne Merci !

Pour comprendre :

Est-ce qu'on sait pourquoi il faut utiliser la commande Application.Transpose?

Elle ne devrait pas juste inverser le sens du tableau (vertical à horizontal et l'inverse)?

En utilisant cette commande sur le code originel avec le tableau à 2 dimensions, j'obtiens le résultat étrange suivant :

01.janv	01.févr	01.mars	01.avr	01.mai
02.janv	02.févr	02.mars	02.avr	02.mai
03.janv	03.févr	03.mars	03.avr	03.mai
04.janv	04.févr	04.mars	04.avr	04.mai
05.janv	05.févr	05.mars	05.avr	05.mai
#N/A	#N/A	#N/A	#N/A	#N/A
#N/A	#N/A	#N/A	#N/A	#N/A
#N/A	#N/A	#N/A	#N/A	#N/A
#N/A	#N/A	#N/A	#N/A	#N/A
#N/A	#N/A	#N/A	#N/A	#N/A

Est-ce qu'on sait pourquoi?

Si vous êtes inspiré de répondre, c'est bien volontiers.
Sinon pas grave, l'essentiel est que ça fonctionne.

Merci encore!