Problème avec mon probramme VBA

Résolu/Fermé
novice53 Messages postés 5 Date d'inscription mercredi 25 juin 2014 Statut Membre Dernière intervention 17 juillet 2014 - 17 juil. 2014 à 12:40
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 juil. 2014 à 15:20
Bonjour,

j'ai écrit un programme en VBA qui me permet de faire une approximation de mes nombres c-a-d
quand j'ai un nombre de 12.3000000 mon approximation me donne 12.3
mon problème est le suivant quand mon nombre est entier l'approximation de ce nombre est suivi d'une virgule
exemple: 90 approximation me donne 90,
quand j'ai un nombre entier sans decimal mon approximation me fait apparaitre la virgule derière ce nombre entier, chose que je veux pas

s'il vous plait quelqu'un pourrait me dire comment faire pour qu'elle n'apparait plus merci 

Function approximation(Point As String) As String

Dim approx As Double


If Val(Point) < 0 Then
            approx = -0.0005
            Else
            approx = 0.0005
End If

Point = Str(Val(Point) + approx)
Point = Mid(Point, 1, InStr(Point, ".") + 3)
        
        If InStr(Point, "-") = 1 Then
            If InStr(Point, "") = 2 Then Point = "-0" + Mid(Point, 2, Len(Point))
            Else
                If InStr(Point, ".") = 1 Then Point = "0" + Point
        End If
        
        If InStr(Point, " ") = 1 Then
            Point = Mid(Point, 1, Len(Point))
        End If
        
        If Right(Point, 4) = ".000" Then
            Point = Left(Point, Len(Point) - 3)
        End If
        
        If Right(Point, 2) = "00" Then
            Point = Left(Point, Len(Point) - 2)
        End If
                
        If Right(Point, 1) = "0" Then
            Point = Left(Point, Len(Point) - 1)
        End If
        
        If Val(Point) = 0 Then Point = "0"
       
       
approximation = Point

End Function

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 759
17 juil. 2014 à 12:59
Bonjour,

Quel est l'intérêt d'une telle fonction???

Sinon, pour ton souci ajoute ceci en fin de code : 
If Right(Point, 1) = "," Then Point = Left(Point, Len(Point) - 1)

0
novice53 Messages postés 5 Date d'inscription mercredi 25 juin 2014 Statut Membre Dernière intervention 17 juillet 2014
17 juil. 2014 à 14:04
slt pojaku
merci pour ton aide, j' avais même pas pensé qu'il falait réécrire une nouvelle condition.
je suis débutant dans le language informatique, et j'apprend en faisant certaine programation.

l'intérêt de ma fonction est de ne plus utiliser le format de celule nombre d'excel mais le mien uniquement.
je fait beaucoup de calcul sur excel c'est our cette raison.
je te remerci pour ton aide
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 759
17 juil. 2014 à 15:20
de rien.
A+
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine




7 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse