Discussion :

[HankMoody]

Bonjour à tous,

A partir d'un tableau de 20 lignes 4 colonnes je souhaite récupérer toutes les lignes dont la première case est non vide et ensuite les stocker dans une nouvelle page

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
Sub tableauv1()
Dim i As Integer, j As Integer, tableau(20, 4) As String
j = 1
For i = 1 To 20
If IsEmpty(Range("A1").Cells(i, 1)) = False 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)
j = j + 1
End If
Next i
Application.Workbooks.Open ("\\MCA-SERVEUR\OPCVM\XAVIER\Tests\xaxa.xls")
Range(Range("A1").Cells(1, 1), Range("A1").Cells(size1, 4)) = tableau(20, 4) 
'problème ici lors du degogage quand je veux coller le tableau
End Sub

[HopPopPop]

Bonjour à tous,

A essayer

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
Option Explicit
Option Base 1
Sub tableauv1()
Dim i As Integer, j As Integer, tableau(20, 4) As String
j = 1
For i = 1 To 20
    If Not IsEmpty(Range("A1").Cells(i, 1)) 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)
        j = j + 1
    End If
Next
Application.Workbooks.Open ("\\MCA-SERVEUR\OPCVM\XAVIER\Tests\xaxa.xls")
Range(Cells(1, 1), Cells(j - 1, 4)) = tableau()
End Sub

L'erreur viendrait du fait de :
- Ajouter Option Base 1 pour commencer à 1 dans le tableau ;
- votre ligne qui était effectivement en cause.

Cordialement

[HankMoody]

Idem problème ici à la dernière ligne "erreur définie par l'application ou par l'objet".

[HopPopPop]

Chez moi, ça fonctionne ...

En revanche, la ligne ci-dessous fonctionne-elle ?

Code :

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

Application.Workbooks.Open ("\\MCA-SERVEUR\OPCVM\XAVIER\Tests\xaxa.xls")

Car je ne l'ai pas essayée ; le fichier "xaxa" s'ouvre-t-il ? Car le chemin d'accès commence par "\\" .

[HankMoody]

Maintenant le fichier xaxa s'ouvre mais ça ne "colle" pas le tableau !

[HopPopPop]

Désolé, je ne vois pas ce qui peut clocher ... J'ai fait différents essais, ça fonctionne.

A essayer ...

Code :

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

Range("A1:D20") = tableau()

ou

Code :

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

Range(Cells(1, 1), Cells(20, 4)) = tableau()

ou depuis les Tutoriels concernant les tableaux

Code :

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

Range(Cells(1, 1), Cells(UBound(tableau, 1), UBound(tableau, 2))) = tableau

Sinon, je passe la main aux experts.

Cordialement