Reasser de plusieurs lignes à une ligne par indi
Bon,
J'ai pas eu le courage ni le temps de me faire une formation accélérée en VBA ce we. Du coup, j'ai pris vos différentes propositions en commençant pas les formules d'ODJV mais marche pas... J'ai recopié betement mais j'ai que des #Valeur en réponse.
Ensuite macros de Thierry. J'adapte mon fichier ( parce que c'était ma présentation était volontarement simplificatrice...) Ca mouline, erreur '13', débogage, le probleme vient de la ligne suivante :
.Range('A7').Resize(UBound(TabFinal, 2) + 1, UBound(TabFinal, 1) + 1).Value = Application.Transpose(TabFinal)
Analyse succinte, comprends pas alors je teste:
1/ je remplace les chiffres de la colonne age par des nombres entiers... Toujours pas.
2/ Je supprime tous les 'ages' ( qui ne sont pas des ages dans ma base mais des durées en heures) supérieur à 100... supérieur à 50... toujours pas
3/ Je réduis à moins de 1000 le nombre de lignes, à moins de 500... toujours pas.
4/ je convertis mes matricules en chaines de caractères... Toujours cette erreur 13.
Comme vous le constatez, j'ai des idées mais des compétences en VBA proches de 0!!!
Finalement, après réduction à moins de 300 lignes, ça fonctionne.
As tu une idée du probleme et de ce que je dois faire??
J'ajoute, qu'en réalité je n'ai pas 2 données à tranposer ( age +prénom) mais 6 :
-Intitulé qui est l'équivalent du prénom
-2 dates
-3 données numériques : 1 durée + 2 couts
Si tu peux m'aider, merci... Sinon, merci quand meme.
Sevaudrey