excel problem de bouclage Résolu

Question

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

pijaku · Answer

Re
ma méthode ne fonctionnait pas???

informaticien du dimanche · Answer

non j'ai pas reussi
ca m fait avancé mais ca ne fonctionné pas correctement

pijaku · Answer

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.

l'informaticien du dimanche · Answer

merci pijaku ca marche
en te remerciant.....

Excel problem de bouclage

4 réponses

Discussions similaires

Newsletters