Excel problem de bouclage
Résolu
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
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
ModérateurRe
ma méthode ne fonctionnait pas??? -
non j'ai pas reussi
ca m fait avancé mais ca ne fonctionné pas correctement -
ModérateurQuand 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. -
merci pijaku ca marche
en te remerciant.....
