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

Impossible d'ouvrir UserForm

Créer une discussion

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
T

toune21

XLDnaute Impliqué
Bonsoir à tous,
Je reviens vers vous, j'ai déjà appris beaucoup de choses avec vous, et je vous remercie.

J'ai fini par créer mon UserForm Multipage.

1er Je n'arrive pas à ouvrir l'user.

2ème Est ce que j'ai bien à la bonne place les combox,

3ème pour le sexe j'ai voulu mettre optionButton, mais je sais pas les gérer.

Pourriez vous tester le fichier joint et me faire quelques commentaires, pas en langage trop difficile à comprendre.

Je vous remercie d'avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Impossible d'ouvrir UserForm

Bonsoir Marie-Madeleine, le forum,
Sur le fichier ci-joint, j’ai répondu seulement à la première question (ouverture de l’UserForm1).
Avis personnel : tu devrais alimenter les ComboBox à l’aide de boucles. J’essaie de te préparer une solution dans la soirée.
Cordialement,
Bernard
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

Bonsoir,
je crois que tu as une erreur qui s'est glissée ici, je regarde le reste :
Je n'ai pas trouvé de combo : CboCivilité
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

Bonsoir Bernard,
Merci de t'occuper de mon problème, alimenter les Combox à l'aide de boucles je ne sais pas faire.
Je viens de regarder ton fichier, Ligne 1 il reste Code, Nom et Sexe.
Bonsoir et à plus et merci
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

Ton autre erreur est en bas de la Sub d'initialisation :
Me.TxtTxAnc1 = Format(Sheets("Employés").Cells(Lgn, 34).Value, "0.00%")
Cliquez pour agrandir...
Ta valeur Lgn est bien déclarée, mais tu ne lui donnes pas de valeur dans la procédure. Elle est donc chargée à 0. Donc on ne trouve aucune donnée sur la ligne 0. Ce qui te provoque une erreur. Pense à initialiser tes valeurs en début de procédure si tu en as besoin.

Met
Lgn = 1
Cliquez pour agrandir...
, tu verras ton application se lancer.

Allez continue.
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

Sinon, une petite erreur quand tu cliques sur "Modifier"

Tu récupère une valeur dans un textbox en format text. Donc une variable en format String. Il faut que tu la convertisses si tu veux la multiplier pour obtenir un nombre, donc remplace :
Sheets("Employés").Cells(Lgn, 34).Value = Format(Me.TxtTxAnc1.Text * 100, "0.00%")
Cliquez pour agrandir...
Par :
Sheets("Employés").Cells(Lgn, 34).Value = Format(Val(Me.TxtTxAnc1.Text) * 100, "0.00%")
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

Re,
Ok je viens de changer la formule (en fait c'est divisé par 100) ça marche, mais pourquoi quand je retourne dans sa fiche je ne vois plus le montant du pourcentage.
Je continue
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

Bonsoir Marie-Madeleine, le forum,
Si tu me donnes ton accord, je souhaite apporter quelques modifications sur ton UserForm1 (une ListBox pour le code, TextBox pour le nom).
Cordialement,
Bernard
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

Bonjour Toune21,
normalement dans ta cellule, tu dois avoir ton pourcentage. Admettons que tu inscrives 5% d'ancienneté, tu vas voir dans ton classeur 5% en colonne AH. Mais pas le résultat du calcul puisque tu ne fais aucun calcul sur cette cellule.

Je te donne le code pour les options button. Ainsi que le classeur modifié.

A mettre sur l'évènement du bouton Modifier :
'Gestion option Button : Masculin Féminin
If ObBMasculin = True Then
Sheets("Employés").Cells(Lgn, 5).Value = "M"
Else
Sheets("Employés").Cells(Lgn, 5).Value = "F"
End If
Cliquez pour agrandir...
Explication : Si tu as sélectionné l'option Button Masculin alors tu mets un M dans ta feuille, sinon c'est que c'est une femme.

Maintenant, pour le chargement d'un employé :
'Gestion Sexe Masculin et Féminin
If Sheets("Employés").Cells(Lgn, 5).Value = "M" Then
Me.ObBMasculin.Value = True
Else
Me.OpBFeminin.Value = True
End If
Cliquez pour agrandir...

Explication : on part à l'envers, on lit soit M ou F dans la feuille et on active l'option button

Bonne journée
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

did85 à dit:
Explication : Si tu as sélectionné l'option Button Masculin alors tu mets un M dans ta feuille, sinon c'est que c'est une femme.
Explication : on part à l'envers, on lit soit M ou F dans la feuille et on active l'option button
Cliquez pour agrandir...

Bonjour did,
Voilà je viens d'apprendre quelque chose.
Merci je vais charger le fichier et continuer.
Cordialement
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir UserForm

C'est dommage, tu devrais continuer avec ton code. Même s'il n'est pas écrit simplement, au moins tu verrais tes fautes et ça ne l'empêcherait pas de fonctionner. Il faut bien se tromper pour apprendre ou comprendre.
Bonne journée
Did85
 
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

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Copier une image d'une feuille de calcul vers un UserForm
Réponses
4
Affichages
196
NONO14
N
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
217
Titof06
M
  • Résolu(e)
Microsoft 365 [RESOLU]UserForm qui revient à la fermeture d'un classeur, du fait le classeur se bloque et il faut fermer manuellement l'UserForm
2
Réponses
17
Affichages
770
Marboi
M
P
  • Question Question
XL 2019 Modification d'une ligne d'une autre feuille lors d'un echange d'effet dans un userform
Réponses
11
Affichages
1 K
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
535
NONO14
N
M
  • Question Question
Microsoft 365 Code listbox
Réponses
4
Affichages
669
Marvin57
M
L
  • Question Question
Microsoft 365 KPI - Performance Commerciale
Réponses
2
Affichages
886
laurabachau
L
P
  • Question Question
Microsoft 365 garder en mémoire plusieurs listview d'un userform
Réponses
4
Affichages
724
patricktoulon
J
  • Question Question
XL 2016 Erreur à l'ouverture d'un UserForm (impossible définir propriété ColumnWidths)
Réponses
2
Affichages
785
jeff2318
J
L
  • Question Question
XL 2016 [RESOLU] VBA Chronomètre avec temps intermédiaires déclenchés avec des clics sur un seul bouton
Réponses
2
Affichages
615
LOLO13130
L
B
  • Question Question
Microsoft 365 [RESOLU] Supprimer Ligne rapidement et avec plusieurs conditions
Réponses
5
Affichages
541
BENAM69
B
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
787
job75
W
  • Question Question
XL 2010 Userform CommandButton Grisé
2
Réponses
15
Affichages
2 K
whiteshark
W
L
  • Question Question
Microsoft 365 Définir la touche échap pour fermer Userform avec onglets Multipage
Réponses
5
Affichages
626
vgendron
  • Question Question
XL 2019 Modifier données déjà saisies via userform
4 5 6
Réponses
88
Affichages
6 K
AIXELS
M
  • Résolu(e)
XL 2013 Gestion clic bouton UserForm
2
Réponses
23
Affichages
2 K
M.Ben
M
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
762
darkjedi
D
Y
  • Résolu(e)
XL 2019 Userform à adapter par rapport les colonnes d'un tableau
2
Réponses
21
Affichages
2 K
YAP32
Y
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
L
  • Question Question
XL 2016 Forcer l'arrêt d'un Timer dès la sortie d'un Formulaire
Réponses
6
Affichages
838
Lorenzini
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…