Discussion :

[mikeactuaire]

Bonjour forum,


J'ai une feuille Excel présentée de la façon suivante:

Voici les intitulés des colonnes (56 colonnes) :

Année SERVICE TITRE D'EMPLOI NOM EMPL 1 1........ 26 26


Les colonnes de 1 à 26 représentent les périodes, ils sont doublés car la première colonne correspond au nombre d'heures travaillées et la deuxième le salaire payé.


J'ai un Base de donnée de plusieurs centaines d'employés.
Je voudrais pour chacun d'eux faire un tri et obtenir le tout sur un seul tableau qui se présenterait comme suit:

Année SERVICE TITRE D'EMPLOI NOM EMPL Période Salaire



Merci pour votre soutien,



A+

[L'Albatros]

Si je comprends bien, le but est d'avoir au final une ligne par employé avec dans les colonnes Période et Salaire les sommes respectives de leur temps travaillé et de leur salaire réglé respectifs ?

'-----------------------------------------------------------------------
Si j'ai pu vous aider, merci de me le dire avec 1 pouce

[mikeactuaire]

En fait le but c'est d'obtenir 26 lignes pour chaque employé.
Soit une ligne pour chaque période (avec les heures travaillées ainsi que les salaires payés pour chacune des périodes).

[L'Albatros]

Ok merci. Je t'envoie l'algo général d'ici ce soir, et puis on valide ensemble avant de s'y mettre.
Quel est ton niveau en VBA ? Maîtrises-tu les variables tableaux ?

[mikeactuaire]

Merci,

Mon niveau VBA est bon, mais je ne vois pas ce que tu veux dire par variables tableaux. Quoiqu'il en soit je pourrais m'adapter....

A+

[L'Albatros]

Bonjour,

Je peux te donner un algo général mais avec un tableau tampon (copier/coller) sur une autre feuille Excel, parceque je nai pas beaucoup de temps.
Comme cela risque de faire ramer la bécane, il faudra donc optimiser le code en utilisant des tableaux "abstraits" du style:

Code :

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

1
2
3
4
Dim NomTableau() As String
NomTableau(0) = "a"
NomTableau(1) = "b"
NomTableau(2) = "c"

maîtrises-tu ces instructions et la manipulation des tableaux en général ? Elles vont être essentielles pour le développement.

'------------------------------------------------------------------------
Si j'ai pu vous aider, merci de me le dire avec 1 pouce vert

[mikeactuaire]

Bonjour JB,

J'ai commencé à travailler sur le code avec un copier/coller sur un nouveau classeur (j'utilise un nouveau classeur pour trier les salariés mais je les supprime au fure et à mesure) mais ça prend quelques minutes et le problème c'est que ma boucle :

Code :

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

1
2
3
Set Dico = CreateObject("Scripting.Dictionary")
 
         For Each Item In Dico.items

s'arrête après la 269ème exécution. Il y a t il une limite au dictionnaire?

Si tu as mieux je veux bien essayer autre chose ou bien trouver une solution pour cette limitation.

Merci

[L'Albatros]

Bonjour,

Pour le dico je ne sais pas, je ne m'en suis presque jamais servi.

Bien-sûr que ca rame tu fais des va-et-viens entre plusieurs fichiers et tu copies/colles... et ce pour un grand nombre d'itérations.

C'est pourquoi je te demandais jusqu'où va ta science du VBA; si tu savais te servir tes tableaux (up)... ?

[mikeactuaire]

Je pense que je pourrais comprendre.

Merci d'essayer.

[L'Albatros]

D'accord, pas de problème.

Voici un tutoriel : http://silkyroad.developpez.com/vba/tableaux/

Prends ton temps pour le digérer, ce n'est pas forcément évident pour un débutant.

Et c'est la base d'un code bien construit et optimisé (temps de calcul divisé par 100 ou 1000).

Dès que tu es ok, reprends ton code et post-le moi.

Bon travail