Copier tableau à partir d'une cellule.

Version imprimable

Bonjour à tous,

Je souhaiterais copier les valeurs d'un premier tableau et les stocker dans un tableau avec pour nombre de colonne la ligne entière. Puis insérer ce tableau au dessus d'une ligne dont la valeur de la première cellule est "monep". 2 problèmes dans mon code: créer un tableau dont le dimensionnement est 50xligne_entière et copier le tableau à partir de la bonne cellule.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub tableauv1() Dim i As Integer, j As Integer, tableau(50, ligne_entière) As String Application.Workbooks.Open ("\\MCA-SERVEUR\OPCVM\VALORISATIONS HEBDO\MOUVEMENTS MONEP\monep.xls") j = 1 For i = 1 To 200 If Cells(i, 2).Value = "MCA EUROP' AVENIR" Then tableau(j, 1) = Range("A1").Cells(i, 1) tableau(j, 2) = Range("A1").Cells(i, 2) tableau(j, 3) = Range("A1").Cells(i, 3) tableau(j, 4) = Range("A1").Cells(i, 4) tableau(j, 5) = Range("A1").Cells(i, 5) j = j + 1 End If Next ActiveWorkbook.Close True With Worksheets("pointageValo") ligne = .[A:A].Find("monep", , xlValues, xlWhole).Row 'problème ici Range("ligne") = tableau() End With End Sub
Pouvez-vous m'aidez ?
Merci !

14/08/2012, 12h28
Philippe Tulliez
Bonjour,
Je ne comprends pas très bien ce que tu veux dire par

Citation:

créer un tableau dont le dimensionnement est 50xligne_entière

Je suppose que tu parles des colonnes de la lignes.
Que ton tableau est de 50 lignes et x colonnes et que x doit être trouvé par une formule.
Admettons que la base de données couvre la plage A1:J510
Code:

1 2 3 4 Dim db As Range Set db = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion Dim tableau() ReDim tableau(50, db.Columns.Count)
Où la valeur renvoyée par la propriété db.Columns.Count sera 10
14/08/2012, 12h56
HankMoody

Pardon, je voulais dire un tableau à 2 dimensions. 50lignes et autant de colonnes qu'il y a dans une ligne entière !
14/08/2012, 14h01
Philippe Tulliez

Bonjour,

Citation:

Envoyé par HankMoody

Pardon, je voulais dire un tableau à 2 dimensions. 50lignes et autant de colonnes qu'il y a dans une ligne entière !

C'est donc ce que je t'ai proposé. Tout au moins en considérant que toutes les colonnes de la base de données sont de mêmes dimensions quelque soit la ligne.
Sinon, il faut redimensionner la variable Tableau à chaque ligne.
14/08/2012, 14h18
HankMoody

Ok merci, et pour la partie où on insert le tableau tu as une idée?
14/08/2012, 18h29
Philippe Tulliez
Bonjour,

Un exemple
Les variables/constantes
startRng est l'adresse de la cellule à partir de laquelle on copie la table
shtDest est la feuille où la copie aura lieu.
myTable est la table à deux dimensions contenant les valeurs à copier
Le code
Code:

1 2 3 4 Const startRng As String = "A20" With shtDest .Range(startRng).Resize(UBound(myTable), UBound(myTable, 2) - 1) = myTable End With

Je voudrais coller le tableau avant une cellule qui s'appelle "monep"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub tableauv1()
Dim i As Integer, j As Integer, tableau(50, 150) As String
Application.Workbooks.Open ("\\MCA-SERVEUR\OPCVM\VALORISATIONS HEBDO\MOUVEMENTS MONEP\monep.xls")
j = 1
For i = 1 To 200
    If Cells(i, 2).Value = "MCA EUROP' AVENIR" Then
        tableau(j, 1) = Range("A1").Cells(i, 1)
        tableau(j, 2) = Range("A1").Cells(i, 2)
        tableau(j, 3) = Range("A1").Cells(i, 3)
        tableau(j, 4) = Range("A1").Cells(i, 4)
        tableau(j, 5) = Range("A1").Cells(i, 5)
        j = j + 1
    End If
Next
ActiveWorkbook.Close True
With Worksheets("pointageValo")
ligne = .[A:A].Find("monep", , xlValues, xlWhole).Row
.Range("ligne").Resize(UBound(myTable), UBound(myTable, 2) - 1) = tableau()
 
End With
End Sub

Mais problème au moment du collage avec votre formule !

1. Si ta cellule s'appelle monep

Code:

Worksheets("pointageValo").Range("monep").offset(1,0).Resize(UBound(myTable,1), UBound(myTable, 2)) = myTable

2. Si ta cellule contient le mot monep
Code:

1 2 3 4 5 6 7 8 9 Dim c As Range With Worksheets("pointageValo") Set c = .[A:A].Find("monep", , xlValues, xlWhole) If Not c Is Nothing Then c.Offset(1, 0).Resize(UBound(myTable, 1), UBound(myTable, 2)) = myTable Set c = Nothing End If End With
Regarde les bornes de ton tableau myTable (j'ai compris [1..n]x[1..m])