Est ce possible de simplifier ce code ?

**revemane** · 12/08/2009, 15h22

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** · 12/08/2009, 15h26

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** · 12/08/2009, 15h29

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** · 12/08/2009, 15h31

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** · 12/08/2009, 15h37

Envoyé par 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?

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** · 12/08/2009, 15h44

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.

**revemane** · 12/08/2009, 16h06

Envoyé par diude54

tu devrais aussi essayer de mettre au lieu

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

j'ai mis le Cdtr car dans mes textbox c'est un nombre comme valeur et j'en ai besoin car c'est recopier dans la cellule sous forme de texte

Envoyé par diude54

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

ton code ne marche pas j'ai une erreur 438
méthode non gérée par l'objet

**Minick** · 12/08/2009, 16h31

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

**diude54** · 12/08/2009, 16h31

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

**revemane** · 12/08/2009, 16h44

Envoyé par 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

meme message d'erreur

voila mon fichier que j'aimerai simplifier

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

**Minick** · 12/08/2009, 16h51

Bizarre ca fonctionne tres bien chez moi...

++

Tu dis avoir renommé tes controls, mais dans le fichier joint cen'est pas le cas.
Donc forcement ca ne marchera pas...

++

Je viens de m'apercevoir d'une petite coquille.
Il manque 1 's' a columns(i)

EDIT:
Si tu as un fichier ou tu as teste avec des controls renommés essaie deja ca.
Ensuite il te faudra modifier ton fichier.
Bon courage, et pense a lister les noms d'origines et les nouveaux noms
parce que tu vas devoir corriger tout ca ensuite dans le code...

++

**revemane** · 12/08/2009, 18h10

Envoyé par Minick

Je viens de m'apercevoir d'une petite coquille.
Il manque 1 's' a columns(i)

EDIT:
Si tu as un fichier ou tu as teste avec des controls renommés essaie deja ca.
Ensuite il te faudra modifier ton fichier.
Bon courage, et pense a lister les noms d'origines et les nouveaux noms
parce que tu vas devoir corriger tout ca ensuite dans le code...

++

ok merci cela fonctionne pour les textbox merci beaucoup
en ce qui concernent les optionbutton c'est la même chose ? tout en sachant que par exemple le option button 1 et 2 doivent s'inscrire dans la meme collone et pas une a la suite de l'autre
merci

J'ai quand meme un probleme , à chaque encodage cela remplace ma ligne précédente . moi je souhaiterai qu'elle se mettent en dessous

merci

**Minick** · 12/08/2009, 18h20

Essaie en remplacant le columns par

Code :

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

...cells(65536, i).End(xlup...

++

**revemane** · 12/08/2009, 18h22

thanks

Peux tu m'expliquer pour les option buttons si cela est possible aussi
merci

**Minick** · 12/08/2009, 20h27

c'est chaud vu que utilise un texte (et pas l'etat)
organiser pour savoir quel texte marquer.

J'essaierai de te faire un exemple demain pour te montrer comme je ferais.
J'ai un peu de mal a trouver une facon simple de l'expliquer

++
Minick

**revemane** · 12/08/2009, 21h31

j'ai un autre probleme
j'utilise ce code pour faire apparraitre un bouton lorsque toute mes texbox sont remplie

code

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Dim M() As New soir, x As Byte, ctrl As Control
Private Sub UserForm_Initialize()
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.TextBox Then
x = x + 1
ReDim Preserve M(1 To x): Set M(x).txt = ctrl
End If: Next
End Sub

et le module de classe suivanr

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Public WithEvents txt As MSForms.TextBox, x As Byte, ctrl As Control
Private Sub txt_Change()
For Each ctrl In UserForm2.Controls
If TypeOf ctrl Is MSForms.TextBox Then
If ctrl <> "" Then x = x + 1
 End If: Next ctrl
If x = 28 Then 'ne pas oublier de modifier
UserForm2.CommandButton1.Visible = True
Else
UserForm2.CommandButton1.Visible = False
End If: x = 0
End Sub

lorsque j utilise le code ci dessus

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click() 'bouton valider
For p = 1 To 10 ' =n° de la dernière colonne
Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDS" & p))
Next p
End Sub

j'ai le message d'erreur suivant

erreur de compilation
variable non définie

d"apres l aide on me dit que c'est parce que j utilise une option explicite
et je sais pas comment définir ma variable

merci pour votre aide

**diude54** · 13/08/2009, 08h37

Est ce que VDS1 à VDS10 existent et sont bien nommés comme tels?
Pour moi si tu peux cliquer sur ton commandbuttton1 cela signifie que tes macros précedant fonctionne sinon il serait caché.

Envoyé par revemane

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Dim M() As New soir, x As Byte, ctrl As Control
Private Sub UserForm_Initialize()
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.TextBox Then
x = x + 1
ReDim Preserve M(1 To x): Set M(x).txt = ctrl
End If: Next
End Sub

Tu avais la solution quand je te disais de chercher du coté de

Code :

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

For each textbox in userform

**Minick** · 13/08/2009, 08h54

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click() 'bouton valider
For p = 1 To 10 ' =n° de la dernière colonne
Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDS" & p))
Next p
End Sub

Declare p en byte

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click() 'bouton valider
dim p as Byte
 
For p = 1 To 10 ' =n° de la dernière colonne
Sheets("soir").Cells(65536, p).End(xlUp).Offset(1, 0).Value = CStr(Controls("VDS" & p))
Next p
End Sub

++
Minick

**revemane** · 13/08/2009, 09h02

merci pour l'info

dit je pensait plutot que de mettre des optionbutton je faisait ca avec des combobox

est ce que ce serait plus facile

et aussi comment intégrer ces combobox renomée en CB1, etc pour le besoin

dans le code de visibilité du bouton et dans le code pour enregistrer les données

d'avance merci

**ouskel'n'or** · 13/08/2009, 09h27

Chaque jour de nouvelles données à ajouter en fin de colonnes, ça j'ai compris.
Une question : Ces données sont-elles placées sur la même ligne pour un jour donné ?

Une remarque : Dans ton code, tu places déjà deux fois tes données dans la même cellules

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", "")

Ce n'est pas forcément une erreur, c'est toi qui vois

Mais réponds à ma question

Edit
Si ce n'est pas une erreur, j'imbriquerais plutôt les deux IIF pour une question de lisibilité pour un tiers qui ne connaît pas ton code (ici, le tiers c'est moi

)

Code :

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

       Sheets("TCOOLANT").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(OPM3, "Liège", IIf(OPM4, "Jemeppe", ""))

Mais attention, la condition n'est pas exactement la même (si OPM3 = "Liège" et OPM4= "Jemeppe", c'est la première condition qui sera remplie)

Est ce possible de simplifier ce code ?

Macros et VBA Excel

Discussions similaires

Partager

Partager