Excel problem de bouclage
Résolu
informaticien du dimanche
-
l'informaticien du dimanche -
l'informaticien du dimanche -
Bonjour, je créer un programme sur excel visual basic. le programme ci-dessous montre ou jen suis arrivé.
en faite je rempli les 5 text box de mon userform et jaimeré répété cette action N fois en sauvegardant à chaque fois les données dans une colone différente. notamment colone 1, 2, 3.......N.
Ce programme écrit dans N colones les même données; or moi je voudré avoir la possibilité d'entrer de nouvelle données dans les textbox à chaque itération.
SI quelqu'un peut m'aider cela seré top moumoute!!!
Merci
Private Sub CommandButton1_Click()
' Déclaration des variables
Dim N As Integer
Dim nombredeprojet As Integer
N = 1
nombredeprojet = Sheets("R&D projets").Cells(6, 1)
Do
If N <= nombredeprojet Then
Sheets("R&D projets").Cells(8, N) = TextBox1
Sheets("R&D projets").Cells(9, N) = TextBox2
Sheets("R&D projets").Cells(10, N) = TextBox3
Sheets("R&D projets").Cells(11, N) = TextBox4
Sheets("R&D projets").Cells(12, N) = TextBox5
End If
N = N + 1
If N > nombredeprojet Then
UserForm21.Show
End If
Loop
End Sub
en faite je rempli les 5 text box de mon userform et jaimeré répété cette action N fois en sauvegardant à chaque fois les données dans une colone différente. notamment colone 1, 2, 3.......N.
Ce programme écrit dans N colones les même données; or moi je voudré avoir la possibilité d'entrer de nouvelle données dans les textbox à chaque itération.
SI quelqu'un peut m'aider cela seré top moumoute!!!
Merci
Private Sub CommandButton1_Click()
' Déclaration des variables
Dim N As Integer
Dim nombredeprojet As Integer
N = 1
nombredeprojet = Sheets("R&D projets").Cells(6, 1)
Do
If N <= nombredeprojet Then
Sheets("R&D projets").Cells(8, N) = TextBox1
Sheets("R&D projets").Cells(9, N) = TextBox2
Sheets("R&D projets").Cells(10, N) = TextBox3
Sheets("R&D projets").Cells(11, N) = TextBox4
Sheets("R&D projets").Cells(12, N) = TextBox5
End If
N = N + 1
If N > nombredeprojet Then
UserForm21.Show
End If
Loop
End Sub
A voir également:
- Excel problem de bouclage
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel trier par ordre croissant chiffre - Guide
4 réponses
Quand tu es dans la fenêtre visual basic tu écris d'abord cette ligne :
Dim N As Integer, nombredeprojet As Integer
tu tapes sur la touche "entrée" et il va tirer automatiquement un trait sous ta déclaration de variables. Tout va bien.
Ensuite copie ce code et colles le sous la ligne :
Private Sub CommandButton1_Click()
nombredeprojet = Sheets("R&D projets").Cells(6, 1).Value
N = N + 1
If N = nombredeprojet Then
Exit Sub
End If
Sheets("R&D projets").Cells(8, N).Value = TextBox1
Sheets("R&D projets").Cells(9, N)).Value = TextBox2
Sheets("R&D projets").Cells(10, N).Value = TextBox3
Sheets("R&D projets").Cells(11, N).Value = TextBox4
Sheets("R&D projets").Cells(12, N).Value = TextBox5
End Sub
Si tu as un problème, postes toujours dans le topic initial. Là il y a un doublon, je vais signaler l'autre. Continue à poser tes questions sur celui-ci.
Dim N As Integer, nombredeprojet As Integer
tu tapes sur la touche "entrée" et il va tirer automatiquement un trait sous ta déclaration de variables. Tout va bien.
Ensuite copie ce code et colles le sous la ligne :
Private Sub CommandButton1_Click()
nombredeprojet = Sheets("R&D projets").Cells(6, 1).Value
N = N + 1
If N = nombredeprojet Then
Exit Sub
End If
Sheets("R&D projets").Cells(8, N).Value = TextBox1
Sheets("R&D projets").Cells(9, N)).Value = TextBox2
Sheets("R&D projets").Cells(10, N).Value = TextBox3
Sheets("R&D projets").Cells(11, N).Value = TextBox4
Sheets("R&D projets").Cells(12, N).Value = TextBox5
End Sub
Si tu as un problème, postes toujours dans le topic initial. Là il y a un doublon, je vais signaler l'autre. Continue à poser tes questions sur celui-ci.
