Discussion :

[revemane]

bonjour le forum

Voila j'ai des données qui s'enregistre dans une feuille de calcule nommée TCOOLANT avec des texte box et des option button que j'ai renommé pour mes besoins

les textbox = VDM1 etc
les optionbutton = OPM1 etc

je cherche si c'est possible de simplifier mon code que voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sheets("TCOOLANT").Range("A65536").End(xlUp).Offset(1, 0).Value = CStr(VDM1)
 
    Sheets("TCOOLANT").Range("B65536").End(xlUp).Offset(1, 0).Value = CStr(VDM2)
       Sheets("TCOOLANT").Range("C65536").End(xlUp).Offset(1, 0).Value = CStr(VDM3)
        Sheets("TCOOLANT").Range("D65536").End(xlUp).Offset(1, 0).Value = CStr(VDM4)
 
    Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OPM1, "Liège", "")
    Sheets("TCOOLANT").Range("E65536").End(xlUp).Offset(1, 0).Value = IIf(OPM2, "Jemeppe", "")
       Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM3, "Liège", "")
    Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM4, "Jemeppe", "")

et ainsi de suite pour mes autres textbox et option buttons

d'avance merci pour votre aide

[diude54]

Pourrai tu préciser un peu.
Tu pourrai essayer d'ecrire ça sous forme de boucle, mais avec ce que tu as donné je suis pas sur que ça vaille le coup. Combien de ligne as tu?

Tu peux déja faire set Sh=sheets("ta feuille") si tu veux l'appeler souvent ça évite que ce soit long

sinon en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
with Sheet("ta feuille")
.range...
.range...
...
end with

Si la feuille en question est active alors tu pêux même enlever le Sheet("").

[revemane]

merci pour ta réponse

j'ai plus ou moin 40 textbox et la meme chose avec des option button

actuelement je l'ai fait comme cité plus haut
mais mon application plante tout le temp
merci

[diude54]

En gros tu as 40 colonnes avec des textbox en bas de la colonne et en fonction de ce qu'il y a dans les textbox de la colonne tu veux ecrire un truc dans la case en dessous?

pour la boucle tu peux faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i=1 to i=n° de la dernière colonne
Sheets("TCOOLANT").column(i).End(xlUp).Offset(1, 0).Value = CStr(VDM & i)
next i

même chose pour les opm

[revemane]

En gros tu as 40 colonnes avec des textbox en bas de la colonne et en fonction de ce qu'il y a dans les textbox de la colonne tu veux ecrire un truc dans la case en dessous?

sorry j'ai pas été asser clair

j'ai un userform multi page

avec des textbox et des option buton dont je doit recuperer les valeurs pour aller les mettre sur une feuille en collonne en fonction de la date du jour
donc aujourdh'ui pour commencer ma premire textbox sera en A2 la deuixieme en B2 et ainsi de suite pour les autres et demain la meme chose mais dessous donc A3, B3 etc

[diude54]

Même idée que précedemment mais remplace le numéro de la dernière colonne par le numero de la dernière textbox.

tu devrais aussi essayer de mettre au lieu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cstr(VDM1)

plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cstr(VDM1.Value)

Aussi je voit pas l'intéret de faire Cstr, si tu utilise juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VDM1.Value

ce que tu as saisi dans la textbox sera inscrit dans la cellule

Tu devrais aussi pouvoir lister les textbox de ton userform et faire un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim txt as Oleobject.textbox
 
For each txt in userform1
ton code
next txt

mais je ne sais plus comment on declare une textbox.

[Minick]

Salut,

Essaie comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("TCOOLANT").column(i).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDM" & i))

++
Minick

[revemane]

Salut,

Essaie comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("TCOOLANT").column(i).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDM" & i))

++
Minick

meme message d'erreur

voila mon fichier que j'aimerai simplifier

http://www.megaupload.com/?d=5XWFV1V3

[diude54]

exact ça ne fonctionne pas. On ne ppeut pas mettre de variable pour le nom d'un objet.
C'est le VDM & i qui ne fonctionne pas.
Tout de suite je ne vois pas comment contourner ça.
Cherche plutot du coté de for each textbox in userform