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="))

[Bigalo]

Bonsoir,

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

Code :

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

1
2
3
4
5
Sub Test()
Dim Sep As String, Montant
    Sep = Application.International(xlDecimalSeparator)
    Montant = Replace(Replace(InputBox("Montant="), ".", Sep), ",", Sep)
End Sub

Ceci dit, je préconise personnellement de NE JAMAIS EMPLOYER InputBox, qui est une infâme cochonnerie, et de faire appel systématiquement à un UserForm, où la gestion d’erreur est bien + facile à gérer.

[alsimbad]

on peut aussi utuliser ça, l'utilisateur comprend de lui même

Code :

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

1
2
3
4
 
Sub num()
If Not IsNumeric(InputBox("Montant")) Then num
End Sub

[Bigalo]

Bonjour,

on peut aussi utiliser ça, l'utilisateur comprend de lui même

Pas d’accord : si une application est correctement écrite, il ne doit jamais être nécessaire de supposer que l’utilisateur va comprendre de lui-même. Au contraire, il faut que quelle que soit la bêtise ou la maladresse de l’utilisateur potentiel, il ne puisse pas faire planter l’appli.

Un cas typique est celui de l’appli où tout se passe bien jusqu’au jour où l’utilisateur habituel tombe malade ou part en vacances, et est remplacé par quelqu’un qui fait des bétises (qui ne remplit pas un UserForm en totalité par exemple, sans qu’existe un contrôle de saisie suffisant).

Pour en revenir à InputBox, avec ton code, si l’utilsateur ne comprend pas et s’obstine, il ne peut même pas sortir de la boucle dans laquelle il est enfermé en utilisant le bouton Annuler.

Quand je dis que InputBox est une cochonnerie

[alsimbad]

Pas d’accord : si une application est correctement écrite, il ne doit jamais être nécessaire de supposer que l’utilisateur va comprendre de lui-même.

je suis d'accord avec toi sur le principe, mais bon, c'est un exemple rapide, je suis sur, meme si je l'ai pas en tete qu'on peu mettre un bouton annuler sur une inputbox, et que meme si l'on ne peut pas faire confiance a l'utilisateur pour qu'il fasse les actions comme l'on souhaiterais, on peut au moins lui accorder le crédit d'avoir une reflexion intelligente si au lieu de le renvoyer au départ du programme, on met un message d'erreur genre "entrez un chiffre valide", et meme word (qui est quand meme écrit par des pro non ?) quand il demande une virgule, tu peux toujour essayer de placer un point, il va pas faire l'effort de traduire.

[Bigalo]

on peut au moins lui accorder le crédit d'avoir une reflexion intelligente

Malheureusement, non

On peut tomber sur des utilisateurs particulièrement mal à l’aise devant un ordinateur (problème d’âge ou de forme d’esprit). Pire, on rencontre parfois des utilisateurs qui font montre d’une évidente mauvaise volonté.

Une appli doit tenir compte de ces éléments.

[Tof XXX]

Je suis d'accord sur le fait qu'une appli doit être conçue pour être utilisée par le plus ignare en informatique (et il en existe )

Bref, pour mon problème de point, l'input box n'étant pas parfaite au niveau du format, j'ai réglé le problème en optant pour une cellule à remplir du montant souhaité (elle apparaît par mise en forme conditionnelle), et j'ai défini la cellule dans ma macro (plus de problème de format comme ça )

Merci pour votre aide