Discussion :

[ruzakruzak]

hello !

Je travaille actuellement au traitement d'un document et j'ai besoin de reformatter une série de plages non contigües, avec le même format.
J'utilise un Array pour regrouper mes plages de travail, avec un code qui ressemble à ça :

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
Workbooks("rato.xls").Activate
 
Dim monarray as variant
Dim dernLigneD  as integer
Dim dernLigneP  as integer
 
dernLigneD = Sheets("Demands").Range("A1").CurrentRegion.Rows.Count
dernLigneP = Sheets("Projects").Range("A1").CurrentRegion.Rows.Count
 
'' Re formatage des zones de dates pour rendre celles au format texte, calculables
 
monarray = Array(ActiveWorkbook.Sheets("Demands").Range(Cells(2, 9), Cells(dernLigneD, 12)), _
            ActiveWorkbook.Sheets("Demands").Range(Cells(2, 24), Cells(dernLigneD, 32)), _
            ActiveWorkbook.Sheets("Projects").Range(Cells(2, 12), Cells(dernLigneP, 24)))
 
... traitement des plages contenues dans l'Array...

Ce monarray pose problème : avec les 2 premières valeurs l'exécution se passe comme un charme, mais avec l'ajout de la 3ème valeur (ActiveWorkbook.Sheets("Projects").Range(Cells(2, 12), Cells(dernLigneP, 24))) elle plante avec une erreur 1004.

Où est le problème ?? Un tableau ne peut-il contenir que des références au sein d'une même feuille ? Le classeur reste le même cependant.

Merci de votre aide à ma compréhension.

[ouskel'n'or]

N'as-tu pas des lignes ou des colonnes entièrement vides dans ta plage ?
Si tu as une ligne vide, cette syntaxe va limiter ta plage.

dernLigneP = Sheets("Projects").Range("A1").CurrentRegion.Rows.Count

Teste ce que tu as dans dernière ligne en mettant un point d'arrêt sur la ligne qui suit.
Tu dis
A+

[ruzakruzak]

Alors, déjà, merci pour ta réponse.

J'ai effectivement des colonnes presque vides, où seuls les en-tête de colonne apparaissent. J'ai modifié mon paramétrage (au lieu de Cells(2, x) j'ai pris Cells(1, x)) et l'erreur se reproduit.
Par contre, je n'ai jamais de lignes totalement vides, et le ActiveRange.Rows me renvoie un résultat cohérent.

A force de tests, il semble que l'erreur 1004 apparaît à chaque fois lorsque je crée un Array avec des plages qui ne sont pas sur la même feuille.

Quelqu'un aurait un contournement à proposer ??? Sinon, je vais certainement finir avec 1 array par feuille...

[ouskel'n'or]

Je n'avais pas remarqué que tu créais des plages situées sur différentes feuilles. En effet, tu peux sélectionner une plage identiques sur des feuilles différentes mais je ne pense pas que tu puisses le faire a la fois sur des plages différentes pour des feuilles diffrentes. A vérifier.

[ruzakruzak]

Au final, je ne comprends plus :
Chacune de mes plages, lorsqu'elle est seule dans l'array, est fonctionnelle.
Lorsqu'au sein d'un seul array, j'ai des plages sur plusieurs feuilles, ça marche pas (erreur 1004, la fameuse !)

Alors, j'ai changé de stratégie, et j'utilise des Range de type A1 au lieu de Range de type Cells, et ça marche :

Code :

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

1
2
3
4
5
6
7
Workbooks(my_shit).Activate
' recherche de la dernière ligne de chaque feuille
dernLigneD = Sheets("Demands").Range("A1").CurrentRegion.Rows.Count
dernlignep = Sheets("Projects").Range("A1").CurrentRegion.Rows.Count
' Plages de cellules à formater
monarray = Array(ActiveWorkbook.Sheets("Demands").Range("B2:AF" & dernLigneD), _
        ActiveWorkbook.Sheets("Projects").Range("L2:AX" & dernlignep))

[ouskel'n'or]

Oui, en créant un tableau des différentes plages, tu peux faire ça mais comment tu utilises ton tableau ? Ce n'est pas un range... C'est un tableau (...)
A+

[ruzakruzak]

ben, je sais pas trop... Je l'utilise comme un tableau, en faisant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim myarray as Variant
Dim i as Integer
 
myarray = array(rangeA, rangeB, ...)
 
for i = 0 to Ubound(myarray)
set maplage = myarray(i)
for each cell in maplage
bla bla bla...
next cell
next i

Tout en étant convaincu que c'est pas catholique comme méthode, au moins ça marche...

Pour moi en tout cas, c'est résolu !