Bonjour à toutes et à tous,

dans le cadre de mes études, il m'est demandé de réaliser via excel un sondage pour pouvoir traiter les données plus facilement avec des TCD, Mise en forme conditionnelle et autres...

toutefois je rencontre un pb de taille de Userform... en effet, mon questionnaire est établi de la façon suivante:
- une partie avec des infos sur la personne sondée : 6 champs
- une partie avec des questions accompagnées de commentaires : 60 champs ( 20 x 1 question, 1 commentaires, 1 analyse)
- une partie avec uniquement des questions : 80 questions
Soit au total 126 colonnes utilisées.
oui je sais, c'est énorme!!!

Pouvez-vous jeter un coup d'oeil à mon fichier ci-joint?
Quelle solution peut-on apporter pour réaliser cela via Userform?

Bien entendu, je n'oserai pas demandé à qui que se soit de réaliser sur le userform toutes les questions sauf si qq'un à LA solution miracle qui évite de tout taper (copier-coller des éléments de la boites à outils contrôle retenus)...
merci de montrer la démarche et une partie du code éventuellement.

par avance merci de vous être penchée sur mon problème.

Juliette [file name=questionnaire_20051216160113.zip size=13136]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/questionnaire_20051216160113.zip[/file]

[Toutou]

Bonjour Juliette,

Je n'ai pas regardé ton fichier, mai je viens juste de finir un programme ou toutes les infos(plus d'une centaine) était gérer par un seul userform. Pour ma part j'ai utilisé un multipage, je pense que cette solution pourrait te permettre de trier tes infos selon leur type avec les différents onglets.
En éspérant que cela pourra t'inspirer,
à +
Toutou

Bonjour Toutou,

merci pour cette info...

pourrais-tu me transmettre ton programme stp?
je ne sais pas gérer le passage des pages du multipage via le code VBA.

Juliette

[_Thierry]

Bonjour Juliette, Toutou, le Forum

Pas vraiment sûr d'avoir compris, mais si on veut se faciliter la tache on peut faire ce genre de codes après avoir vérifier d'avoir activer la référence à 'Microsoft Forms 2.0 Object Library'


Par exemple ce code va générer tout seul un UserForm avec 40 TextBox mesurées, alignées, nommées etc, avec 40 label alignés aussi...

OptionExplicit


Const Sign AsString = ''Thierry 's Truc sur www.Excel-Downloads.com, March 2005'

Const TxbWidth AsInteger = 65
Const TxbHeigth AsInteger = 15
Const TxbLeft AsInteger = 90
Const TxbTop AsInteger = 15

Const LblWidth AsInteger = 70
Const LblHeigth AsInteger = 15
Const LblLeft AsInteger = 10
Const LblTop AsInteger = 15

Sub MyUserFormAutoBuilder()
Dim ObjUSF AsObject
Dim ObjTextBox As Object, ObjLabel As Object, CmdB As Object, LstB AsObject
Dim TopPlusHeight AsInteger
Dim X AsByte
Dim VLblLeft AsInteger
Dim VTxbLeft AsInteger
*
* Set ObjUSF = ThisWorkbook.VBProject.VBComponents.Add(3)
* With ObjUSF
* * .Properties('Caption') = Sign
* * .Properties('Width') = 660
* * .Properties('Height') = 195
* * .Properties('ShowModal') = True
* EndWith
*
* * For X = 1 To 40
* * * *
* * * Set ObjTextBox = ObjUSF.Designer.Controls.Add('Forms.TextBox.1')
* * * Set ObjLabel = ObjUSF.Designer.Controls.Add('Forms.Label.1')
* * *
* * * * * SelectCase X
* * * * * * Case 1 To 10
* * * * * * * If X = 1 Then TopPlusHeight = LblTop
* * * * * * * VLblLeft = LblLeft
* * * * * * * VTxbLeft = TxbLeft
* * * * * * Case 11 To 20
* * * * * * * If X = 11 Then TopPlusHeight = LblTop
* * * * * * * VLblLeft = LblLeft + 160
* * * * * * * VTxbLeft = TxbLeft + 160
* * * * * * Case 21 To 30
* * * * * * * If X = 21 Then TopPlusHeight = LblTop
* * * * * * * VLblLeft = LblLeft + 320
* * * * * * * VTxbLeft = TxbLeft + 320
* * * * * * Case 31 To 40
* * * * * * * If X = 31 Then TopPlusHeight = LblTop
* * * * * * * VLblLeft = LblLeft + 480
* * * * * * * VTxbLeft = TxbLeft + 480
* * * * * EndSelect
* * * * * * *
* * * * *
* * * * * With ObjLabel
* * * * * * .Caption = 'Label TextBox ' & X
* * * * * * .Left = VLblLeft: .Top = TopPlusHeight: .Width = LblWidth: .Height = LblHeigth
* * * * * * .Tag = 'Thierry's Demo'
* * * * * * .Name = 'LblDemo' & X
* * * * * EndWith
* * * * * With ObjTextBox
* * * * * * .Left = VTxbLeft: .Top = TopPlusHeight: .Width = TxbWidth: .Height = TxbHeigth
* * * * * * .Tag = 'Thierry's Demo'
* * * * * * .Name = 'TxbDemo' & X
* * * * * * .TextAlign = fmTextAlignRight
* * * * * EndWith
* * * * *
* * * * TopPlusHeight = TopPlusHeight + 15
* * Next

