Bonjour a vous tous je joint mon fichier
car sur une nouvelle feuille il y a un problème de macro
car l'insertion automatique sur la feuille Synthèse fonctionne une foi sur deux
elle se rajoute pas toujours voila mon problème.
Un peu d'aide d'avance merci
Avec un peu d'avance a tous une bonne année a vous
Pas pu reproduire l'erreur que tu mentionnes??? Par contre, le souci ne serait-il pas lié au fait qu'en feuille Synthèse, les dernières lignes ne renseignent pas le Site en colonne A? L'ajout se ferait bien, alors, mais pas dans le bonne ligne?
Si c'est bien là le problème, c'est au niveau de cette ligne
Comme Modeste ... pas d'erreur apparente dans le code ...
Cependant, il faudrait uitliser Option Explicit pour ton code, et supprimer les cellules fusionnées ... ( source de souci )
As-tu remarqué des circonstances particulières ... lorsque l'erreur se produit chez toi ...?
Sans rien enlever aux remarques judicieuses de James007, je poursuis sur ma première hypothèse ... Comme, au moment de l'encodage, tu vérifies que le n° du lecteur a bien été renseigné, on peut en déduire que ce champ est obligatoire ... et les autres facultatifs (oui je sais la seconde déduction est particulièrement brillante )
Dans le code, pour déterminer dans quelle ligne de la feuille synthèse tu vas recopier le nouvel enregistrement, tu utilises:
Code:
dl = .Range("A65000").End(xlUp).Row + 1
Je suggère, pour ma part, d'utiliser:
Code:
dl = .Range("E65000").End(xlUp).Row + 1
... sauf si tu peux nous garantir qu'à chaque nouvel enregistrement, tu encodes bien un site (et que la colonne A de la feuille "synthèse" est systématiquement renseignée).
C'est une bonne idée effectivement
Je précise quand même qu'au cas ou la colonne A n'est pas renseignée, la nouvelle ligne est quand même bien créée mais elle remplace la précédente, ce qui n'a pas était signalé...
A+
kjin