d'erreur d’exaction 13 au niveau USERFORM

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Ilino
  • 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
Ilino

Ilino

XLDnaute Barbatruc
Bonjour Forum
J’ai créé deux UserForm identique mais chacun est lié a une feuille
Lors d’exécution j'ai un message « d'erreur d’exaction 13 incompatibilité de type »
A ce niveau la (2eme UserForm)

Code: 
Private Sub CommandButton6_Click()
pondération_avec.Show
End Sub
puis je avoir une explication ?
MERCI&GRAZIE
 
Trier par date Trier par votes
Re : d'erreur d’exaction 13 au niveau USERFORM

Re Bonjour Forum
Edit : Apres avoir F8 le pblm est de Private Sub UserForm_Initialize()
mon
Code: 
Private Sub UserForm_Initialize()
'---- 
pondération_avec.TextBox8.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AL10").Value
pondération_avec.TextBox9.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AL14").Value
pondération_avec.TextBox10.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AL44").Value
pondération_avec.TextBox11.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AL50").Value
pondération_avec.TextBox12.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AL56").Value
pondération_avec.TextBox13.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AL64").Value

Me.TextBox8.Value = Format(Me.TextBox8.Value / 100, "00#.## %")
Me.TextBox9.Value = Format(Me.TextBox9.Value / 100, "00#.## %")
Me.TextBox10.Value = Format(Me.TextBox10.Value / 100, "00#.## %")
Me.TextBox11.Value = Format(Me.TextBox11.Value / 100, "00#.## %")
Me.TextBox12.Value = Format(Me.TextBox12.Value / 100, "00#.## %")
Me.TextBox13.Value = Format(Me.TextBox13.Value / 100, "00#.## %")

'---- Pondération Systeme
pondération_avec.TextBox20.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AO10").Value '* 100
pondération_avec.TextBox21.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AO14").Value '* 100 & Format(TextBox15, "00#.##%")
pondération_avec.TextBox22.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AO44").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox23.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AO50").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox24.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AO56").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox25.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AO64").Value '* 100 & Format(variable, "# ##0.00")

Me.TextBox20.Value = Format(Me.TextBox20.Value, "00#.## %")
Me.TextBox21.Value = Format(Me.TextBox21.Value, "00#.## %")
Me.TextBox22.Value = Format(Me.TextBox22.Value, "00#.## %")
Me.TextBox23.Value = Format(Me.TextBox23.Value, "00#.## %")
Me.TextBox24.Value = Format(Me.TextBox24.Value, "00#.## %")
Me.TextBox25.Value = Format(Me.TextBox25.Value, "00#.## %")

'---- Taux Réel
pondération_avec.TextBox14.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AM10").Value '* 100
pondération_avec.TextBox15.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AM14").Value '* 100 & Format(TextBox15, "00#.##%")
pondération_avec.TextBox16.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AM44").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox17.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AM50").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox18.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AM56").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox19.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AM64").Value '* 100 & Format(variable, "# ##0.00")

pondération_avec.TextBox32.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AM8").Value '* 100

Me.TextBox14.Value = Format(Me.TextBox14.Value, "00#.## %")
Me.TextBox15.Value = Format(Me.TextBox15.Value, "00#.## %")
Me.TextBox16.Value = Format(Me.TextBox16.Value, "00#.## %")
Me.TextBox17.Value = Format(Me.TextBox17.Value, "00#.## %")
Me.TextBox18.Value = Format(Me.TextBox18.Value, "00#.## %")
Me.TextBox19.Value = Format(Me.TextBox19.Value, "00#.## %")

Me.TextBox32.Value = Format(Me.TextBox32.Value, "00#.## %")


'---- Taux Final
pondération_avec.TextBox26.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AN10").Value '* 100
pondération_avec.TextBox27.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AN14").Value '* 100 & Format(TextBox15, "00#.##%")
pondération_avec.TextBox28.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AN44").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox29.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AN50").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox30.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AN56").Value '* 100 & Format(variable, "# ##0.00")
pondération_avec.TextBox31.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AN64").Value '* 100 & Format(variable, "# ##0.00")

pondération_avec.TextBox33.Value = Worksheets("LDF-Préstations (Avec PJ)").Range("AN8").Value '* 100 & Format(variable, "# ##0.00")

Me.TextBox26.Value = Format(Me.TextBox26.Value, "00#.## %")
Me.TextBox27.Value = Format(Me.TextBox27.Value, "00#.## %")
Me.TextBox28.Value = Format(Me.TextBox28.Value, "00#.## %")
Me.TextBox29.Value = Format(Me.TextBox29.Value, "00#.## %")
Me.TextBox30.Value = Format(Me.TextBox30.Value, "00#.## %")
Me.TextBox31.Value = Format(Me.TextBox31.Value, "00#.## %")

Me.TextBox33.Value = Format(Me.TextBox33.Value, "00#.## %")

