Discussion :

[daduck]

Bonjour,

j'ai un probleme, mon code est le suivant:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
 
Private Type produit    'Definition du type produit
    designation As String
    part_reference As String
    material_type(1 To 2) As String
    '...
    '...(beaucoup de variable)
End Type
 
Sub Master()
 
'Creation d'un tableau de produit
Dim tableau(1 To 20) As produit
 
'Remplissage du tableau
Dim plage As Range, cellule As Range
Dim nCols As Integer, nRows As Integer
    nCols = 28
    nRows = 40
    For n = 1 To 10
        Set plage = Range(Range("A1").Offset(0, (n - 1) * 28), Range("A1").Offset(nRows, (n - 1) * 28 + nCols))  'selection successive de 28 colonne et 40 lignes par un offset de 28 case a droite
 
        For Each cellule In plage
 
            If cellule.Value = "Designation" Then
                cellule.Select                       'On selectionne cet case
                Selection.Offset(0, 1).Select
                tableau(n).designation = ActiveCell.Value    'Stockage de la valeure
            End If
 
 
            If cellule.Value = "City" Then
                cellule.Select
                Selection.Offset(1, 0).Select
                tableau(n).part_reference = ActiveCell.Value
            End If
 
        '...
        '...(beaucoup de conditions)
 
 
 
        Next cellule
    Next n
 
End Sub

Ce programme fonctionne corectement.
Mais lorsque je veux passer mon "nRows" de 40 a 400, ca ne marche plus, le debbuger surlingne en jaune "If cellule.Value = "Designation" Then"

J'ai l'impression qu l'ordi n'appreci pas de manipuler de si grand tableau et/ou de si grand type perso.

Peut-etre qu'une meilleur synthaxe serait la solution, ?
Si vous avez des idées, n'hesitez pas.

Merci d'avance, Jean-Claude.

[ouskel'n'or]

Tu peux déjà avantageusement simplifier ton code

Code :

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

1
2
3
            If cellule = "Designation" Then
                tableau(n).designation = cellule.Offset(0, 1)
            End If

et ceci dans les deux cas cités
Tu peux tester ça ?

Code :

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

1
2
3
4
5
6
7
Sub Test()
Dim plage As Range, cell As Range
    Set plage = ActiveSheet.UsedRange
    For Each cell In plage
        MsgBox cell.Offset(0, 4)
    Next
End Sub

A part ça, je ne vois pas le pb (pas encore)

[daduck]

Merci pour la synthaxe, c'est boucoup mieu, mais sa n'arrange pas mon probleme.

La macro test (utilisée tel quel), a eu pour résultat un messagebox vide avec bouton ok qui se repetait indefiniment apres appuy sur ok (je suis rester appuyer sur entrer pour voir si il y avait une fin mais je me suis decouragé avant). A quoi devait-elle etre utile ?

Merci.

[ouskel'n'or]

Le message vide ? Teste en mettant MsgBox cell.Offset(0, 4).value
C'était censé te montrer que la syntaxe fonctionnait mais dans ma feuille je n'ai que des chaîne, c'est peut-être pour ça... Ou alors, tu as un certain nombre de premières lignes totalement vides dans ta feuille de calculs.
Bref, ça ne règle rien, je m'y attendais un peu...
En relisant, la "ligne" suivante me paraît... même si elle fonctionne...

Set plage = Range(Range("A1").Offset(0, (n - 1) * 28), Range("A1").Offset(nRows, (n - 1) * 28 + nCols)) 'selection successive de 28 colonne et 40 lignes par un offset de 28 case a droite

Peux-tu tester ça ?

Code :

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

Set Plage = Range(Cells(1, n * 28), Cells(nRows, (n * 28 + nCols))

Comme il ne s'agit plus d'un offset, le "-1" n'est plus utile.
par contre, il faudra que tu adaptes nRows pour la même raison.
Tu dis

[daduck]

Code :

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

MsgBox cell.Offset(0, 4).value

et

Code :

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

MsgBox cell.Offset(0, 4)

font la meme chose, je n'avait pas vue, mais en effet, arrivé a la 2e ligne (qui n'est pas vide comme la 1ere), la message box affiche le contenu des cases.

La ligne

Code :

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

Set plage = Range(Cells(1, n * 28), Cells(nRows, (n * 28 + nCols)))

fonctionne bien mais , ne prend pas en compte la 1er plage (colonne 1 a 28) et ne resout pas le probleme, helas.

>> Il n'y a pas une limite de memoire utilisable ?

A bientot. JC

[daduck]

J'ai essayer de tronconner le plage pour balayer plusieur fois 40 lignes avec :

Code :

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

1
2
3
4
5
6
 
For j = 1 To 12
'[...]
Set plage = Range(Range("A1").Offset((j - 1) * 40, (n - 1) * 28), Range("A1").Offset((j - 1) * 40 + nRows, (n - 1) * 28 + nCols))
'[...]
Next j

Mais ca ne marche plus du tout l'erreur est toujours la meme "erreur 13"; probleme de type su la ligne

Code :

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

If cellule = "Designation" Then