Dernières lignes qui disparaissent après insertion via VBA

Bonjour,

Je sèche vraiment sur ce problème et je ne trouve pas la solution sur les forums.

Voici mon problème, pour une demande de prix, dans la feuille "DB RFQ", je complète le tableau pour en cliquant sur New Rfq, j'insère les référence 1, puis 2, 3, .... Le problème est que lorsque que j'arrive à la référence 3, d'abord les dernières cellules contenant les références disparaissent, à partir de la quatrième entrée, ce sont les lignes entière qui disparaissent!

A noter qu'après chaque entrée, j'effectue en tri décroissant sur les références (j'ai aussi essayé sur les dates (fonction Now) et même problème)

Merci sincèrement à celui qui prendra le temps de me répondre.

Bonjour

en début du code de validation des données des l'userform1, tu efface les données mais pas de la bonne feuille car pas de nom de feuille de précisée

il faut donc remplacer le code

    Range("C9,C10,D7,D8,D9").Select
    Range("D9").Activate
    Selection.ClearContents
    Range("B14:E25").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=30
    Range("B39:E57").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-36

par

Sheets("RFQ").Range("C9,C10,D7,D8,D9,B14:E25,B40:E57").ClearContents

A toi de jouer

Merci beaucoup c'était en effet cela, je bricole beaucoup et ça cause pas mal de problèmes.