Discussion :

[HankMoody]

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 :

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 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 !

[Philippe Tulliez]

Bonjour,
Je ne comprends pas très bien ce que tu veux dire par

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 :

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

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

[HankMoody]

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

[Philippe Tulliez]

Bonjour,

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.

[HankMoody]

Ok merci, et pour la partie où on insert le tableau tu as une idée?

[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 :

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

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