Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème de variable dans un userform

  • Initiateur de la discussion Initiateur de la discussion denisbouchard
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

denisbouchard

Guest
Bonjour à tous,
Je voudrais afficher la taille choisie dans l'userform, sans passer par une macro intermédaire. Mais je n'arrive pas à faire fonctionner la macro suivante, et je ne vois pas où est le problème. Pouvez-vous m'aider?
Merci pour vos réponses.
Denis
 

Pièces jointes

Re : Problème de variable dans un userform

Bonsoir DenisBouchard,

Simplement que la variable "taille" est définie à 2 endroits
1) en entête de module (ça c'est bon)
2) en entête de ton USF (c'est mauvais)

A+
 
Re : Problème de variable dans un userform

Bonsoir
Comme ça:
VB:
Private Sub OK_Click()
If Bouton1 Then Feuil1.[F4].Value = 1
If Bouton2 Then Feuil1.[F4].Value = 2
If Bouton3 Then Feuil1.[F4].Value = 3
If Bouton4 Then Feuil1.[F4].Value = 4
If Bouton5 Then Feuil1.[F4].Value = 5
If Bouton6 Then Feuil1.[F4].Value = 6
End Sub
Mais vous feriez mieux de prendre des OptonButton plutôt que des CheckBox: ils on vocation à être mutuellement exclusif.
À+
 
Re : Problème de variable dans un userform

Remarque
La propriété Value des ChexkBox et des OptionButton est déjà un Boolean.
C'est carrément idiot de comparer un Boolean à True puisque :
(True = True) = True,
(False = True) = False, Donc
(OptionButton1 = True) = OptionButton1.
Les opérateur de comparaisons servent à former une expression Boolean à partir d'autres types de données. On n'en a jamais besoin quand on à déjà à faire à des Boolean. Pour les combiner on a les opérateurs And, Or, Eqv, Xor, Imp et le préfixe Not.
À+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
188
  • Question Question
XL 2019 MFC
Réponses
6
Affichages
232
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
523
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
363
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…