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
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