Discussion :

[fmris]

Bonjour
J'ai un gros soucis avec une macro
Je renter une valeur dans la cellule ew11 par l'intermediaire d'1 userform (textbox) puis je la compare a une autre valeur cellule fv10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=si(ew11>fv10;"hors classe";"OK")

Cette fonction marche parfaitement si ds option regionaux le s^parateur est en ,
si le séparateur est en . elle ne fonctionne pas et marche que pour les entier
exemple : ew11 = 1 et fv10 = 1.5 ca marche
si ew = 1.1 et fv10=1.5 ca ne fonctionne pas
Il est à noter que si je rentre directement à l'ouverture du fichier la valeur ds ew11 sans passer par le userform ca fonctionne et apparement c le fait de passer par la textbox qui provoque l'erreur de calcul
Quelqu'un a une idee ????
au secours !!!!!!!!!!!!

[mortalino]

Salut,

soit tu fais un Replace du Point vers la virgule, pour tous ce qui vient de ton userform avant insertion des données dans la feuille, soit, pour permettre le calcul, tu changes temporairement le séparateur décimal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' *** A Placer dans un Module
Dim ActualDecimalSeparator As String
Public Sub ChangeDecimalSeparator(ByVal sDecimal As String)
    With Application
        .UseSystemSeparators = False
        ActualDecimalSeparator = .DecimalSeparator
        .DecimalSeparator = sDecimal
    End With
End Sub
Public Sub RestoreDecimalSeparator()
    With Application
        .UseSystemSeparators = True
        .DecimalSeparator = ActualDecimalSeparator
    End With
End Sub
 
' Quand t'as besoin :
    Call ChangeDecimalSeparator(".")
    Call RestoreDecimalSeparator

@++

[fmris]

merci