Boucle for

[mephis]

Bonjours à toutes et à tous.

Mon soucis est le suivant. Dans le but d'un projet à l'université je doit réaliser un logiciel de MRP. Dans se logiciel nous rentrons des données via des userforms en fonctions des semaines. Or mon nombre de semaine peut être variable et c'est ici qu'arrive mon problème. Car je n'arrive pas à faire varier mon nombre de semaine avec la boucle for.

Voici mon code.

Dim i As Integer, j As Integer, k As Integer
i = UserForm7.TextBox1
For j = 2 To i
Sheets("Données BB").Select

For k = 1 To i
Sheets("Données BB").Cells(1, j) = "semaine" + K
Next k

Next j

Le nombre i est le nombre de semaine. Le code ne fonctionne au " "semaine" + K "

Merci d'avance

 

[Pierrot93]

Re : Boucle for

Bonjour,

A priori je vois 2 boucles dans ton code :

For j = 2 To i
Sheets("Données BB").Select

For k = 1 To i

A noter que cette instruction ne semble pas nécessaire :

Sheets("Données BB").Select

rarement utilile les "select" en vba...

bonne journée
@+

 

[mephis]

Re : Boucle for

Bonjour pierrot.

Oui il y a deux boucle. Une pour se décaler sur la feuille et une pour donner le numéro de la semaine. Et mon problème se situe sur la deuxième boucle.

 

[Pierrot93]

Re : Boucle for

Re,

regarde peut être ceci, avec 1 seule boucle :

Dim i As Integer, j As Long
i = UserForm7.TextBox1
For j = 2 To i + 1
    Sheets("Données BB").Cells(1, j) = "semaine " & j - 1
Next j

Edition : bonjour Dull

 

[Dull]

Re : Boucle for

Salut mephis, Pierrot, le Forum

A tout hasard ce ne serait pas "semaine " & K en lieu ety place de "semaine" + K

à tester

Bonne Journée

 

[mephis]

Re : Boucle for

Nikel pierrot .Merci beaucoup.

Dull ça fonctionne mais ça ne me marquait pas les bons nombres