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

  • Initiateur de la discussion Initiateur de la discussion bichon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

bichon

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

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour