Mise en forme avec userform

Version imprimable

13/04/2022, 09h12
Marcau86

1 pièce(s) jointe(s)

Mise en forme avec userform

Bonjour,

Je suis bloquer dans ce que je veux faire. J'espère que vous pourrez m'apporter les réponses aux questions que je me pose.

Je vais essayer d'être assez clair, mon fichier sera en pièce joint afin de mieux comprendre.

Je dois réaliser un questionnaire qui sera modifiable sans avoir besoin d'aller dans le code, pour cela j'ai fait un onglet paramètres mais aussi d'autre onglets pour les questions et les réponses attendus.
La première partit est les infos de la personne qui fera passer le questionnaire cela j'ai réussi à le faire (je pense que ca pourrai être améliorer mais ça marche c'est déjà ça).
Ensuite il me faut 2 autres UserForm, un pour les questions (les questions seront toujours fermées, si la réponse est positive -> question suivant si elle est négative -> revoie vers une réponse attendu), et donc le seconde pour les réponses attendu.
J'espère être assez clair, dans le fichier joint dans la feuill1 il y a des schéma qui explique comment devra fonctionner le programme.
Ensuite chaque question devra être affiché dans la feuille "Audit" avec ca réponse en face puis juste cette feuille devra être enregistrer dans un dossier en format Excel.
Cela devra être dans un format tablette, je m'explique, le questionnaire sera sur une tablette donc l'idéal serait d'affiché sur tout l'écran.

Encore une fois j'espère avoir était assez clair et j'espère que quelqu'un pourra m'aider.

Je vous remercie d'avance et attend de vos nouvelles.
13/04/2022, 19h18
Valtrase

Salut,
Tablette sous Windows ou Androïde ?
13/04/2022, 21h34
Qwazerty

Salut

C'est un chouette cahier des charges.
Et du coup tu bloques sur quoi exactement? Qu'est ce qui t'empêche d'avancer?

Je pense que la base de données peut-être retravaillée.
Pourquoi avoir fait un second tableau (avec une entête de 2 cellules fusionnées, ce qui est généralement un mauvaise idée), plutôt que d'avoir ajouté les deux colonnes qu'il contient dans le 1er tableau?

Tu peux aussi regarder du coté des "tableaux structurés", tu trouveras des tutoriels/blogs sur le sujet sur DVP (Pierre Fauconnier notamment).

++
Qwaz
14/04/2022, 08h24
Marcau86

Valtrase Une tableau Androïde

Qwazerty Ce qui me bloque est le manque de connaissance en VB, ce que j'aimerai faire c'est que le programme puisse aller chercher le texte seul et le mettre dans le userform. De cette manière nous pourrions rajouter des questions/réponses sans devoir retourner dans le programme.

Le fait d'avoir fait 2 tableaux est pour faciliter la lecture des prochaine personne.

Je ne connais pas du tout les tableaux structurés, je vais regarder cela.

Merci à vous pour vos réponse.

Bonne journée.
14/04/2022, 08h29
jurassic pork

Hello,

Citation:

Envoyé par Marcau86

Valtrase Une tableau Androïde

je ne voudrais pas être rabat-joie mais hélas les macros ne fonctionnent pas sous android mais uniquement sous windows.
Ami calmant, J.P
14/04/2022, 08h49
Marcau86

Citation:

Envoyé par jurassic pork

Hello,

je ne voudrais pas être rabat-joie mais hélas les macros ne fonctionnent pas sous android mais uniquement sous windows.
Ami calmant, J.P

Je vais devoir me renseigner pour avoir une tablette sous Windows alors.
Merci de m'avoir dit cela, j'aurais perdu du temps à chercher.

Bonne journée.
14/04/2022, 11h12
Qwazerty

Salut

Une info a circulée sur le réseau "Dev" de ma boite, je t'en met un extrait, j'ai migré sur 365 mais j'ai d'autres choses en cours avant de regarder ça :)

Citation:

Dans le cadre de l'expérimentation d'Office 365 (bientôt déployé), nous avons avons accès à une multitude d'outils dont PowerApps qui permet de faire des applis bureautique ou mobile en 2-3 mouvements à partir de données stockées sur le "cloud RTE" dont les données des SP, ou via API, ... Le gros avantage est que cela ne demande pas nécessairement "de code" et que cela fonctionne plus comme les formules dans Excel.

Peut-être que si tu es sous 365, il y quelques choses à en faire.

++
Qwaz
14/04/2022, 13h17
Marcau86

Citation:

Envoyé par Qwazerty

Salut

Une info a circulée sur le réseau "Dev" de ma boite, je t'en met un extrait, j'ai migré sur 365 mais j'ai d'autres choses en cours avant de regarder ça :)

Peut-être que si tu es sous 365, il y quelques choses à en faire.

++
Qwaz

J'aurais bien aimé mais c'est pour mon entreprise que je fais cela et la version utilisée est 2016.
Je te remercie quand même et si tu penses avoir des idées qui pourraient m'aider j'en serais ravie.
14/04/2022, 13h28
Valtrase

Citation:

Envoyé par Qwazerty

Salut

Une info a circulée sur le réseau "Dev" de ma boite, je t'en met un extrait, j'ai migré sur 365 mais j'ai d'autres choses en cours avant de regarder ça :)

