Remplir une base de données par l'intermédiaire d'une Textbox

[Fredrennes]

Re-bonjour,

Je veux remplir une colonne de références différentes par l'intermédiaire d'une textbox.

Si la base de données est vierge (c'est à dire uniquement les entêtes de colonnes sont renseignés) je veux que ce qui est saisi dans la Textbox apparaisse sur le ligne 2, sinon que ça apparaisse dans la 1ère cellule vide de la colonne.

Pour cela j'ai double cliquer sur la Textbox dans VB et dans la macro j'ai écris :

Sheets("Base").Select
Range("A1").Select
If IsNull(ActiveCell.Offset(1, 0)) Then ActiveCell.Offset(1, 0).Select Else Selection.End(xlDown).Select
ActiveCell.Offset(1, O).Select

Est-ce que je fais fausse route en sachant que ça bug qd j'écris qq chose dans la Texbox ?????

Il me manque sûrement qq chose.

Merci bcp

 

[Robert]

Re : Remplir une base de données par l'intermédiaire d'une Textbox

Bonsoir Fred, bonsoir le forum,

Tu peux simplifier avec :

Sheets("Base").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value

Évite les Select qui ralentissent le code...

 

[Fredrennes]

Re : Remplir une base de données par l'intermédiaire d'une Textbox

Merci l'Héraultais !!