Discussion :

[Tof XXX]

Bonjour à vous tous

Voici une macro de mon cru qui bug :

Lorsque je rentre le 1er versement sans le point du pavé numérique (exemple:14), la macro se déroule correctement, mais quand je tape 14.5, j'ai le message suivant (la ligne de code en gras est la source du problème) :


Message erreur execution 13

type incompatible

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
R = MsgBox("Le 1er versement est-il fixe ?", vbYesNo + vbInformation, "Calcul automatique")
 
If R = vbYes Then
 
Message = "Veuillez entrer le montant du 1er versement."
Titre = "Calcul automatique"
Montant1 = InputBox(Message, Titre)
 
 
 
'delai en moins de 12 mois
numéro_erreur = "Référence de l'erreur : [calcul_auto_2]"
 
If NbEch > 1 Then
Range("F18:F29").ClearContents
Range("H18:H29").ClearContents
 

Range("F18").Value = Montant1
 
 
 Ech = (MontantDelai - Montant1) \ (NbEch - 1)
 N = NbEch - 2
 DernierVers = (MontantDelai - Montant1) - (Ech * N)
 DateEch = Datedebut
 
    
    
    For h = 1 To N + 1
    K = h + 17
    Cells(K, 8).Value = DateEch
    DateEch = DateAdd("m", 1, DateEch)
    Next h
    
    K = K + 1
    Cells(K, 8).Value = DateEch
    
    
    
    For i = 1 To N
    J = i + 18
    Cells(J, 6).Value = Ech
    Next i
     
    J = J + 1
    Cells(J, 6).Value = DernierVers

Merci beaucoup !

[alsimbad]

ce qui est inscrit dans une inputbox est considéré comme du texte, il te faut le convertir. regarde du coté de la fonction val

[Tof XXX]

Je ne suis pas un expert en macros

Comment utiliser cette fonction val ?

Merci

[Qwazerty]

SAlut
Au lieu de mettre un point met une virgule et hop ca marche
Par contre tu risque d'avoir le meme probleme su d'autre micro mùais en sens inverse, cherche un peu sur le forum y'a deja eu une question a se sujet, "separateur decimal" je crois, un truc dans le genre.

Pour l'utilisation de val tu peux faire
Val(l'expression a convertir)

A++
Qwaz

[Tof XXX]

En effet, ce fichier sera installé sur un grand nombre de micros et je ne peux pas être sûr de la configuration de chacun

[LeForestier]

Et pour éviter une erreur par la saisie de l'utilisateur qui pourrait taper un point...

Code :

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

1
2
3
   Dim Montant1
    Montant1 = InputBox("Montant=")
    Montant1 = Replace(Montant1, ".", ",")

A+

[Qwazerty]

Et pour éviter une erreur par la saisie de l'utilisateur qui pourrait taper un point...

Code :

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

1
2
3
   Dim Montant1
    Montant1 = InputBox("Montant=")
    Montant1 = Replace(Montant1, ".", ",")

A+

Re
Le soucis en faisant ca c'est qu'on obtient le probleme inverse si l'utilisateur a defini le point comme separateur decimal
il me semblais que tu avais participé a la resolution d'un probleme similaire LeForestier, non ?
A++
Qwaz

[patbou]

bonsoir

tu peux aussi convertir la valeur inputbox en numeric

Code :

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

1
2
3
 
Dim Montant1
    Montant1 = Val(InputBox("Montant="))