Données effacent dernière ligne

[François]

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

 

[PascalXLD]

Bonjour

Change ta première ligne ainsi

Num = .Range('a65536').End(xlUp).Row + 1

 

[François]

Bonjour Pascal76, le forum,

Merci