Discussion :

[Noël35]

Bonjour à toutes et à tous,

Dans une macro, je souhaite extraire des données d'un tableau et les réécrire en fonction d'une variable (un paquet) dans des lignes différentes au besoin.

Exemple : une ligne avec une valeur "quantité" = 100 à séparer en 3 lignes de 30 et une ligne de 10 (pour arriver au même total).

Voici donc la macro que j'ai écrite ("Option Explicit" inscrit en début, je vous épargne donc toutes les variables définies) :

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
Dim r As Integer ' N° de ligne en-cours en lecture
Dim l As Integer ' N° de ligne en-cours en écriture
 
l = 2
For r = 2 To ligFin
     ligDat = Cells(r, colDat).Value
     ligCde = Cells(r, colCde).Value
     ligGen = Cells(r, colEan).Value
     ligPcb = Cells(r, colPcb).Value
     ligRec = Cells(r, colQte).Value
 
ligEcr:
     If ligRec <= ligPcb Then
         tabTmp(l, 1) = ligDat
         tabTmp(l, 2) = ligCde
         tabTmp(l, 3) = ligGen
         tabTmp(l, 4) = ligPcb
         tabTmp(l, 5) = ligRec
     GoTo ligSui
 
     ElseIf ligRec > ligPcb Then
         tabTmp(l, 1) = ligDat
         tabTmp(l, 2) = ligCde
         tabTmp(l, 3) = ligGen
         tabTmp(l, 4) = ligPcb
         tabTmp(l, 5) = ligPcb
         ligRec = ligRec - ligPcb
         l = l + 1
     GoTo ligEcr
     End If
 
ligSui:
      Next r

