Aide Optimisation Macro

Bonjour à tous,

Je suis actuellement en stage de fin d'études, je suis novice en VBA mais plus que désireux de persévérer et d’acquérir de nouvelles compétences dans ce domaine.

Mon problème : Je dois analyser plusieurs données d’usinages issus de fichiers textes.

Chaque jour, j’ai un usinage à analyser soit 92 fichiers textes (de qques Mo jusqu'à 100Mo). Mais d’ici la fin du mois de Mai, je vais avoir 9*92 fichiers par jour à analyser car j’ai bien avancé dans mon travail (déjà que pour un usinage c’est assez fastidieux, alors pour 9 fois plus, j’essaie de trouver une automatisation pour mes manipulations...)

Pour chaque fichier .txt, j’effectue qques modifications via des macros que j’ai développées pour calculer automatiquement diverses données. J’enregistre le fichier sous le format .xlsm, sous le même nom (extension différente bien sûr) et sous le même répertoire.

Pour une de mes macro, j'ai besoin de transformer un groupe de cellules en un tableau. Mon problème est que le nombre de lignes et le nombre de colonnes varient pour chaque fichier. J'ai réussi à calculer la dernière ligne du tableau pour chaque fichier. Mais pour la dernière colonne je n'ai pas réussi ; malgré une longue prise de tête ...
Pour contourner le problème, j'ai repéré le maximum et l'ai inséré dans mon code (colonne "CFP") . Bien entendu ce code n'est pas optimisé et lors de l’enregistrement, cela augmente la taille de mes fichiers, pour au final pas grand chose.

Voici le code :

Code:

---

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

Sub MacroTestTableau() ' ' MacroTestTableau Macro ' ' Touche de raccourci du clavier: Ctrl+b ' 'derniere ligne cellule non vide Dim derlig As Long derlig = Range("A" & Rows.Count).End(xlUp).Row   Range("A6").Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$6:CFP" & derlig), , xlYes).Name _ = "Tableau1" Range("Tableau1[#All]").Select ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight1" ActiveWindow.SmallScroll Down:=-21 End Sub

---

Pourriez vous je vous prie m'éclairer quant à propos de mon soucis. J'ai essayé d'insérer deux variables dans la fonction Range, mais sans succès.

Je vous remercie par avance de l'attention que vous porterez à mon post.

Bonne fin de (long) w-e à tous.

Guillaume

P.S : Je peux transmettre des exemples de fichiers textes bruts si vous le désirez.

Bonjour

Ton problème est-t-il finalement celui exprimé ici :

Citation:

---

Mon problème est que le nombre de lignes et le nombre de colonnes varient pour chaque fichier. J'ai réussi à calculer la dernière ligne du tableau pour chaque fichier. Mais pour la dernière colonne je n'ai pas réussi ; malgré une longue prise de tête ...

---

?
Et si la réponse est oui :
1) ta feuille contient-elle également des formules ou uniquement des constantes ?
2) toutes les lignes remplies contiennent-elles le même nombre de colonnes remplies ?

Bonjour,

as-tu des données en lignes 5 ?

dans la négative, la méthode .CurrentRegion de l'objet Range va te renvoyer la plage complète

Code:

---

1 2 3 4 5 6

With Range("A6").CurrentRegion .Address ' Adresse de la plage .Columns.Count ' nombre de colonnes .Rows.Count ' nombre de lignes ' etc... End With

---

dans l'affirmative, il faut "retailler" correctement la plage, au moyen de la méthode Resize .... et/ou s'orienter éventuellement vers la méthode .UsedRange de l'objet Range


Currentregion = plage rectangulaire délimitée par des interesections de lignes/colonnes vides
UsedRange = plage rectangulaire complète qui est utilisée sur la feuille


D'autres méthodes vont faire appel, comme tu l'as fait pour calculer ta dernière ligne, à la méthode .End.
Pour les colonnes en général, on va procéder comme ceci :

Code:

---

1 2	Dim NumCol as Integer NumCol = Cells(1,Columns.Count).End(XltoLeft).Column

---

Vu qu'on travaille sur des numéros de colonnes, il est impératif de ne plus travailler avec des Range (Range("C4")) mais avec des Cells (Cells(4,3)) où le premier nombre est la ligne et le second est la colonne

Bonjour,

Si ton but est de créer le tableau sur la bonne plage automatiquement et que tu as au moins une ligne vide avant et une ligne vide après ce tableau, tu peux faire comme ça pour le créer:

Code:

---

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$6").CurrentRegion, , xlYes).Name = "Tableau1"

---

=> CurrentRegion va automatiquement récupérer toutes la zone connexe.