incrementer les textbox à l'aide d'une valeur récupérée d'une autre feuille

Version imprimable

18/06/2015, 09h10
Merryy

incrementer les textbox à l'aide d'une valeur récupérée d'une autre feuille

Bonjour :D ,
Mes problèmes avec vba toujours, pour aujourd'hui :
j'ai une feuille qui récupère un numéro d'année d'une autre feuille , et donc a partir de ce numéro des textbox vont être insérer ou afficher pour que l'utilisateur saisi le montant correspondant à chaque année.
Je sais bien que ça serait à l'aide du boucle for donc for i= textbox.text ??
Sinon, comment je peux afficher ou bien insérer des textbox selon le nombre récupérer ?
Merciiiii
18/06/2015, 09h34
stephb084

Hello Merry,

Pourrais-tu être un peu plus précise stp.
Par quel moyen l'année est récupéré d'une feuille et affiché sur l'autre ?
Sous quel critère l'année est choisi ?
18/06/2015, 09h51
Merryy

hii

la cellule récupère un numéro(entier) de l'autre feuille par une validation de données ( liste ), et ya pas de critère en faite, c'est une contrat dans la feuille résumé le manager saisie le nombre des années de contrat. et donc l'autre utilisateur va récupérer le nombre saisie dans l'autre feuille 4 par exemple et après il valide , 4 textbox devront être affiché pour qu'il saisie un montant pour chaque année, je sais si c'est clair ??
18/06/2015, 10h02
joe.levrai

Bonjour,

quel serait le nombre maximal d'années ?
tu as déjà des textbox dans ton formulaire ?

comment voudrais-tu que ça fonctionne exactement ?

y'a pleins de méthodes :

- on met X textbox, et en fonction du nombre d'années, on en affiche la quantité adéquate
- on crée dynamiquement les textbox, en fonction du nombre d'années
- on utilise un listbox + 1 combobox + 1 textbox
le combobox contient chaque années
on sélectionne une année, on rempli le textbox, on valide et l'information se synthétise sur ton listbox (avec retrait dans le combobox de l'année saisie)

etc...

tout est possible, c'est à toi de nous dire comment tu vois la chose
18/06/2015, 10h08
stephb084

Je rejoins joe.levrai dans son discours.

Il nous faut savoir exactement ce que tu souhaite pour que l'on puisse t'aider Merryy.

Je pense qu'il doit y avoir des numéros de contrat alors, cela peut-être le critère de recherche pour faire apparaître sur un USF les années de contrat et donc pouvoir y inscrire en face de chaque année les montants.
18/06/2015, 10h13
Merryy

1 pièce(s) jointe(s)

Pièce jointe 180918

comme dans la photo , il choisi si annuelle ou mensuelle (j'ai totalement oubliè cette condition)
donc si annuelle il va affiché 4 comma dans l'exemple
si mensuelle il va afficher 12 case (checkbox) représentant les mois (quand la première année termine, il efface )
sinon, est ce qu'il serait possible de lui demander avec un msgbox s'il veut toujours continuer avec le type mensuelle ou bien il veut changer vers annuelle ?
18/06/2015, 10h47
Marc-L

Bonjour,

juste en passant, un type de contrat ne peut être ni « Annuelle » ni « Mensuelle » ‼ …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo
18/06/2015, 10h53
joe.levrai

Marc-L, avec un L comme Larousse :ptdr:

je pense qu'elle fait probablement référence à une caractéristique telle que l'échéance, la périodicité etc....

alors, c'est quelle figure de style maître Capello ? J'hésite sur l'ellipse

pour en revenir au sujet principal, il faudrait que tu :

- synthétise ton souhait
- prépare manuellement le comportement et résultat attendu
- nous présente tout ça

sinon ça va partir dans tous les sens, et on va se retrouver avec 50 messages superflus ;)
18/06/2015, 11h00
Merryy

Citation:

Envoyé par Marc-L

Bonjour,

juste en passant, un type de contrat ne peut être ni « Annuelle » ni « Mensuelle » ‼ …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Type contrat ici voulais dire le budget est il payé par année ou découpé à des mois, et merci de ne pas laisser des messages s'ils ne sont pas pour une solution.

Citation:

Envoyé par joe.levrai

Marc-L, avec un L comme Larousse :ptdr:

je pense qu'elle fait probablement référence à une caractéristique telle que l'échéance, la périodicité etc....

alors, c'est quelle figure de style maître Capello ? J'hésite sur l'ellipse

pour en revenir au sujet principal, il faudrait que tu :

- synthétise ton souhait
- prépare manuellement le comportement et résultat attendu
- nous présente tout ça

sinon ça va partir dans tous les sens, et on va se retrouver avec 50 messages superflus ;)

Donc c'est pas clair ce que je veux c'est ça ??
18/06/2015, 11h05
joe.levrai

