Enchaînement fonctions dans une macro

Bonjour tout le monde,

Déjà pour planter le tableau, je suis un parfait débutant, même si je comprends les programmes et j'aime la programmation, je n'ai jamais réellement chercher à coder.
Aujourd'hui, j'ai besoin d'une macro qui effectué du tri de données.

En gros mon besoin, je copie des datas brut dans des feuilles de mon fichier excel, et j'élague pour ensuite copier les données dans la première feuille pour avoir un tableau croisé dynamique.
A un moment, je n'arrive pas à comprendre mais mon programme ne fonctionne plus, et ce sans générer d'erreur.

Dans l'ordre du fonctionnement

Code:

---

1 2 3 4 5 6

Sub main()   UserForm1.Show   End Sub

---

lance un Sub avec un bouton qui lance les actions

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Sort_data_Cmd_Btn_Click()   Dim I As Integer I = ActiveWorkbook.Sheets.Count UserForm2.Label1.Caption = "Il y a" & " " & I - 1 & " " & "feuilles de nomenclatures machines" UserForm2.Show vbModal Data_Treatment   End Sub

---

Mon bouton lance un userform 2 avec le nombre de feuilles prises en compte par la macro

Code:

---

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

Sub Data_Treatment() Dim I As Integer While I = ActiveWorkbook.Sheets.Count - 1   Prep_Columns I + 1 Transpose_Copy_Columns I + 1 Wend   End Sub   Sub Prep_Columns(A) Sheets(A).Activate 'suppression des colonnes B et C Columns("B:C").Select Selection.Delete Shift:=xlToLeft   End Sub   Sub Transpose_Copy_Columns(B) Sheets(B).Activate 'copie des datas avec transposition Range("A1:B100").Select Selection.Copy Sheets("sheet(1)").Select Range("A" & I + 2).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub

---

Et là, je ne comprend pas, mais excel ne traite pas mes données.
Il y a quelque chose que je ne comprend pas, je vois pas l'erreur.

Merci d'avance, même si je suis sur que mon problème est une erreur ultra conne. :roll:

Citation:

---

Envoyé par steve o'steen

Code:

---

1 2 3 4

While I = ActiveWorkbook.Sheets.Count - 1 Prep_Columns I + 1 Transpose_Copy_Columns I + 1 Wend

---

---

Contrairement à une boucle For, la boucle While n'incrémente pas de variable.
Donc, ta boucle va tourner éternellement avec I=0 sans jamais pouvoir progresser ni sortir.

Autre détail : tu n'initialises pas la valeur de I.

Code:

---

1 2 3 4 5 6

I = 2 While I = ActiveWorkbook.Sheets.Count Prep_Columns I Transpose_Copy_Columns I I = I + 1 Wend

---

Citation:

---

Code:

---

1 2 3 4 5 6 7

Sub Prep_Columns(A) Sheets(A).Activate 'suppression des colonnes B et C Columns("B:C").Select Selection.Delete Shift:=xlToLeft   End Sub

---

---

Plus simplement :

Code:

---

1 2 3

Sub Prep_Columns(A) Sheets(A).Columns("B:C").Delete End Sub

---

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Transpose_Copy_Columns(B) Sheets(B).Activate 'copie des datas avec transposition Range("A1:B100").Select Selection.Copy Sheets("sheet(1)").Select Range("A" & I + 2).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub

---

---

Plus simplement :

Code:

---

1 2 3 4

Sub Transpose_Copy_Columns(B) Sheets(B).Range("A1:B100").Copy Sheets("sheet(1)").Range("A" & I + 2).PasteSpecial Transpose:=True End Sub

---

Mais cette dernière macro ne fonctionnera pas correctement parce que I n'a pas été initialisé dans ce Sub.
Mais comme je ne sais pas où tu comptes placer ta copie, difficile de corriger.

Bonjour,

Je verrais mieux une procédure Data_Treatment qui ressemblerait à cela :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Data_Treatment() Dim I As Integer I = 1 While I <= ActiveWorkbook.Sheets.Count - 1 Prep_Columns I + 1 Transpose_Copy_Columns I + 1 I = I + 1 Wend End Sub

---

Cordialement.

Edit : Salutations Menhir ... Oups ! pas rafraîchi à temps.

Bonjour tout le monde, déjà merci pour vos retours.

Donc en gros, la boucle While qui incrémentent pas et des variables non initialisées, ok j'ai compris.
@gFZT82, en effet c'est comme cela que je l'avais réécrit avant de voir ton message.

@Menhir, en effet l'initialisation de I en partant de 2 pour éviter la première feuille est largement plus élégant en terme de lecture.

Du coup mon code devient

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Data_Treatment() Dim I As Integer I = 2 While I <= ActiveWorkbook.Sheets.Count Prep_Columns I Transpose_Copy_Columns I I = I + 1 Wend   End Sub   Sub Prep_Columns(A) Sheets(A).Columns("B:C").Delete   End Sub   Sub Transpose_Copy_Columns(B) Sheets(B).Range("A1:B100").Copy Sheets(Synthese).Range("A" & B * 2 + 2).PasteSpecial Transpose = True End Sub

