Discussion :

[asobiso]

J'ai lu cette discussion

J'ai téléchargé la contribution de rdurupt qui marche bien pour les deux fichiers Excel en exemple (66 et 11.xls).
J'ai d'autres fichiers à compiler mais étant débutant en VBA, j'arrive à mettre le nombre de colonnes souhaitées, mais la macro ne me copie pas le contenu du tableau.
je souhaiterai avoir plus de notion sur l'identification des colonnes à sélectionner ('J 'utilise une collection pour identifier les colonnes.
'Colonne A=1, B=2…..
'Nom= Colonne 1=>A, Rue= Colonne 2=>B
'Ce principe m'oblige à balayer toutes les cellules de A2 à I2 et A? à I?.). mes colonnes vont de A à N (voire plus).
Je vous serai reconnaissant de me détailler davantage (même si c'est déjà très clair) pour que je comprenne les fonctions utilisées dans la macro.

Merci d'avance

[Invité]

Bonjour,
D’abord un petit rappel de l’énoncé original.
Le postula était de pouvoir récupérer des données de différents classeurs, de les intégrer dans un feuille Excel unique.
Vue que le colonage de chaque classeur n’était pas forcément dans le même ordre que celui du classeur cible, nous devions pouvoirs écrire les valeurs dans la bonne colonne.
Les collections permettent de créer une frome de tableaux avec la différence que nous pouvons donner un nom à chaque élément du tableau.
ColonneTitre(1)=1
ColonneTitre( "Nom" )=1
Cette méthode permet d’écrire dans la Cible.colonne(1) les valeurs Source.colonne(10) si la colonne 10 comporte "Nom" comme titre de colonne.
En fait il s’agit d’un mappage des titres avec la colonne de destination.
Pour ton exemple :

'Ce principe m'oblige à balayer toutes les cellules de A2 à I2 et A? à I?.). mes colonnes vont de A à N (voire plus).

Si comme dans l’énoncé original, tu dois créer un nouveau classeur, la tu as 2 solution : créer un model (.XLT) avec ton colonage, ou utiliser le premier classeur que tu ouvre comme model de colonne ;
Dans c’est 2 cas gérer dynamiquement les collections.

Code :

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

1
2
3
4
For i = 1 To Usedrang.Cells.Columns.Count
    ColonneTitre.Add i, Cells(1, i)
    Titre.Add Cells(1, i)
Next

Pour la pratique nous en reparlerons avec des exemple plus concrets si tu veux bien.