nous sommes trois a être intervenus, et nous avons tout les trois posé des questions (parfois identiques)

je pense que ça confirme qu'en l'état, on ne peut pas proposer une solution globale sans multiplier les questions, les incompréhensions etc...

on est peut être mal réveillés en fait :mrgreen:
18/06/2015, 11h12
Marc-L

Afin de ne pas passer pour une quiche, l'orthographe est aussi importante que la conception du projet !

Tant pis pour la solution, pas de bras, pas de chocolat ! (sans une présentation digne de ce nom, claire & exhaustive, …)
18/06/2015, 11h15
Merryy

Citation:

Envoyé par joe.levrai

nous sommes trois a être intervenus, et nous avons tout les trois posé des questions (parfois identiques)

je pense que ça confirme qu'en l'état, on ne peut pas proposer une solution globale sans multiplier les questions, les incompréhensions etc...

on est peut être mal réveillés en fait :mrgreen:

Lol pas de soucis , je reformule alors :
on va partir de l'exemple dans la photo ou il ya 4 affiché dans la case de nombre d'année de contrat . donc l'utilisateur va choisir entre annuelle ou mensuelle .
s'il choisit annuelle , il n'as pas le droit de revenir au mensuelle donc ( l'autre case visible= false) après 4 case ils vont apparaitre pour qu'il puisse saisir le montant de chaque année.
Même cas pour mensuelle (pas droit de basculer vers annuelle) apparaitre 12 case puisque c'est mensuelle (quand la 1ere ann finit les cases s'initialise à 0) boucle de 4 ans.
Donc voila voila i hope thats kind clear :? :( :roll:
18/06/2015, 12h23
joe.levrai

Il manque quand même un morceau dans ton explication, avant de tout remettre à 0 pour le tour de boucle suivant, tu fais quoi de tes données ??

pourquoi ne pas utiliser un formulaire, ça sera beaucoup plus souple et pratique que des contrôles sur une feuille ?
18/06/2015, 12h56
Merryy

moi je dois faire un suivi pour ces budget, donc est ce que ça serait possible effectivement avec un formulaire ( je pense qu'avec un formulaire je dois utiliser dans une table pour stocker les données, et moi je ne peux utiliser qu'excel ):?

1 pièce(s) jointe(s)

Bonjour,
un piste:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub CheckBox1_Change()
If Me.TextBox3 = "" And Me.CheckBox1.Value = True Then Me.CheckBox1.Value = False: MsgBox "pas": Exit Sub
Me.CheckBox2.Visible = Not Me.CheckBox1.Value
Me.CheckBox1.Visible = Not Me.CheckBox1.Value
End Sub
Private Sub CheckBox2_Change()
Dim MMMM
MMMM = mois
Me.Label2.Width = 66
If Me.TextBox3 = "" And Me.CheckBox2.Value = True Then Me.CheckBox2.Value = False: MsgBox "pas": Exit Sub
Me.CheckBox1.Visible = Not Me.CheckBox2.Value
Me.CheckBox2.Visible = Not Me.CheckBox2.Value
If Me.CheckBox2.Value = True Then
    Dim i As Integer
    For i = 1 To TextBox3
        Set ctr = Me.Frame2.Controls.Add("Forms.TextBox.1", "Annee" & MMMM(i), True)
        ctr.Width = 66
        ctr.Visible = True
        If i > 1 Then ctr.Top = Me.Frame2.Controls("Annee" & MMMM(i - 1)).Top + 19
            For M = 1 To 12
                 Set ctr = Me.Frame2.Controls.Add("Forms.TextBox.1", "Mois" & MMMM(M), True)
                 ctr.Visible = True
                  ctr.Top = Me.Frame2.Controls("Annee" & MMMM(i)).Top
                  ctr.Width = 66
                  If M = 1 Then ctr.Left = Me.Frame2.Controls("Annee" & MMMM(i)).Left + 68 Else ctr.Left = Me.Frame2.Controls("Mois" & MMMM(M - 1)).Left + 68
                   Set ctr = Me.Controls.Add("Forms.label.1", "Mois" & MMMM(M), True)
                  ctr.Visible = True
                  ctr.Top = Me.Controls("Label2").Top
                  If M = 1 Then ctr.Left = Me.Controls("Label2").Left + 68 Else ctr.Left = Me.Controls("Mois" & MMMM(M - 1)).Left + 100
                  ctr.Caption = MMMM(M)
                  ctr.Width = 66
            Next
        Next
    Me.Frame1.Visible = True
Me.Label2.Visible = True
End If
End Sub
Function mois()
mois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
End Function
Private Sub ScrollBar1_Change()
Me.Frame2.Top = Me.ScrollBar1.Value
End Sub

19/06/2015, 08h33
Merryy

Mercii beaucoup c'est très gentil, fonctionne parfaitement :):D