Arrondir le resultat de ma macro

[57.scheider]

Bonjour,

Je souhaiterais arrondir le resultat de ma Variable "Toto" realisé par ma maco a 4 chiffre apres la virgule
Savez vous comment faire?

Merci

J'ai deja essayé:
Format(Toto, ".0000")
Round(toto,4)

Mais cela ne mache pas

 

[13GIBE59]

Re : Arrondir le resultat de ma macro

Bonjour scheider.

Avec l'enregistreur de macro :
Format (Toto, "0.0000").
A essayer.

 

[57.scheider]

Re : Arrondir le resultat de ma macro

il me marque erreur de syntaxe

Format (ftoto, "0.0000").

ftoto etant une variable
avec ou sans le point

 

[tototiti2008]

Re : Arrondir le resultat de ma macro

Bonjour à tous,

et ftoto est une variable de quel type ? quel est son contenu quand ça plante (débogage) ?

Edit :

essaye

Msgbox Format (ftoto, "0.0000")

 

[57.scheider]

Re : Arrondir le resultat de ma macro

Lorsque je tape le code je recois tout de suite ce message

Erreur de compilation:
Attendu :=

Par contre avec
Msgbox Format (ftoto, "0.0000")

Je recois bien la bonne valeur mais sur une fenetre de message mais pas sur la cellule

la variable ftoto est presente sur l'ensemble d'une colonne où je met la formule

=ftoto($A$1;LIGNE();COLONNE())

Et dans chaque cellule de la colonne ma macro s execute

 

[Pierrot93]

Re : Arrondir le resultat de ma macro

Bonjour à tous

peut être qu'un petit fichier avec ce que tu as et ce que tu veux nous ferait gagner du temps, parce que là, en l'état, pas facile de t'aider, enfin pour pour moi...

bon après midi
@+

 

[57.scheider]

Re : Arrondir le resultat de ma macro

Je ne peux malheuresement pas telepharger des fichiers depuis mon PC


Mais vous n'avez aucun message d'erreur lorsque vous rentrer ce message dans votre macro exel?

Format(ftoto, "0.0000")

Comment definisser vous la variable toto ?

 

[57.scheider]

Re : Arrondir le resultat de ma macro

Sinon voilà la parti du code

Public Function ftoto(strWorkSheet As String, intLigne As Integer, intColonne As Integer) As String

Dim objWbk As Object
Set objWbk = Application.Workbooks(Application.ThisCell.Parent.Parent.Name)
Dim strNameWorkSheet As String
strNameWorkSheet = Application.ThisCell.Parent.Name


If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, 3).Value <> "Essai" Then
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, intColonne - 1).Value = "" Then ' check if exists
ftoto = ""
Else
ColumnNatureMes = objWbk.Sheets(strNameWorkSheet).Rows(3).Find(What:="Nature", After:=Cells(3, 1), LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True, SearchFormat:=False).Column
ColumnLoiPondéra = objWbk.Sheets(strNameWorkSheet).Rows(3).Find(What:="Loi3", After:=Cells(3, 1), LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True, SearchFormat:=False).Column

If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnNatureMes).Value = "Ana" Or objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnNatureMesure).Value = "Int" Then

Dim ValueTempDen As Double
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnLoiPondéra).Value = "Lin" Then
ValueTempDen = objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMax).Value - objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value
Else
ValueTempDen = objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMax).Value * objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMax).Value - objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value * objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value
End If

Dim ValueTempNum As Double
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value < 0 Then
ValueTempNum = 126 + 127
Else
ValueTempNum = 126
End If

ftoto = ValueTempNum / ValueTempDen

Format(fMesuresPASCoeffa, "0.0000")


Else
fMesuresPASCoeffa = ""
End If
End If

 

[Pierrot93]

Re : Arrondir le resultat de ma macro

Re,

A priori, d'après ce que je comprends "ftoto" est une fonction personalisée, pour qu'elle fonctionne il faut quand elle est appelée, que tu lui donnes tous les arguments nécessaires, soit "strWorkSheet", "intLigne" et "intColonne"....

 

[57.scheider]

Re : Arrondir le resultat de ma macro

Voilà donc impossible de faire un arrondi ?

 

[57.scheider]

Re : Arrondir le resultat de ma macro

Pour utiliser cette fonction je pourrais utiliser

ValeurTemp = ftoto
Format(ValeurTemp, "0.0000")
ftoto = ValeurTemp

Mais meme la formule "Format(ValeurTemp, "0.0000")"

Mais ca ne passe pas ...
je dois affecter ValeurTemp avec quel type de variable?

Merci

 

[pierrejean]

Re : Arrondir le resultat de ma macro

bonjour a tous

dans la macro Function ftoto(.....

tester remplacement

de

ftoto = ValueTempNum / ValueTempDen

par

ftoto = Round(ValueTempNum / ValueTempDen)

 

[57.scheider]

Re : Arrondir le resultat de ma macro

Merci,

Bravo pierrejean, tu as trouvé la solution 🙂