probleme de retour a la ligne

[bobbyboon]

Bonjour a tous,

J'ai fait ce petit userform pour enregistrer les recommandés que l'ont fait parvenir à La Poste.
la feuille ENREGISTREMENT s'est a laisser une trace et la feuille RECAP sera imprimée et donnée dans une sacoche postale.
Le bug s'est que quand il y a plusieurs recommandés à enregistrer je m'aperçoisque sur la feuille RECAP uniquement le dernier que je valide s'inscrit.

Je percute plus !!!

d'avance merci

 

[Theze]

Re : probleme de retour a la ligne

Bonjour,

C'est ce bloc d'instruction qui pose problème :

 With Sheets("RECAP")
 LL = .Range("d17:a65356").End(xlUp).Row + 1
.Range("d" & LL).Value = TextBox1.Value
 End With

Remplace le par :

With Worksheets("RECAP")

    LL = .Cells(.Rows.Count, 4).End(xlUp).Row + 1 'sur colonne D
    .Range("D" & LL).Value = TextBox1.Value
    
End With

LL déclaré en Long (fichier Excel 2007 ou sup) et contrôle les cellules autour de A1714 de la feuille RECAP, il y a des valeurs parasites.

Hervé.

 

[bobbyboon]

Re : probleme de retour a la ligne

merci beaucoup