La situation : J'ai un fichier excel avec une centaine de lignes qui contiennent des entrées. La colonne E contient un référence (un trigramme) pour identifer la personne à l'origine de la ligne. Les autres colonnes contiennent des informations. La première ligne contient l'entête des colonnes.
Le but : Dans le même fichier, créer une feuille par référence qui contiendra toutes les entrées qui se rapportent à la même personne ainsi que l'entête
Par exemple :
Feuille de base :
° § " * REF
1 2 a 4 AAA
2 5 s 4 AAB
1 5 b 4 AAB
1 2 v 4 AAA
2 5 j 4 AAC
1 2 e 4 AAA
Après manipulation :
1 Feuille AAA :
° § " * REF
1 2 a 4 AAA
1 2 v 4 AAA
1 2 e 4 AAA
1 Feuille AAB :
° § " * REF
2 5 s 4 AAB
1 5 b 4 AAB
1 Feuille AAC :
° § " * REF
2 5 j 4 AAC
L'idée : 1) Trier verticalement la feuille de donnée en fonction des références
2) Pour chaque ligne de la feuille de donnée,
a) si aucune feuille n'existe pour la référence, créer la feuille, copier l'entête en haut
b) si la feuille existe, rien
c) pour toutes ligne copier les valeurs de la feuille de données vers la feuille correspondant à la référence
Pour ce faire j'utilise deux compteurs : le premier pour parcourir progressivement les lignes de la feuille de données, le second pour décaler la copie des données si une référence apparaît plusieurs fois.
Comme ma feuille est triée, je peux gérer le second compteur en le réinitialisant lors de la création d'une nouvelle feuille et en l'incrémentant après chaque copie.
Le problème : Aucune idée :(
Quand j'execute mon code, j'ai une erreur
"Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet"
Le débogage se place sur la ligne de copie mais j'ai testé cette syntaxe sur un autre fichier, ca passait...
Help !^^
Je remerci d'ores et déjà ceux qui sauront m'aider ;)
Pour les experts codeurs, voici mon code :
----------------------------------------------------------------------
Sub dispatchOnglets()
Dim reference As String
Dim ligne As Integer
Dim lignecopie As Integer
