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

Conservation des donée dans une userform

  • Initiateur de la discussion Initiateur de la discussion loran45
  • 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 !

L

loran45

Guest
Bonjour,

J ai creer dans une feuil excel, un bouton qui charge une userform :

Sub clic_btn()
UserForm1.Show
End Sub

Dans le code de la userform (a l initialisation)je creer dynamiquement un checkbox :

Private Sub UserForm_Initialize()
Dim MonControle As Control
Set MonControle = UserForm1.Controls.Add('Forms.CheckBox.1', True)
MonControle.Caption = 'case1'
MonControle.Value = True
End Sub

Quand j appelle la userform en appuyant sur mon bouton, la userform apparait, jusque la tou va bien, mais si je declique la checkbox et que je referme la userform, puis je la rappelle, mon checkbox est re-chocher, comment faire pour que ma userform garde les modifs?


Par avance merci

Loran
 
bonjour loran, pascal

un essai un renvoyant la valeur du chekbox en A1 à la fermeture du usf.

loran, tu t'ennuierai moi en créant directement cette checkbox.



salut
 
YYYeeesss !

Excelent !

Merci beaucoup a vous 2

Hervé, l'ideal pour mon serait de creer dynamiquement des checkboxes dans une 2e feuille, mais le souci etait que j arrivais pas a cocher la checkbox en code, j ai envoyer un post ce matin intituler 'En VBA sous excel2000' poster a 9h46, si tu veux y jeter un coup d oeil et me donner ton avis ce serai sympa

Encore un grand merci a vous 2 pour votre aide

loran
 
re loran


je suis allez voir ton post, comme c'est l'ami michel qui ta répondu, vu son niveau et son sérieux, je ne m'avance guère en te disant que ca doit fonctionner ce qu'il ta proposé. 🙂

En complément, si tu veux rendre dynamique la création de checkbox avec le changement de la cellule N :

tu peux rajouter ce code en début de procédure pour effacer les checkbox préalablement créer.

For Each Obj In Worksheets(2).OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then obj.delete
Next Obj

(tiré des codes de michel et non testé)

salut
 
En fait c est curieux, le code que Mr Michel m a donné fonctionne tres bien sur mon pc chez moi, mais ne fonctionne pas du tout sur le pc de mon boulot

bonne soirée

Loran
 
- 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

M
  • Question Question
Réponses
2
Affichages
1 K
ministef_21
M
G
Réponses
10
Affichages
2 K
gypsos
G
J
Réponses
3
Affichages
3 K
jiritsu
J
B
Réponses
5
Affichages
17 K
B
L
Réponses
4
Affichages
1 K
loran45
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…