Début en VBA: travailler sur un nombre de cellules variable

Bonjour,

J'ai enfin décidé de découvrir la vie! Mais au début c"est pas évident.. :calim2:

Je veux automatiser une espèce d'analyse faites sur excel 2007 pour mon activité, celle-ci est composée de fonctions assez basiques (fonctions, recherche V, Filtres, TCD)
J'ai donc utilisé l'enregistreur de macro avec 26 boutons différents afin de diviser mon code en des étapes compréhensibles.
Je suis arrivé presque au bout malgré un soucis sur l'étape du TCD.

Mais le plus gros de mon problème est le faites que mon analyse commence avec l'export d'un fichier excel composé de x lignes et que mon code s'adapte pour le moment seulement au premier export réalisé.
J'ai essayer d'analyser les codes que je pense comprendre dans la majorité cependant je n'ai pas réussi à adapter les discours trouvé sur les forums à mes cas précis.
Par exemple pour mon bouton 1; il s'agit seulement d'une fonction GAUCHE(E1;10) en O2 soit:

Code:

---

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

Sub préparation() ' ' préparation Macro ' ' Sheets("Feuil2").Select Range("O1").Select ActiveCell.FormulaR1C1 = "Date" Range("O2").Select ActiveCell.FormulaR1C1 = "=LEFT(RC[-10],10)" Range("O2").Select Selection.AutoFill Destination:=Range("O2:O5263") Range("O2:O5263").Select Range("Q5").Select Sheets("Feuil1").Select End Sub

---

Je pensais qu'il fallait peut être créer un variable x avec le nombre de lignes et insérer cette variable dans l'intervalle?
Bref j'ai ce problème là sur 26 cas différents si vous pouviez me donner quelques pistes sur un simple comme celui là, je pense que je m'en sortirais :oops:


Merci d'avance.

Bonjour,
Comme tu sembles désireux de t'en sortir par toi même va voir ces pages :
http://silkyroad.developpez.com/
C'est une mine d'or
;)
Eric

Merci pour le lien je vais regarde tout ça.
Mais bon je ne serais pas contre une petite piste ..

Bonjour,

si j'ai bien compris, le problème que tu rencontres c'est que tu veux définir dynamiquement la fin de la plage d'autofill ici :

Code:

---

Selection.AutoFill Destination:=Range("O2:O5263")

---

Remplacer 5263 par la réelle dernière ligne de la colonne ?


Que ce soit le cas où pas, il est nécessaire d'apprendre à nettoyer le code crée par l'enregistreur de macro.
Il a tendance à travailler sur des objets actifs (activecell, activesheet, selection etc...) et multiplier les sélection et activation pour switcher d'objet actif
tout ceci est source de ralentissements très importants, voir parfois de problèmes pour réutiliser la macro

voici un exemple, où la ligne 5263 est calculée dynamiquement

Code:

---

1 2 3 4 5 6 7 8 9 10

With Sheets("Feuil2") .Range("O1").Value = "Date" ' ici on part de 02 et on prend toutes les lignes de la plage active - 1 (pour ne pas compter la ligne 1) With .Range("O2").Resize(.UsedRange.Rows.Count - 1, 1) ' application de la formule sur l'ensemble de la plage d'un seul coup .FormulaR1C1 = "=LEFT(RC[-10],10)" ' si tu veux remplacer la formule par sa valeur '.Value = .Value End With End With

---

Rebonjour,
Pour t'aider un peu il faudrait que tu expliques plus clairement ce que tu cherches à faire.
Quel est ton point de départ et à quoi veux-tu arriver?
Filtrer ? sur quel(s) critère(s)?
Copier/coller? quelle(s) donnée(s) et à quelle condition?
:roll:
;)
Eric

Tu as tout à fait compris ce que je voulais faire.
J'imagine bien que le code en enregistrant la matrice de façon n'est pas écrit de la façon la plus optimale. Je vais essayer de mettre de l'ordre dans tout ça.

En tout cas cela fonctionne très bien, juste pour comprendre

Code:

---

With .Range("O2").Resize(.UsedRange.Rows.Count - 1, 1)

---

est la partie qui correspond à mon problème.
PEux tu me dire si je la comprends bien:

Donc tu sélectionnes O2 tu définis les plages avec Resize et là t'incrémentes de 1 toutes les plages en partant de -1, ai-je bien compris du coup la formule est incrémenté à l'infini?

C'est pas exactement ça, mais l'idée est bonne

On part de O2 et on le redimensionne :

- redimension en colonne : on reste sur 1 colonne donc je met 1 sur le second argument de Resize
- redimension en ligne : on prend la plage active (UsedRange) de la feuille, son nombre de lignes (.Rows.count) et on en enlève 1 (puisqu'on est déjà en ligne 2, faut exclure le comptage de la première ligne)

Bonjour,


je suis enfin arrivé au TCD tout fonctionne très bien jusque là.
Voici le code que me donne l'enregistreur:

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("Feuil4").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Feuil4!R1C1:R345C24", Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="Feuil5!R1C1", TableName:="Tableau croisé dynamique4", _ DefaultVersion:=xlPivotTableVersion12

---

Mais du coup là même problème, il faudrait que le tableau prennent en compte tout ce qui se trouve sur la feuille 4 et peu importe le nombre de ligne.
Et je vous avoue que pour la création du TCD et le code que je vois là je ne comprend vraiment pas grand chose.

Il faut donc changer la source data mais quelle code utiliser?

Merci pour tout :P

Ah ah j'ai trouvé:

Code:

---

1 2 3 4 5 6 7 8

Sheets("Feuil4").Select   Range("A1").CurrentRegion.Select   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ Selection).CreatePivotTable _ TableDestination:="Feuil5!R1C1", TableName:="Tableau croisé dynamique4", _ DefaultVersion:=xlPivotTableVersion12

---

Comme quoi avec un peu de patience!! :P

Bonjour,

au lieu de selectionner ton [A1].CurrentRegion pour ensuite utiliser "Selection" dans ton SourceData

tu peux directement mettre "Range("A1").CurrentRegion" dans ton SourceData, et supprimer la ligne .Select au tout début

ça revient au même, mais tu n'obliges pas Excel à sélectionner la plage (ralentissement à l'exécution du code)