Il passe en premier dans la boucle "ElseIf" (car la quantité totale est supérieur à la quantité d'un paquet donc nécessité de créer plusieurs lignes) puis bloque lorsqu'il repasse dans la boucle " If ligRec <= ligPcb Then" pour écrire la dernière ligne.
Je me retrouve avec une "Erreur d'exécution 9 : l'indice n'appartient pas à la sélection" sur la ligne "tabTmp(l, 1) = ligDat".

Je pense que cela vient de "l = l + 1" qui pour moi devait me servir à écrire sur une ligne différente que la ligne de lecture d'origine mais je ne trouve pas la solution.

Merci d'avance pour vos éclaircissements.

[Menhir]

Deux petits conseils qui ne règleront pas ton problème mais t'aideront à développer : Fais des itération pour mieux visualiser tes structures et évite au maximum les Goto (perso, je n'en utilise JAMAIS, il y a toujours un moyen de s'en passer).

Exemple pour ton code :

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
l = 2
For r = 2 To ligFin
	ligDat = Cells(r, colDat).Value
	ligCde = Cells(r, colCde).Value
	ligGen = Cells(r, colEan).Value
	ligPcb = Cells(r, colPcb).Value
	ligRec = Cells(r, colQte).Value
 
	Do
		tabTmp(l, 1) = ligDat
		tabTmp(l, 2) = ligCde
		tabTmp(l, 3) = ligGen
		tabTmp(l, 4) = ligPcb
		tabTmp(l, 5) = ligRec
 
		ligRec = ligRec - ligPcb
		l = l + 1
	Loop Until ligRec <= ligPcb
 
Next r

Ou bien :

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
l = 2
For r = 2 To ligFin
	ligDat = Cells(r, colDat).Value
	ligCde = Cells(r, colCde).Value
	ligGen = Cells(r, colEan).Value
	ligPcb = Cells(r, colPcb).Value
 
	For ligRec = Cells(r, colQte).Value To ligPcb Step  -ligPcb
		tabTmp(l, 1) = ligDat
		tabTmp(l, 2) = ligCde
		tabTmp(l, 3) = ligGen
		tabTmp(l, 4) = ligPcb
		tabTmp(l, 5) = ligRec
	Next ligRec
 
Next r

Pour le second code, je suis un peu moins sûr que pour le premier qu'il fasse la même chose que ton code mais tu vois un peu l'idée pour ce qui est de itération et de la suppression des Goto.

[clementmarcotte]

Bonjour,

évite au maximum les Goto (perso, je n'en utilise JAMAIS, il y a toujours un moyen de s'en passer).

Enfin, presque toujours

On ne peut pas toujours éviter ou, du moins, on ne devrait pas toujours éviter...

Code :

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

On Error Goto

Mais bon c'est un GoTo "exotique".

[Noël35]

Merci pour vos réponses.

Je vais enlever les GoTo (j'ai pris cette - plus ou moins - "mauvaise" habitude ).

Je planche toujours sur mon problème, si quelqu'un a une solution, merci d'avance.

Bonne journée !!!

[Menhir]

Enfin, presque toujours

Depuis que le Basic a abandonné les numéros systématiques des lignes (c'est-à-dire depuis que je suis passé au Quick Basic fin des années 80) et a emprunté au Pascal ses boucles, je n'ai plus jamais utilisé un Goto. Je n'ai même plus le réflexe d'imaginer en utiliser un.

Code :

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

On Error Goto

Mais bon c'est un GoTo "exotique".

J'évite celui-ci encore plus que les autres.
Il a encore plus de défaut puisqu'on n'est même pas sûr de la ligne qui va le déclencher.
De plus, il masque les problèmes plutôt que de les résoudre.
A utiliser avec autant de précaution que de la nitroglycérine et uniquement en fin de développement quand le programme est entièrement débugué.

Mais, bien entendu, tout ça est un avis personnel qui n'est pas gravé dans le marbre. Chacun a son style de développement.

[clementmarcotte]

Bonjour,

J'évite celui-ci encore plus que les autres.
Il a encore plus de défaut puisqu'on n'est même pas sûr de la ligne qui va le déclencher.
De plus, il masque les problèmes plutôt que de les résoudre.
A utiliser avec autant de précaution que de la nitroglycérine et uniquement en fin de développement quand le programme est entièrement débugué.

L'idée c'est de traiter la condition d'erreur et d'appliquer les mesures correctives pour éviter de planter le programme.

C'est comme à l'époque des disquettes. On pouvait passer par là pour dire à l'utilisateur de changer de disquette. Mais, je suis tout à fait d'accord pour dire qu'il faut être quand même prudent, et surtout pas, l'utiliser sans discernement. Cela peut devenir de la dynamite.

[Noël35]

Deux petits conseils qui ne règleront pas ton problème mais t'aideront à développer : Fais des itération pour mieux visualiser tes structures et évite au maximum les Goto (perso, je n'en utilise JAMAIS, il y a toujours un moyen de s'en passer).

Exemple pour ton code :

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
l = 2
For r = 2 To ligFin
	ligDat = Cells(r, colDat).Value
	ligCde = Cells(r, colCde).Value
	ligGen = Cells(r, colEan).Value
	ligPcb = Cells(r, colPcb).Value
	ligRec = Cells(r, colQte).Value
 
	Do
		tabTmp(l, 1) = ligDat
		tabTmp(l, 2) = ligCde
		tabTmp(l, 3) = ligGen
		tabTmp(l, 4) = ligPcb
		tabTmp(l, 5) = ligRec
 
		ligRec = ligRec - ligPcb
		l = l + 1
	Loop Until ligRec <= ligPcb
 
Next r

J'ai utilisé ton code mais j'obtiens un problème lors de l'écriture de mon tableau dont voici le code

Code :

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

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

Du coup je pense vraiment que le problème de mon code

Code :

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

l = l + 1

qui pour moi devait me servir à écrire sur une ligne différente que la ligne de lecture d'origine mais je ne trouve pas la solution.

Merci d'avance pour vos retours.

[Menhir]

J'ai utilisé ton code mais j'obtiens un problème lors de l'écriture de mon tableau dont voici le code

"j'obtiens un problème", c'est un peu vague comme description de défaut...

[Noël35]

Oui pardon

La macro bloque sur la ligne

Code :

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

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

avec le message d'erreur

"Erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet"

Merci d'avance.

[Menhir]

Tu as écrit "j'ai utilisé ton code" mais cette ligne n'est dans aucun des deux codes que je t'ai donnés.
Tu as donc du le mélanger à autre chose.
Sans savoir ce qui conduit à cette ligne, impossible de savoir ce qui provoque l'erreur.
Mais commence par regarder ce que renvoie tes Ubound.