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