Est-ce possible ? UserForm 1 vers UserForm 2
Bonjour à tous !
J'ai un problème que j'aimerais résoudre, du moins si c'est possible...
J'aimerais en sélectionnant un chiffre via une ListBox de ma UserForm1, afficher un certain nombre de TextBox et ComboBox dans ma UserForm 2.
Ce chiffre sélectionné (3 par exemple dans ma ListBox - UserForm1) devra m'afficher (via le bouton valider de la UserForm 1), le nombre correspondant de TextBox et ComboBox dans ma UserForm2.
Ou alors juste griser les autres cases / message d'erreur etc. pour qu'on ne puisse pas les remplir.
Est ce possible ?
Merci à tous pour votre aide !
Bonjour,
Regarde sur le fichier en retour avec les ajouts codes dans les différents modules
Banzai64 a écrit :Bonjour
Une solution
Bonjour Banzai64 !
Merci pour ton aide, quand j'utilise ton fichier, cela marche parfaitement. Le problème c'est que quand je l'adapte au mien (qui n'est pas le même, cela ne marche pas...
SI je comprend bien le code que tu as entré est :
Dim I As Integer
For I = Range("A1") + 1 To 5
Me.Controls("TextBox" & I).Visible = False
Me.Controls("ComboBox" & I).Visible = False
Next I
End Sub
Excel me renvoi un message d'erreur... et je ne sais pas pourquoi :
Le message d'erreur "Objet introuvable"
pour le code :
Me.Controls("TextBox" & I).Visible = False
Raja a écrit :Bonjour,
Regarde sur le fichier en retour avec les ajouts codes dans les différents modules
Bonjour Raja merci pour ton aide !
Comme pour Banzai, le code marche parfaitement dans le fichier que tu m'as envoyé, mais en l'adaptant à mon fichier, il ne marche plus, enfin plus rien ne ce passe quelque soit le chiffre de ma ListBox sélectionné...
Ton code est bien celui-ci (UserForm2) ? :
Select Case nb
Case 4
TextBox631.Visible = False
ComboBox304.Visible = False
Case 3
TextBox599.Visible = False
ComboBox301.Visible = False
TextBox631.Visible = False
ComboBox304.Visible = False
Case 2
TextBox600.Visible = False
ComboBox302.Visible = False
TextBox599.Visible = False
ComboBox301.Visible = False
TextBox631.Visible = False
ComboBox304.Visible = False
Case 1
TextBox602.Visible = False
ComboBox300.Visible = False
TextBox600.Visible = False
ComboBox302.Visible = False
TextBox599.Visible = False
ComboBox301.Visible = False
TextBox631.Visible = False
ComboBox304.Visible = False
End Select
avec dans ma UserForm1 :
nb = ComboBox1.Value
Je ne comprends pas d'ou peut venir le problème sachant que tout fonctionne dans les fichiers que vous m'avez envoyé, mais pas dans le mien quand je le recopie
Bonjour
J'ai oublié de préciser
J'ai renuméroté les contrôles
TextBox de 1 à 5
ComboBox de 1 à 5
Banzai64 a écrit :Bonjour
J'ai oublié de préciser
J'ai renuméroté les contrôles
TextBox de 1 à 5
ComboBox de 1 à 5
J'ai effectivement vu que vous aviez changé le nom des Text et ComboBox, mais même en l'adaptant, ça ne marche pas.. malheureusement je ne peux pas vous transférer mon fichier complet pour voir l'erreur étant donné qu'il fait 2MO
Banzai64 a écrit :Bonjour
Compresse le et si toujours >300 Ko passe par cjoint
Ne pouvant pas le réduire à moins de 600Ko, voici le lien de mon fichier : https://www.cjoint.com/c/EJpo0eKKYSA
Les explications son dans l'onglet "explication" du classeur, mais le principe reste le même
En espérant que c'est réalisable, merci beaucoup de ton aide Banzai64 !
Banzai64 a écrit :Bonjour
A tester
Un grand MERCI Banzai64, j'ai utilisé ta méthode pour la deuxième partie de mon programme en renommant les contôles et tout fonctionne ! merci à toi