Peut-être que si tu es sous 365, il y quelques choses à en faire.

++
Qwaz

Salut le fil,
Je vais tenter de regarder cela de plus près, car c'est pénalisant de ne pouvoir faire des macros.
15/04/2022, 09h01
jurassic pork

hello,
sinon avec une tablette android il y a possibilité d'utiliser Google Sheets :

Réaliser un audit avec un formulaire et GOOGLE SHEETS :

https://www.youtube.com/watch?v=u9wjqCV899o

Ami calmant, J.P
15/04/2022, 09h31
Marcau86

Bonjour,

Cela aurait pu être bien mais il faut absolument que cela soit fait en VBA.

1 pièce(s) jointe(s)

Bonjour,

J'ai lu quelques cours qui m'ont permis de faire des petites choses mais cela ne fait pas ce que je veux je vous partage ce que j'ai fais, si quelqu'un peu m'aider à comprendre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub UserForm_Initialize() Dim Q As Range Dim Question As String For Each Q In Worksheets("Questions").Range("A2:A35") Label5 = Worksheets("Questions").Cells(Q.Row, 1) If CommandButton1 = True Then Q = Q + 1 End If If CommandButton4 = True Then End If Next End Sub
Le but de cela est de prendre dans la feuille "Questions", le "question 1", l'afficher dans le label5 et ensuite si la réponse est positive (bouton vert) alors passer à la question suivante.
Il faut que je fasse la même chose avec la colonne juste à côté qui eux vont aller dans le label2.

Merci d'avance aux personnes qui pourront avoir une idée de comment faire.

Bonne journée

19/04/2022, 19h31
Qwazerty

Salut

Un code VBA s'exécute ligne par ligne, tant que inexécution est dans une procédure, tu ne peux pas cliquer sur un bouton par exemple.

A l'initialisation de ton UserForm, il faut que tu inscrives ta question 1 dans le label et c'est tout.

Ensuite dans le code de ton bouton OK, événement Click, le code doit aller chercher la question suivante et la placer dans le label

++
Qwaz
20/04/2022, 08h46
Marcau86

Merci pour ces informations.

Je vais essayer de voir cela mais mon niveau et mes connaissances sont très maigres donc cela me parait compliquer.

Bonne journée.

1 pièce(s) jointe(s)

Hello,

Citation:

Envoyé par Marcau86

mais mon niveau et mes connaissances sont très maigres donc cela me parait compliquer.

Voici un coup de pouce pour t'avancer.
1 - Dans le code du formulaire Questions Mettre :

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
Option Explicit
 
 
Private Sub CommandButton1_Click()
If Trim(Worksheets("Questions").Cells(QenCours + 1, 3)) = "Oui" Then
    QenCours = QenCours + 1
    Label5 = Worksheets("Questions").Cells(QenCours + 1, 1)
    Label2 = Worksheets("Questions").Cells(QenCours + 1, 2)
Else
   Reponses.Show
End If
End Sub
 
Private Sub CommandButton3_Click()
Me.Hide
End Sub
 
Private Sub CommandButton4_Click()
If Trim(Worksheets("Questions").Cells(QenCours + 1, 4)) = "Non" Then
   Reponses.Show
Else
    QenCours = QenCours + 1
    Label5 = Worksheets("Questions").Cells(QenCours + 1, 1)
    Label2 = Worksheets("Questions").Cells(QenCours + 1, 2)
End If
 
End Sub
 
Private Sub UserForm_Initialize()
    QenCours = 1
    Label5 = Worksheets("Questions").Cells(QenCours + 1, 1)
    Label2 = Worksheets("Questions").Cells(QenCours + 1, 2)
End Sub

QenCours est une variable globale qui représente le Questionnaire en cours. Il faut déclarer cette variable dans un module du classeur :

Code:

1
2
3
 
Option Explicit
Public QenCours As Integer

Pièce jointe 617643

Ami calmant, J.P

20/04/2022, 10h31
Marcau86

Merci à toi pour cela.

Le programme fait exactement ce que je voulais, il me reste juste à voir comment faire pour les réponses.

Juste une question : Est-il possible après une réponse de passer automatiquement à la questions suivante?

Encore merci et je te tiens au courant de la suite.

Bonne journée
20/04/2022, 11h10
jurassic pork

Citation:

Envoyé par Marcau86

Juste une question : Est-il possible après une réponse de passer automatiquement à la questions suivante?

Il suffit d'incrémenter la variable QenCours à la fermeture du formulaire Reponses :

Code:

QenCours = QenCours + 1
20/04/2022, 11h14
Marcau86

D'accord merci.

Je vais essayer de faire ca.

Bonne journée
20/04/2022, 12h10
jurassic pork
Citation:

Envoyé par jurassic pork

Il suffit d'incrémenter la variable QenCours à la fermeture du formulaire Reponses :

Code:

QenCours = QenCours + 1

Oops :oops: il faut aussi charger la nouvelle question dans le formulaire Questions :
Code:

1 2 3 4 QenCours = QenCours + 1 Questions.Label5 = Worksheets("Questions").Cells(QenCours + 1, 1) Questions.Label2 = Worksheets("Questions").Cells(QenCours + 1, 2) Me.Hide
20/04/2022, 13h44
Marcau86

Pas de soucis, je vais changer cela aussi.

Merci à toi.