Unload certaines cases

Bonjour à tous

Sur mon USF j'ai mis ce code :

'*********************************************************

'Procédure permettant d'ajouter un nouvel enregistrement

'*********************************************************

Private Sub btnAjout_Click()

Sheets("LOG").Activate

Range("A2").Select

Selection.End(xlDown).Select 'On se positionne sur la dernière ligne non vide

Selection.Offset(1, 0).Select 'On se décalle d'une ligne vers le bas

ActiveCell = cboActivation.Value

ActiveCell.Offset(0, 1).Value = txtQrz

ActiveCell.Offset(0, 2).Value = txtRst

ActiveCell.Offset(0, 5).Value = cboBand

ActiveCell.Offset(0, 6).Value = txtMhz

ActiveCell.Offset(0, 7).Value = cboMode

End Sub

Toutes les cases sont remplis au départ et sont reportés sur ma feuille à chaque saisie , Sauf txtQrz et txtRst que je remplis et donc je voudrais que ces 2 txt se vident après chaque enregistrement et que le curseur revient sur la case Qrz , j'espère avoir bien expliquer car mon fichier fait + de 3Mo , donc comment pourrais-je faire .

D'avance merci de votre aide , Philippe .

Bonjour,

Un essai ...

Ajoute au bas du code ... avant End Sub ...

txtQrz = ""
txtRst = ""
txtQrz.SetFocus

ric

Super efficace , Merci Ric pour ta rapidité

Bon week , Philippe .

ric