Remplissage du Caption d'un CommandButton et Label

Bonjour,

J'ai développé un petit QCM via un userform avec plusieurs questions.
Pour chaque question, j'ai 4 réponses possibles avec 2 types de réponses (juste ou faux).

J'ai donc pour chaque question 3 userforms (Question, réponse juste, réponse fausse).
Cela est très long à modifier si je veux changer une question ou réponse ...

Je voudrais donc appeler pour chaque "Label" (question) et "CommandButton" (réponse) une cellule Excel où est marqué le texte afin que tout mon texte du QCM soitcentralisé sur une feuille et non dans les userforms.

Savez-vous comment appeler une cellule pour copier la valeur d'une cellule vers le caption (zone où l'on écrit le texte) d'un "label" et d'un "CommandButton" ?

Merci par avance.

Bonsoir Granlur, bonsoir le forum,

Pas évident de te suivre sans fichier exemple... Pour modifier la propriété [Caption] d'un CommandButton ou d'une Label par rapport à une cellule :

Code:

---

1 2	CommadButton1.Caption = Range("Ta_cellule").Value Label1.Caption=Range("Ta_cellule").Value

---

Merci pour ta réponse.

Voilà, ça c'est par exemple mon Userform 1 (ma page d'introduction) avec du texte à mettre dans le caption du label3 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Private Sub CommandButton1_Click() 'Quand on clique sur le bouton suivant de la page précédente   UserForm1_Intro1.Show vbModeless 'ma nouvelle page s'affiche Unload UserForm1 'ça désactive la précédente   End Sub   Sub UserForm1_Initialize() Load UserForm1_Intro1 'j'initialise ma nouvelle page Label3.Caption = Range("F100").Value 'je viens de rajouter ici ton code pour le label3 End Sub   Private Sub CommandButton2_Click() 'quand je clique sur le bouton page suivante de mon userform actuel Unload UserForm1 'ça désactive le userform actuel End Sub

---

En mettant ton code j'ai un message d'erreur 401 : "impossible d'afficher une feuille non modale lorsqu'une feuille modale est affichée"
Je ne sais pas quoi faire.

Bonsoir Granlur, bonsoir le forum,

Oui, j'avoue que j'ai du mal à comprendre qui est qui ! À L'initialisation d'une UserForm, tu sembles charger une autre UserForm ! Bizarre...
Sans un fichier exemple avec les différentes UserForms, difficile de t'aider davantage...

Bonsoir,

enlève le "vbModeless"

Bonjour,

Citation:

---

Envoyé par Granlur

Bonjour,

Savez-vous comment appeler une cellule pour copier la valeur d'une cellule vers le caption (zone où l'on écrit le texte) d'un "label" et d'un "CommandButton" ?

Merci par avance.

---

Je n'a pas le temps de tout lire.

Dans le Load de l'UserForm et à adapter:

Code:

---

commandbutton1.caption = sheets("Séraphin").range("a1").text

---

Merci clementmarcotte ! :)
Le programme fonctionne correctement !

Pouvez-vous me dire quel est l'utilité de vbModeless ? A la base de mon programme, je l'ai mis partout, sauf que là il ne le faut pas. Sur quels paramètres cela influe ?

Bonjour,

C'est selon que l'on veut que l'UserForm soit fermé ou non avant de poursuivre le programme.


C'est extrait de l'aide de VBA. Si tu tapes VBmodeless dans la recherche de l'aide de VBA, tu devrais trouver assez facilement l'article au complet:

Citation:

---

Valeurs

Les valeurs pour modal sont :

Constante Valeur Description
vbModal 1 UserForm est modal. Valeur par défaut.
vbModeless 0 UserForm n'est pas modal.



Remarques

Si l'objet spécifié n'est pas chargé lors de l'appel de la méthode Show, Visual Basic le charge automatiquement.

Note Dans Microsoft Office 97, si un objet UserForm est défini de telle sorte qu'il s'affiche sans intervention de l'utilisateur (objet non modal), une erreur se produit au moment de l'exécution. Les objets UserForms d'Office 97 sont toujours de forme modale.

Lorsqu'un objet UserForm n'est pas modal, le code suivant est exécuté dès qu'il apparait. Les feuilles non modales n'apparaissent pas dans la barre des tâches et ne figurent pas dans l'ordre de l'onglet de la fenêtre.

---