Problème tableau VBA

Version imprimable

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:

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

Bonjour à tous,

A essayer

Code:

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

09/08/2012, 11h05
HankMoody

Idem problème ici à la dernière ligne "erreur définie par l'application ou par l'objet".
09/08/2012, 11h24
HopPopPop

Chez moi, ça fonctionne ...

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

Code:

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 "\\" .
09/08/2012, 11h28
HankMoody

Maintenant le fichier xaxa s'ouvre mais ça ne "colle" pas le tableau !
09/08/2012, 11h45
HopPopPop

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

A essayer ...

Code:

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

ou

Code:

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

ou depuis les Tutoriels concernant les tableaux

Code:

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

Sinon, je passe la main aux experts.

Cordialement
09/08/2012, 12h40
HankMoody

A mon avis le problème vient du fait qu'il y ait des nombres et des lettres.
Lorsque je ne mets que des mots dans mon tableau, il me le colle. Lorsque je mélange chiffres et lettres. "Erreur définie par l'application ou par l'objet".
J'ai fait utilisé

Code:

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

et ça a l'air de fonctionner... J'attends de voir si il y a plus de problème avant de mettre le topic en "résolu"
09/08/2012, 13h15
HopPopPop

Non, l'erreur ne vient pas de là, le tableau déclaré en String ne fera aucune différence entre nombres et textes, ils deviendront tous des textes.

L'erreur "Erreur définie par l'application ou par l'objet" vient du fait que la ligne voit une incohérence dans la plage comme par exemple dans votre 1er post

Code:

Range(Range("A1").Cells(1, 1), Range("A1").Cells(size1, 4)) = tableau(20, 4)

où "size1" n'étant pas connu, valeur vide, provoque cette erreur

en revanche, celle ci-dessous n'en provoquera aucune

Code:

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

[Edit] : Pourquoi n'avoir pas essayé les lignes proposées dans mon post précédent ?

Code:

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