Données effacent dernière ligne

F

François

Guest
Bonjour le forum,

Avec le code suivant :

Num = .Range('a65536').End(xlUp).Row
.Range('a' & Num).Value = ComboBox1.Value
.Range('b' & Num).Value = ComboBox2.Value
.Range('c' & Num).Value = ComboBox3.Value
.Range('d' & Num).Value = TextBox1.Value
.Range('e' & Num).Value = TextBox2.Value + ComboBox4.Value
.Range('f' & Num).Value = TextBox3.Value
.Range('g' & Num).Value = TextBox4.Value
.Range('k' & Num).Value = TextBox5.Value

je veux ajouter à la dernière ligne non-vide les données.

Le problème est qu'elles écrasent la dernière ligne contenant des données. Donc je perds les infos de cette ligne.

Comment faire pour éviter la perte de cette dernière ligne ?

Merci
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40