Macro correction

Question

Bonjour à tous,   

J'ai un petit souci avec cette macro le premier souci est résolue et la solution a été trouvé mais j'ai un autre petit souci.   

Si je n'insère pas de ligne vide en feuil2 entre les chiffres la macro ne fonctionne pas correctement est-ce que quelqu'un peut corriger ce problème ???  ET si le  

Voici un petit modèle du fichier.   

http://cjoint.com/?3eblFTj7VZF   

Configuration: Windows Vista / Internet Explorer 7.0

Help · Answer

Peut-être le fait de répéter plusieurs fois le même numéro pose problème l'ennui c'est que c'est nécessaire car j'ai d'autres formules qui les utilises. Donc lorsque j'insère la personne en feuil2 même si elle s'y trouve déjà je dois répéter le numéro pour les autres formules.

J'aimerais vraiment résoudre ce problème, est-ce que quelqu'un veut bien venir à mon aide. :-(

pijaku · Answer

On veux bien t'aider mais... Que veux tu? Qu'est censée faire ta macro? Donne un max de détail...

Help · Answer

D'accord. Je vais essayer d'être clair et de pas partir dans tous les sens. 

Le but de cette macro est de reporter les données se trouvant sur la feuil 2 en colonne P, Q,R, sur la feuil 1 selon le type (abs/hor/vac/rec) et le mois en tenant compte du numéro de la personne. 

Si on prend le n° 234, selon les données qu'il ira chercher en feuil2 il va y avoir deux commentaires sur la feuil1 au n°234. Le premier sera au mois de mars sous le titre "abs" le commentaire sera compsé des informations de la feuil2 de la colonne P, Q, R en l'occurence il y a qu'un élément c'est-à-dire "02.03.2010 au 15.03.2010". 

La macro fonctionne correctement mais pour qu'elle fonctionne il faut répéter qu'une seul fois le numéro d'employé et insérer une ligne à chaque fois qu'il y a un nouvel employé. Si tu veux je t'envoie le modèle qui est saisi de cette manière.

Help · Answer

En tout cas je te remercie infiniment d'avoir essayé de m'aider :-). J'espère que quelqu'un pourra m'aider :-(

eriiic · Answer

Bonjour,

Si chaque ligne de commentaire ne doit servir qu'une fois pourquoi les parcours-tu 2 fois ?

Tu as déjà :
With Feuil2
For Lg02 = 10 To .Range("B65536").End(xlUp).Row

et à l'intérieur :
Lg = Lg02
While .Cells(Lg, 15) <> ""
....
Lg = Lg + 1
Wend

Met ces 4 lignes en commentaire (avant de les supprimer), 
et dans les ... remplace Lg par Lg02 (Lg et Lg02 avec espace à cause du Lg01). 
Teste pour voir si c'est ce que tu désires.

eric

Macro correction

5 réponses

Votre réponse

Discussions similaires

Newsletters