Discussion :

[pikameuh]

Bonjour à tout les developpeurs,

j'ai commencé le VBA il y à 3 semaines. Je pensais m'en sortir plustôt pas mal, jusqu'à maintenant.

j'ai réalisé un formulaire qui est quasiment finit, mais mon formulaire est un GROS USEFORM! Et maintenant j'ai besoin de l'integré dans une feuille Excel.
(Je viens de réaliser que en temps 'normale' on créer des petits bout dans un formulaire Excel, et non pas un gros formulaire dans un UseForm).

Est ce possible ou il faut que je recommence tout?

[Daranc]

il suffit de récupérer les valeurs saisies par des boucles et de poser le tout dans un feuille d'archive.
ton formulaire c'est quoi? case à cocher? combobox? textbox? optionbutton?
après le traitement des données se fait sur la feuille qu'importe la colonne ou est la réponse il suffit que l'analyse pointe la bonne colonne

[pikameuh]

Mon formulaire contient :

- boutons
- combos
- frames
- pixbox
- textboxs
- ...

[Daranc]

les frames ne sont pas des objets retournant une valeur
les boutons commandent une action
les textbox retournent une valeur texte ( attention avec les format de date excel mélange allègrement les mois et les jours lorsque c'est possible)
les pixbox ( je connais pas)
mais disons que tu as une centaine d'objets à valeur
les textbox sont tous numérotés textbox1 textbox2...les optionbutton également même si ils sont dans des frames différents il sont incrémentés dans l'USF auquels ils appartiennent
tu fait la somme de tous ces objets et tu obtiens ( allez à la louche 89)
tu dimensionnes un tableau variant

Code :

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

dim reponse(1 to 89) as variant

puis tu fait une boucle par type d'objet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
p=0                 ' compteur
for t=1 to 27               ' on chpope les valeurs des 27 textbox   
p=p+1                        ' on incrémente le compteur  
reponse(p)=controls("textbox" & t).value
next
for t=1 to 20                ' on chpope les valeurs des 2 checkbox
p=p+1                         ' on oublie pas
reponse(p)=controls("checkbox" & t).value
next
for t=1 to 42                 ' et enfin les optionbutton
p=p+1                          ' là non plus ne pas oublié 
reponse(p)=controls("optionbutton" & t).value
next
 
with sheets(3)
lg=.range("a65535").end(xlup).row+1
.range(cells(lg,1),cells(lg,89).value=reponse
end with

[pikameuh]

Merci des tes réponses.

Pour info , une pixbox est une PictureBox (boite d'image)

Petite question, ce code, je le mets où?

Dans un module? (au quel cas comment faire le lien avec la feuille excel?)
Dans le code du UseForm? (au quel cas, même question que précedement)
Dans la feuille? (ça me parait peut probable mais bon)

Cordialement, Pikameuh.

[Daranc]

le code tu le mets dans l'USF tu selectionnes le bouton clic-droit code la macro sera une private sub lie à l'USF