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

code surchargé

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fred
  • 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 !

S'inscrire
F

fred

Guest
salut a tous
voici le code que g rentré, pour moi il est trop surchargé mais je ne vois pas comment faire pour l allégé g essayer avec un pour mais je n ai pas du le faire comme il faut
merci a ceux qui pourront me dire et m expliquai

Private Sub cmd1_Click()
If opt1 = True Then
accueil1_1.Hide
rec1_1_1.Show
ElseIf opt2 = True Then
accueil1_1.Hide
rec1_1_2.Show
ElseIf opt3 = True Then
accueil1_1.Hide
rec1_1_3.Show
ElseIf opt4 = True Then
accueil1_1.Hide
rec1_1_4.Show
ElseIf opt5 = True Then
accueil1_1.Hide
rec1_1_5.Show
ElseIf opt6 = True Then
accueil1_1.Hide
rec1_1_6.Show
ElseIf opt7 = True Then
accueil1_1.Hide
rec1_1_7.Show
ElseIf opt8 = True Then
accueil1_1.Hide
rec1_1_8.Show
End If
End Sub

cmd1 = bouton valider
accueil = c une fenetre qui ne possede que des options boutons
rec = une fenetre qui contient des phrases type
 
Trier par date Trier par votes
Bonjour,
une suggestion (non testée) :
enlever tous les accueil1_1.Hide
le mettre après End If

If opt1 = True Then rec1_1_1.Show
ElseIf opt2 = True Then rec1_1_2.Show
...
End If
accueil1_1.Hide
End sub

Ok ?
 
Vote positif 0 Vote négatif
Salut,

Tes bouton option sont du style à ne pouvoir être selectionner su'un à la fois si c'est le cas

tu attribut dans des privates sub une valeur à chaque optbouton ex

private sub opt1_click
opt_num=1
end if
private sub opt2_click
opt_num=2
end if
.
.
.
.
sub choix_opt
accueil1_1.Hide
select case opt_num
case 1
rec1_1_1.Show
case 2
rec1_1_2.Show
end select
end sub

Voila pour moi

A+ wilfried ;op
 
Vote positif 0 Vote négatif
Salut Fred, Galopin, Wilfried, le forum,


Belle galère, car la collection Userforms ne renvoie que les Userforms chargés... mais cette macro fonctionne :

Dim nom As String, Dim x as Byte, Dim y as Byte
Load recl_1_1
Load recl_1_2
Load recl_1_3
Load recl_1_4
Load recl_1_5
Load recl_1_6
Load recl_1_7
For x = 1 To 7
If Me.Controls("opt" & x).Value = True Then
Unload Me
nom = "recl_1_" & x
For y = 0 To UserForms.Count
If UserForms(y).Name = nom Then
UserForms(y).Show
End
End If
Next y
End If
Next x

À plus,

Robert
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

N
  • Question Question
aide sur nombre stocker en forma texte (combobox)
Réponses
2
Affichages
914
nordov6
N
D
  • Question Question
Fonction personnalisée avec MAX et conditions
Réponses
3
Affichages
1 K
Djorge84
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…