---

Dans ce bout de code, j'ai modifié le range ("A" & B*2+2) car j'ai deux lignes à copier, histoire de ne pas avoir d'overlap.
Par contre, si je mets Sheets(1), Sheets(Synthese) (le vrai nom de la feuille) il me met comme erreur La méthode pastespecial de la classe range a échoué.
Lorsque je mettais Sheets("sheet(1)") il me génère l'erreur "l'indice n’appartient pas à la sélection", toujours sur la ligne du pastespecial

Je pense que le Sheets("sheet(1)") était une erreur de syntaxe de la déclaration, et que le Sheets(synthese) est certes une méthode statique mais qu'elle est propre.

Votre avis ?

merci d'avance

Citation:

---

Envoyé par steve o'steen

Par contre, si je mets Sheets(1), Sheets(Synthese) (le vrai nom de la feuille) il me met comme erreur La méthode pastespecial de la classe range a échoué.

---

Cette formulation signifie : l'onglet dont l'indice est dans la variable Synthese.
Si tu veux désigner un onglet par son nom, il faut le mettre entre guillemets : Worksheets("Synthese").
Et, dans la mesure du possible, évite d'utiliser Sheet quand tu peux utiliser Worksheet. Ca évite certaines ambigüités.

Citation:

---

Lorsque je mettais Sheets("sheet(1)") il me génère l'erreur "l'indice n’appartient pas à la sélection", toujours sur la ligne du pastespecial

---

Cette formulation signifie qu'un onglet porterait littéralement le nom "sheet(1)".
Pour désigner la première feuille, écrire simplement Worksheets(1).

Citation:

---

Du coup mon code devient

---

Tu te compliques la vie.
On va simplifier un grand coup (en corrigeant quelques bricoles au passage) :

Code:

---

1 2 3 4 5 6 7 8

Sub Data_Treatment() Dim I As Long For I = 2 To ActiveWorkbook.Sheets.Count Worksheets(I).Columns("B:C").Delete Worksheets(I).Range("A1:B100").Copy Worksheets("Synthese").Cells(I * 2 + 2, "A").PasteSpecial Transpose = True Next I End Sub

---

Merci de ton retour Menhir

Au départ mon idée de suaucissonage était de pouvoir rappeler les fonctions à d'autres endroits mais en effet pour un début, autant ne pas trop se compliquer la vie.


Question, pourquoi I as Long et non Integer ?

Du coup j'ai collé le code comme tu as fait, néanmoins j'ai toujours une erreur de type 1004, la méthode pastespecial de la classe range a échoué.
Je comprend pas trop pourquoi, peut être manque t'il des arguments pour le pastespecial ?

Merci d'avance

Citation:

---

Envoyé par steve o'steen

Question, pourquoi I as Long et non Integer ?

---

Personnellement, je n'utilise plus le type Integer.
Ce type pouvait éventuellement se justifier à une époque où les RAM se chiffraient en ko mais aujourd'hui il serait ridicule d'économiser 2 octets (sauf s'il s'agit d'une variable tableau avec plusieurs indices très élevés). Tout comme il est ridicule de voir l'usage du type Byte pour des valeurs dont la nature n'a rien à voir avec ce type.

De plus, il m'est arrivé de passer de longues minutes à chercher la cause d'un bug qui était dû à la limite de 32000 (et des poussières) de l'Integer.
Maintenant, j'utilise systématiquement le type Long pour des entiers.

En plus, ça fait trois caractères en moins à taper. C'est toujours ça de gagné. :mrgreen:

Citation:

---

Du coup j'ai collé le code comme tu as fait, néanmoins j'ai toujours une erreur de type 1004, la méthode pastespecial de la classe range a échoué.
Je comprend pas trop pourquoi, peut être manque t'il des arguments pour le pastespecial ?

---

A ma connaissance, il n'y a pas d'arguments obligatoires pour PasteSpecial : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)
Par contre, la transmission d'un paramètre doit se faire avec ":" devant le "=".

Code:

---

Worksheets("Synthese").Cells(I * 2 + 2, "A").PasteSpecial Transpose := True

---

Tu aurais pu consacrer quelques minutes pour le chercher par toi-même.

Ok, comme je m'en doutais, je suis officiellement un boulet, je suis totalement passé à coté des : avant le =.
C'est la vieillerie ça, je vais être bon pour retourner chez l'ophtalmo.

Ok, je comprend la différence entre integer et Long, je pense que je vais prendre cette habitude.

Du coup ce que je vois c'est que je dois absolument prendre l'habitude de vérifier caractère par caractère les exemples pour être sur que je ne rate pas un truc.
Après, comme on dit ça viendra avec l'habitude.

Merci beaucoup Menhir