Aidez moi à faire un boucleRésolu

Question

slt tout monde, svp aidez moi à faire un boucle sur mon exo excel, je veux faire un retour a la ligne suivant, exemple si je saisie dans TextBox1 de mon formulaire, le resultat doit apparaitre sur la cellule A1, mais a la fin il doit faire un boucle revenir a la cellule A2,  ensuit de suite jusqu'à l'infini. Merci pour vos aides

voici mon code: 

Option Explicit
Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Application.ThisWorkbook.Save
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
[A1] = UserForm1.TextBox1.Text
End Sub

Renfield · Accepted Answer

dangereux de faire ca dans le _Change ....

ca va faire que ça !

cs_yabross · Answer

si tu peux m'aider à faire un boucle sur les cellules en excel, ça me fera du bien merci bonne journnée

Renfield · Answer

Ne joue pas avec le bouton 'réponse acceptée' il sert a montrer que ta réponse a trouvé une réponse qui convient. Du coup, personne d'autre ne va venir t'aider...

Private sub Command1_Click()
    selection.value = Text1.Text
    selection.offset(1).select
End Sub

cs_yabross · Answer

ok merci

Aidez moi à faire un boucle

4 réponses

Votre réponse

Discussions similaires