Discussion :

[jlk_katy07]

Bonjour a tous,

Je voudrais copier un tableau et ensuite le coller dans un plage de cellule de même dimension commençant en A1 qui deviendras l'entête de la feuille.

Voici mon code:

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
19
20
21
22
Sub CopieTab()
	Const NOM_ENTETE_COLONNE As Variant = "No,Item,Nom,Produit,Ship date"
    	Const DELIMITATION_ENTETE = ","
 
	Dim varTablEntete As Variant 
 
	'Variable objet
    	Dim wkb As Workbook
	Dim wsh As Worksheet
 
	Set wkb = Workbooks.Add
	'Ajouter et garder une référence sur la nouvelle Feuille
	Set wsh = wkb.Worksheets.Add
 
	'Renommer la Nouvelle Feuille
	wsh_.Name = "TestCopieTab"
 
	varTablEntete = Split(NOM_ENTETE_COLONNE, DELIMITATION_ENTETE )
 
	 wsh.Range(Rows("A1")).Resize(UBound(varTablEntete, 1), UBound(varTablEntete, 2)) = varTablEntete   
 
End sub

L'erreur suivant a été générée:

Erreur d’exécution '9': L'indice n'appartient pas à la sélection.

L'erreur viendrait lors du débogage à cette commande:UBound(varTablEntete, 2).

Merci d'avance pour votre aide.

Katy07

[Invité]

Bonjour,

Essayez ce code :

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
19
20
21
 
Sub CopieTab2()
 
Dim Wkb As Workbook
Dim Wsh As Worksheet
Dim Nom_Entete_Colonne As Variant
 
    Nom_Entete_Colonne = Array("No", "Item", "Nom", "Produit", "Ship date")
 
    Set Wkb = Workbooks.Add
    Set Wsh = Wkb.Worksheets.Add
 
    With Wsh
        .Name = "TestCopieTab"
        .Range("A1:E1") = Nom_Entete_Colonne
    End With
 
    Set Wkb = Nothing
    Set Wsh = Nothing
 
End Sub

[jlk_katy07]

Bonjour Super merci Éric.

J'ai essayé le vôtre et cela fonctionne. Cependant, j'ai modifié comme suit afin de créer une procédure à réutiliser.

Code :

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

1
2
3
4
5
6
Sub Create_workbook(ByRef wsh As Worksheet, ByRef Tabl As Variant, ByRef cellDebut As Integer)
 
    With wsh
        .Cells(cellDebut).Resize(, UBound(Tabl)).Value = Tabl
    End With 
End Sub