planning

N

Nairolf

XLDnaute Accro

• 3 Juin 2013

• #2

Re : planning

Salut Padbol,

Je te propose le fichier joint comme ébauche (j'ai remplacé ton combobox par un textbox car me semblait plus adapté).

 

Pièces jointes

• TEST_Nairolf.xlsm

  23.7 KB · Affichages: 42

Vote positif 0 Vote négatif

P

Padbol

XLDnaute Nouveau

• 3 Juin 2013

• #3

Re : planning

Salut Nairolf,

C'est à peu près ce que je voulais, merci beaucoup pour ta réponse
En plus grâce à toi je viens de me rendre compte que j'avais oublié le fait qu'un mois ne contient pas un nombre entier de semaines.
j'étais parti sur 4 semaines pour simplifier.

J'ai quelques questions =)

à quoi sert le "/1" que tu as ajouté dans ton code?
Avec ton code, on est forcément cantonné aux entiers?
Et est-il possible de revenir aux première semaine pour les fréquences? C'est à dire de faire une boucle, lorsque l'on part de la semaine 51, par exemple, avec une fréquence de 2, on revient au début du planning, à la semaine 1


J'ai juste modifié ton code afin de partir de la dernière machine enregistrée, et non pas de la cellule sélectionnée
Dis moi si c'est OK =)

Private Sub CommandButton1_Click()
ligne = Range("C65536").End(xlUp).Offset(1, 0).Row
col = TextBox2.Value / 1
While col <= 52
Cells(ligne, 3 + col).Value = TextBox1.Value
col = col + (TextBox3.Value / 1)
Wend
col = 0
Unload UserForm1
End Sub


Merci encore de ton attention

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 3 Juin 2013

• #4

Re : planning

Le "/1" est là car le textbox importe du texte sinon, ça permet de transformer en nombre le nombre stocké en texte (il existe peut-être une formule plus propre mais je ne l'a connaît pas et ne l'ai pas cherché).

Pour la boucle, tu souhaites traiter toutes les colonnes du tableau dans les deux sens? je regarde ce qui peut être fait.

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 3 Juin 2013

• #5

Re : planning

Essaye avec ça:
Private Sub CommandButton1_Click()
ligne = Range("C65536").End(xlUp).Row
col = TextBox2.Value / 1
While col <= 52

Cells(ligne, 3 + col).Value = TextBox1.Value
col = col + (TextBox3.Value / 1)
Wend
col = TextBox2.Value / 1
While col >= 1

Cells(ligne, 3 + col).Value = TextBox1.Value
col = col - (TextBox3.Value / 1)
Wend
col = 0
Unload UserForm1
End Sub

Il y a peut-être plus subtile et il est probablement possible de regrouper les 2 boucles.

 

Vote positif 0 Vote négatif

P

Padbol

XLDnaute Nouveau

• 3 Juin 2013

• #6

Re : planning

Re,

Oui c'est cela =D
Tu es mon héros^^

J'aime beaucoup ta technique car elle permet de palier un défaut que j'avais repérer
Si on prend une fréquence dont 52 n'est pas le multiple, j'avais peur qu'une boucle inscrive au final sur toute les cases =)
Mais là c'est parfait, pile poil ce que je voulais


Merci beaucoup,

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 3 Juin 2013

• #7

Re : planning

Bonsour®

Nairolf à dit:

il existe peut-être une formule plus propre mais je ne l'a connaît pas et ne l'ai pas cherché.

Cliquez pour agrandir...

🙄

déjà mettre en début de module : Option Explicit

ensuite typer les variables
Dim col as Integer '( ou Long)

puis :
col = col + CInt((TextBox3.Value)
ou bien
col = col + CLng(TextBox3.Value)

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 3 Juin 2013

• #8

Re : planning

Salut Modeste et merci de ces précisions 🙂

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 3 Juin 2013

• #9

Re : planning

Bonsour®

🙁 encore faut-il intercepter également l'erreur quand TextBox3 contient réellement un vrai texte ... 🙄

 

Vote positif 0 Vote négatif

P

Padbol

XLDnaute Nouveau

• 3 Juin 2013

• #10

Re : planning

C'est pas faux^^
Donc en annonçant le type de variable, plus besoin du "/1" de nairolf, c'est ça?
Comment faire pour intercepter justement l'erreur occasionner par la rentrée d'un texte et non d'un nombre??

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 3 Juin 2013

• #11

Re : planning

Oui, il faut faire un contrôle avec du genre:

if worksheetfunction.isnumber(textbox3.value) then
'ici le code déjà proposé
else
msgbox("Veuillez renseigner un nombre")
endif

 

Vote positif 0 Vote négatif