Inserer des données dans des cellule et passer a la cellule suivante

[bichon]

Salut a tous et a toutes
J'aimerai que quelqu'un puisse me venir en aide sur un problème de cellules
c'est a dire voila
grace a un textbox j'insere du texte dans une cellule
voici le code

Dim j As Integer
j = 539
j = j + 1
Sheets("Archives").Select
Range("A" & j).Value = TextBox2.Value
Range("B" & j).Value = TextBox2.Value & ".xls"


voila j'imagine qu'il faut faire une boucle mais laquelle et comment?
car la j'insere la donnée de la textbox en 540
j'aimerai une fois qu'elle est inserer que la prochaine aille en 541
puis la suivante en 542 ....

voila j'espere avoir été clair
je vous remercie d'avance

bichon

 

[Alain]

Bonjour,



Tu peux remplacer ton code par :

Sheets("Archives").Select
Range("A539").End(XlDown).select
If ActiveCell.Address = "$A$65536" Then
Range("A539").Select
End If

Activecell.Offset(1,0)= TextBox2.Value
Activecell.Offset(1,1)= TextBox2.Value & ".xls"

@+

 

[bichon]

ok alain j'essaye demin je te tiens au courant
merci