VBA.UserForms.Add(ObjUSF.Name).Show
*
Set ObjUSF = Nothing
Set ObjTextBox = Nothing
Set ObjLabel = Nothing
EndSub

Pour un control Multipage, le 'passage' de page se fait en précisant sa valeur :

MultiPage1.Value = 0 'Pour la première page


Bonne Soirée je dois partir là
Et Bon Week End
[ol]@+Thierry[/ol]

[Excel_lent]

Bonsoir Juliette42,
Bonsoir à tous,

Essaie de changer, dans les propriétés de l'userform, la dernière ligne : Zoom.
Passe à 80 (par exemple) et change éventuellement la taille (ligne au dessus : Width).

@+

Bonjour Juliette, Excel_Lent, _Thierry, le forum
pour le multipage, j'ai coder de cette manière et ça a marcher:

UserForm1.Multipage1.page1.TextBox2....etc
UserForm1.Multipage1.page2.TextBox2....etc
UserForm1.Multipage1.page3.CheckBox2....etc
UserForm1.Multipage1.page4.TextBox2....etc

Mais je pense que
UserForm1.Multipage1.TextBox2....etc
suffit

Bon courage, @ +
Toutou

[Blunet]

J'ai peut être un exemple en piecte jointe !!!

Mais avant des remarques:

Il faut que tu regroupes les questions par thème dans une Page de ton Multipage, Concernant les Checkbox, ils sont mieux ssi lenquête peut choisir + de 1e modalité par réponse. Sinon s#il doit choisir 1e et 1e seule rep par question le contrôle onglet est mieux :
A quoi te sert 'Analyse' que tu affiches dans le userform apres 'Commentaire' ? Sil s´agit de tes analyses cést pas la peine de les faire figurer sur le userform !

Jai donc créée 1e page 'Identification' ; 2 pages questions - analyses (chaque page contient 10 questions - analyses) ; 4 pages questions (chaque page contient 20 questions)

Pour la Date, s´agit-il de la date du jour ou de celle de fin de réponse au questionnaire (ce dernier cas serait peut être mieux). Pour faire apparaître un calendrier jutilise le contrôle Microsoft Date and Time, (Contrôles supplémentaires)

Enfin, si tu dois interroger avec un tel questionnaire as-tu prévu de gérer le fait que l'enquêté soit épuisé et ne réponde pas à toutes les questions immédiatement ? le cas échéant comment récupéreras-tu toutes les questions sur 1 même fichier ou support ?
Sur ce je te laisse en espérant que ce petit exple puisse t'inspiré, mais je suis ouvert à tes questions.

[Blunet]

Le fichier joint [file name=QuestEnquete.zip size=28635]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/QuestEnquete.zip[/file]

[MichelXld]

bonjour Juliette , Touou , @+Thierry , Excel_lent et Blunet

ci joint un autre exemple

http://www.excel-downloads.com/html/...0663_90663.htm

http://www.excel-downloads.com/html/...onnaireV02.zip


bonne journée
MichelXld

Bonjour Toutou , @+Thierry , Excel_lent, Blunet, MichelXld et bien sûr le Forum

après qques jours d'abscence, je souhaite vous tous pour votre aide. Merci de vous être penchés sur mon cas.
chacun avec son bout de code et autres conseils techniques m'a permis de resserer le fond e mon pb.
(Blunet... je n'ai pas réussi à exploiter ta pièce jointe )

toutefois, si vous me permettez, je fais un clin d'oeil spécial à MichelXld... car la pièce jointe foruni répond exactement à ce que je souhaite faire.
je vais rajouter des questions à son fichier (j'en ai 140... hum rien que ça!) et le tout sera joué.

Merci encore pour le temps consacré.

Bonne fin d'année 2005 à tous.

Juliette

[Gael]

Bonsoir Juliette, Toutou , Thierry , Excel_lent, Blunet, MichelXld,

Comme je me mets doucement au VBA, j'ai regardé les diverses solutions proposées qui m'ont appris encore un peu plus, notamment sur le multipage.

Thierry, j'ai essayé également ta macro et il faut remplacer:

.TextAlign = fmTextAlignRight

par .TextAlign = 3

pour que ça fonctionne (et ça marche très bien).

Merci pour ces exemples.

@+

Gael