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

Ouvrir un Userform Hide/Show

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

Phifou

XLDnaute Nouveau
Bonjour,
J'ai un souci pour faire apparaître mon Userform, j'explique:
J'ouvre mon Userform au début par un bouton sur un onglet, code Userform1.Show (ca marche)
Je rempli mon Userform et je le masque en cliquant sur un bouton, code Userform1.Hide (Ca marche)
Ce dernier bouton m’emmène sur un onglet de planning, je choisi une journée et click sur un bouton pour faire réapparaître l'userform, code Userform1.Show,
La commence le problème l'userform apparaît mais il est vide et ca bloque le fichier.
Si quelqu'un a déja rencontré ce problème ou qui a une solution, je suis preneur.
Merci d'avance de l'aide que vous pourrez m'apporter
 
Re : Ouvrir un Userform Hide/Show

Bonsoir,
Le fichier est trop gros pour etre mis, mais j'ai fais un essai en modifiant le code d'un des bouton de l'userform
J'ai un bouton Annuler code Unload me, j'ai modifier par Userform1.hide et la ca fonctionne
je peux refaire afficher l'userform avec les donné.
Donc je pense que mon proble ce situe dans le programme de mon bouton

Private Sub AGENDA1_Click()

MC4 = Month(Sheets("planning").Cells(4, 3).Value)

Sheets("Planning").Select
If TBDATE1.Value = "" Then
Sheets("Planning").Cells(1, 1).Select
Else
MLIV = Month(TBDATE1.Value)
COLONNE = ((MLIV - MC4) * 6) + 5
DLIV = Day(TBDATE1.Value)
LIGNE = (DLIV * 4) + 4
Sheets("Planning").Cells(LIGNE, COLONNE).Select
End If

UserForm1.Hide

End Sub

Merci de votre aide
 
Re : Ouvrir un Userform Hide/Show

bonjour phifou,nene
ton code à part sélecté ne fait rien càd ne lit rien n'écrit rien???
oublie les select cela ne fait que ralentir (rarement nécessaire)
fait un petit fichier qui réprésente le problème et quelqu'un pourra t'aider
 
Re : Ouvrir un Userform Hide/Show

Bonsoir,
J'ai suprimer tous ce que j'ai pu du fichier une fois compressé ca passe.
en continuant a faire des essais je m'apercois que lorsque j'ai le curseur dans le planning ca marche plus
si le curseur est en dehors du planning ca marche
donc c'est lié avec le planning que j'avais récuperé sur internet
Cdlt
 

Pièces jointes

Re : Ouvrir un Userform Hide/Show

bonjour Phifou
l'userform est plein d'erreur(manque des objets)
comment s'y retrouver pour faire une nouvelle entrée,modifier,etc?
que veux-tu faire avec cette feuille planing
il existe des contrôles pour choisir une date dtpicker,etc
 
Re : Ouvrir un Userform Hide/Show

Bonjour Bebere,
Oui l'userform est pas complet il y a normalement 2 autres pages mais je n'en suis pas encore a ecrire le code de celles ci donc je les ai supprimé.
ce que je veux en faite c'est mettre une date dans le tex box a gauche du bouton Agenda et lorsque je click sur Agenda que ca masque l'userform et affiche l'onglet Planning avec le cellule correspondant a la date demandé.
Mais cette feuille Planning que j'ai trouvé sur le net et essayé d'adapter a mon fichier semble pas réagir correctement avec l'userform et je comprend rien au code utilisé.
ce que j'ai besoin en feuille planning c'est le format, les jours férié et qu'il évolue d'année en année.
Voila ou je veux en venir.
Si tu peux m'aider a m'en sortir je te remercie
Merci a tous
 
Re : Ouvrir un Userform Hide/Show

Bonsoir Bebere,
Merci pour ta proposition, comme tu t'en doute j'avais continué a chercher.
Donc supprimé ma feuille Planning et remplacé par un calendrier plus simple.
comme tu peux le voir dans la pièce joint j'ai opté pour un calendrier sur une colonne.
Ta proposition conforte mon choix.
Je garde tes macros précieusement.
Si tu peux regarder mon fichier j'ai quand meme un truc qui me semble bizarre, c'est comment fait le calendrier
pour s'actualiser car il n'y a pas de code
Je n'ai toujours pas fini de tous écrire j'avance doucement (2 semaines sur le calendrier)😕
A bientôt merci
 

Pièces jointes

- 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

Discussions similaires

  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
418
Réponses
13
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…