'---- +/- Value
pondération_avec.Label12 = Worksheets("LDF-Préstations (Avec PJ)").Range("AJ10")
pondération_avec.Label13 = Worksheets("LDF-Préstations (Avec PJ)").Range("AJ14")
pondération_avec.Label14 = Worksheets("LDF-Préstations (Avec PJ)").Range("AJ44")
pondération_avec.Label15 = Worksheets("LDF-Préstations (Avec PJ)").Range("AJ50")
pondération_avec.Label16 = Worksheets("LDF-Préstations (Avec PJ)").Range("AJ56")
pondération_avec.Label17 = Worksheets("LDF-Préstations (Avec PJ)").Range("AJ64")

End Sub
???
MERCI
EDIT : et dans mon code ci dessus , il ya au qu'une variable ???
 
Dernière édition:
Vote positif 0 Vote négatif
Re : d'erreur d’exaction 13 au niveau USERFORM

Bonjour,

Peut-être que TextBox? ou contient autre chose qu'un numérique alors que
Format(Me.TextBox?.Value / 100, "00#.## %") attend un nombre.

Question: Pourquoi de pas utiliser

Code: 
With  Worksheets("LDF-Préstations (Avec PJ)")

TextBox8.Value = .Range("AL10").Value
'....
'.....

End With

pondération_avec. n'est pas obligatoire puisque c'est le parent par défaut.


Plutôt que ces répétitions, qui font perdre du temps et à la lecture et à vba pour évaluer chaque objet.parent à chaque ligne

a+
 
Vote positif 0 Vote négatif
Re : d'erreur d’exaction 13 au niveau USERFORM

Bonsoir à tous


Il n'y a que moi que cela interpelle qu'Ilino ne joigne presque systématiquement jamais de fichier exemple
(sauf si on l'y invite) ?
(Ilino est pourtant xldien depuis 2012 ...🙄
 
Vote positif 0 Vote négatif
Re : d'erreur d’exaction 13 au niveau USERFORM

Forum Bonsoir, Hasco, Reguiero et JM Bonsoir
Un grazie pour Tous
@ JM: juste pour vous informer que je n'ai pas joindre un fichier parce que j'ai vu que le code que j'ai mets est suffisant et pour d'autre raison de confidentialités merci encore une fois pour la remarque😱
A+
 
Vote positif 0 Vote négatif
Re : d'erreur d’exaction 13 au niveau USERFORM

Re

Ilino:
Il suffit de joindre un fichier anonymisé!
Le code VBA n'étant pas lui confidentiel.

Pourquoi devrions perdre du temps à créer un classeur avec un userform, renommer les contrôles etc..
alors qu'il te suffit, toi de remplacer tes données originales par des données fictives...et de joindre ce fichier exemple ici ?

Ainsi nous aurions tous plus vite un fichier sur lequel faire nos tests !
(au lieu de chacun dans son coin créer un classeur, renommer une feuille en LDF-Préstations (Avec PJ), insérer un userform et y créer au moins 30 texbox ! ect ...🙄
 
Vote positif 0 Vote négatif
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

J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
364
TooFatBoy
TooFatBoy
ChTi160
  • Résolu(e)
Microsoft 365 Problème avec l'affichage de l'heure dans Label de Userform
Réponses
8
Affichages
261
ChTi160
ChTi160
E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
258
eric72
E
D
  • Question Question
Microsoft 365 macro showAllData et mot de passe
Réponses
13
Affichages
309
Daniel200666
D
E
  • Question Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
494
Elisa47
E
G
  • Résolu(e)
XL 2021 UserForm Problèmes de saisies
Réponses
4
Affichages
410
gui22
G
R
  • Question Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
407
rh.finances
R
jurassic pork
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
217
Dranreb
Dranreb
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
486
vgendron
vgendron
L
  • Question Question
XL 2013 Modification lignes excel en même temps au niveau d'une listbox
Réponses
5
Affichages
320
ChTi160
ChTi160
piga25
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
609
piga25
piga25
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
262
fredl
F
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Aide adaptation code vba pour complément
Réponses
7
Affichages
372
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Question Question
Word Création doc Word à partir Excel... Pb changement fonte ds paragrah
Réponses
7
Affichages
325
natof
N
treza88
  • Question Question
XL 2021 Problème ouverture fichier sur feuille protégée
Réponses
6
Affichages
744
treza88
treza88
A
  • Question Question
XL 2016 Erreur d'exécution 13 Incompatibilité de type
Réponses
14
Affichages
740
Aldonanou
A
mromain
Userform, DatePicker, TimePicker, et autres
Réponses
0
Affichages
2 K
mromain
mromain
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
M
  • Résolu(e)
XL 2013 Affichage onglets multiPage (Userform)
Réponses
10
Affichages
1 K
patricktoulon
patricktoulon
Simbaa
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
678
job75
job75
Retour