report calcul dans userform

Y

Yeahou

Guest

• 8 Octobre 2004

• #16

Re bonjour Olivier

un exemple de ce que cela peut donner avec l'événement change.
tu peux simuler une erreur standard avec

=90-10)*1


A+

 

Pièces jointes

• Classeur1.zip

  12 KB · Affichages: 41
• Classeur1.zip

  12 KB · Affichages: 32
• Classeur1.zip

  12 KB · Affichages: 31

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 8 Octobre 2004

• #17

re-bonjour,
J'ai une erreur de compil avec le code, j'ai du mal comprendre...
( nota, j'ai vérifié dans le dico VBA Mac qui gère Replace et Exit Sub )

Voila ce que j'ai recopié:

'permet la saisie d'une formule dans le champ SalaireSDTC
.Range("F63").FormulaR1C1 = SalaireSDTC
On Error GoTo Gere_Erreurs
.Range("F63").Value = .Range("F63").Value
On Error GoTo 0

Exit Sub
'Gère le remplacement d'une virgule par un point dans le champ SalaireSDTC
Gere_Erreurs:
usfSaisie.SalaireSDTC = Replace(usfSaisie.SalaireSDTC, ",", ".")
MsgBox "Erreur numéro " & err & " interceptée !" & Chr$(10) & "Type d'erreur : " & Error(err) & Chr$(10) & "Correction de formule pour les virgules", vbOKOnly + vbInformation, Title:="Erreur détectée"
End Sub


Cordialement

A+

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 8 Octobre 2004

• #18

Re

quelle ligne provoque l'erreur ?

A+

 

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 8 Octobre 2004

• #19

hello,
le msg:
"projet ou bibliotheque introuvable"
et la fonction "replace" est en vidéo-inverse...
je n'ai pas d'autres infos

cordialement

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 8 Octobre 2004

• #20

Re Bonjour Olivier

tu peux remplacer replace par

Dim Chaine As String, Compteur As Integer
Chaine = UserForm1.TextBox1
Do
Compteur = InStr(1, Chaine, ",", 1)
If Compteur > 0 Then Chaine = Left(Chaine, Compteur - 1) & "." & Right(Chaine, Len(Chaine) - Compteur)
Loop Until Compteur = 0
UserForm1.TextBox1 = Chaine

c'est un peu plus lent, mais le fonctionnement est identique et cela devrait être compatible, ces instructions existant déja sous excel97.

A+

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 8 Octobre 2004

• #21

j'ai oublié le fichier de test à jour

A+

 

Pièces jointes

• Classeur1.zip

  13.2 KB · Affichages: 17
• Classeur1.zip

  13.2 KB · Affichages: 17
• Classeur1.zip

  13.2 KB · Affichages: 13

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 8 Octobre 2004

• #22

re-bonjour,
<voix de desespéré>
Le fichier de test ne fonctionne pas sous Mac et parfaitement sous Windows 🙂

J'ai remplacé sans succès:

Exit Sub
'Gère le remplacement d'une virgule par un point dans le champ SalaireSDTC
Gere_Erreurs:
usfSaisie.SalaireSDTC = Replace(usfSaisie.SalaireSDTC, ",", ".")
MsgBox "Erreur numéro " & err & " interceptée !" & Chr$(10) & "Type d'erreur : " & Error(err) & Chr$(10) & "Correction de formule pour les virgules", vbOKOnly + vbInformation, Title:="Erreur détectée"
End Sub

par:

Exit Sub
'Gère le remplacement d'une virgule par un point dans le champ SalaireSDTC
Gere_Erreurs:
Dim Chaine As String, Compteur As Integer
Chaine = usfSaisie.usfSaisie.SalaireSDTC
Do
Compteur = InStr(1, Chaine, ",", 1)
If Compteur > 0 Then Chaine = Left(Chaine, Compteur - 1) & "." & Right(Chaine, Len(Chaine) - Compteur)
Loop Until Compteur = 0
usfSaisie.usfSaisie.SalaireSDTC = Chaine
End Sub

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 8 Octobre 2004

• #23

Re

Reessaye avec ce fichier test (j'ai mis les points sur les i dans le code) sous mac et précise l'erreur si il y en a encore une.

A+

 

Pièces jointes

• Classeur1.zip

  11.8 KB · Affichages: 15
• Classeur1.zip

  11.8 KB · Affichages: 11
• Classeur1.zip

  11.8 KB · Affichages: 14

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 8 Octobre 2004

• #24

re,

yeeepi: plus d'erreur dans le fichier test !

donc je maintiens ( avec des points sur les i ? ):

Exit Sub
'Gère le remplacement d'une virgule par un point dans le champ SalaireSDTC
Gere_Erreurs:
Dim Chaine As String, Compteur As Integer
Chaine = usfSaisie.usfSaisie.SalaireSDTC
Do
Compteur = InStr(1, Chaine, ",", 1)
If Compteur > 0 Then Chaine = Left(Chaine, Compteur - 1) & "." & Right(Chaine, Len(Chaine) - Compteur)
Loop Until Compteur = 0
usfSaisie.usfSaisie.SalaireSDTC = Chaine
End Sub

cordialement

A+

 

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 8 Octobre 2004

• #25

bonsoir,
Désolé... mais je ne m'en sort pas même avec l'exemple.
Je pense avoir calqué ta méthode en renommant mon userform et mon textbox
mais dès que je tente de saisie qqchose dans le textbox, j'ai une alerte ( bibliotheque introuvable... )

Dans le fichier test: tu utilises un code dans l'instruction du bouton de validation "CommandButton1_Click()"
et un autre pour "TextBox1_Change(); c'est peut-être ce dernier point qui ne s'adapte pas à mon Userform ( qui contient de multiples champs ) ?

Désolé d'être aussi nul

cordialement

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 8 Octobre 2004

• #26

Re Olivier

pour que cela fonctionne dans ton fichier:

dans ta dernière procédure, tu as écrit plusieurs fois
usfSaisie.usfSaisie.SalaireSDTC
il faut écrire en fait
usfSaisie.SalaireSDTC
quand tu mets deux fois usfsaisie (usfSaisie.usfSaisie), cela provoque une erreur car l'objet usfsaisie ne posséde pas d'objet lié usfsaisie mais un objet SalaireSDTC

la procédure CommandButton1_Click du fichier test équivaut à btnValidation_Click dans ton fichier

la procédure TextBox1_Change du fichier test équivaut à SalaireSDTC_Change dans ton fichier

ce sont des procédures événementielles qui doivent être stockées dans le code du userform et qui doivent porter le nom de l'objet.
dans le code du userform tu as en haut deux combobox qui te permettent de voir et créer les procédures événementielles possibles

pour ton problème de compatibilité il vient du fait que sous mac, il faut préciser un peu plus, cela me rappelle d'anciennes versions.
autrement dit
Chaine = usfSaisie.SalaireSDTC
ne passe pas alors que
Chaine = usfSaisie.SalaireSDTC.value
passe sans problème d'oû les points sur les I
maintenant qu'on a trouvé le problème, tu peux re essayer le replace sous la forme
usfSaisie.SalaireSDTC.Value = Replace(usfSaisie.SalaireSDTC.Value, ",", ".")
peut être qu'il passera.

si tu ne t'en sort pas, mets le code intégral du bouton.

A+

 

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 9 Octobre 2004

• #27

bonjour Yeahou, le forum,

merci pour tes explications
je pense ne plus avoir de doublons et j'ai re-essayé sans succès usfSaisie.SalaireSDTC.Value = Replace(usfSaisie.SalaireSDTC.Value, ",", ".") ( :blocage sur "replace"...

Je te soumet le code utilisé en pièce jointe ( sur lequel j'essaie d'intervenir ponctuellement et qui doit être une " usine à gaz à tes yeux... )

Cordialement

Olivierd

 

Pièces jointes

• code-rtf.zip

  3.2 KB · Affichages: 12

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 9 Octobre 2004

• #28

Bonjour olivier

ci joint le code modifié selon le principe du fichier test et qui devrait fonctionner sous mac.
1-les virgules sont remplacées par des points en live lors de la saisie
2-si il y a au final une erreur de formule (formule non valide), on prévient l'utilisateur et lui redonne la main pour corriger.

Bon Week end

 

Pièces jointes

• Code_corrige.zip

  3.4 KB · Affichages: 19

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 9 Octobre 2004

• #29

bonjour,
(je hais les mac)
malheureusement, en ayant copié, collé le code, je bloque (semble-t-il) sur Chr du MsgBox puis sur Private Sub SalaireSDTC_Change()
avec ou sans saisie sur le texbox...
Cordialement

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 11 Octobre 2004

• #30

Bonjour

la, j'ai plus d'idées.
si tu peux, envoie le fichier complet sur ma Bal pour le tester.

A+

 

Vote positif 0 Vote négatif