run time erreur 13

[sarmerou08]

à tous,

!!!!! urgent!!!!!!!!!!!
je viens de créeer ce petit programme, mais qd je fais fais run, j'ai un message d'erreur "run-time erreur 13" de quoi ,peut il etre!!!! et comment y remedier.
merci d'avance
Amicalement,
Sarmerou08


Sub GTC_Cr1()

' Calcul des limites des paramètres XL500 GTC Cr1
' Macro enregistrée le 18 / 05 /2009 par abdillah
' Définition des données Site Cr1

Dim Qt As Double ' Débit total de souflage CTA
Dim NC As Double ' Nombre total de cellules filtrantes

'Definition des données constructeurs


Dim DPn As Double ' Perte de Charge nominale
Dim DPf As Double ' Perte de charge finale fixée (target)
Dim A As Double ' Coef de la parabole
Dim B As Double ' Coef de la parabole
Dim C As Double ' Coef de la parabole

' Définition des variables

Dim ratio As Double ' Rapport de la perte de charge finale sur nominale
Dim DPm As Double ' Perte de charge calculé par l'équation (parabole)
Dim DPlim As Double ' Perte de charge limite calculée
Dim Qu As Double ' Débit par Cellule

Sheets("GTC_Cr1").Select
Qt = Cells(3, 8)
NC = Cells(3, 9)
A = Cells(8, 8)
B = Cells(8, 9)
C = Cells(8, 10)
DPn = Cells(8, 11)
DPf = Cells(8, 12)

'Calcul et return de la valeur du ratio dans la cellule
ratio = DPf / DPn
Cells(10, 8) = ratio

'Calcul du débit unitaire (par cellule)
Qu = Qt / NC
Cells(10, 9) = Qu

' Calcul de la perte de charge intermédiaire
DPm = A * Qu ^ 2 + B * Qu + C
Cells(10, 10) = DPm

' Calcul de la perte de charge limite
DPlim = ratio * DPm
Cells(10, 11) = DPlim

End Sub

 

[JNP]

Re : run time erreur 13

Bonjour Sarmerou08 🙂,
A tester comme cela, pas d'erreur dans ta macro. Par contre peut-être dans tes valeurs (NC et DPn ne doivent pas être nuls). Difficile à voir sans le fichier (et ses valeurs). Est-ce que ce ne serait pas un problème avec les déclarations en Double ? Essaie de supprimer tous les As Double pour tester.
Bonne journée 😎

 

[sarmerou08]

Re : run time erreur 13

merci JNP,
j'ai joint le fichier source excel.
merci de ta reponse.

à tous,

!!!!! urgent!!!!!!!!!!!
je viens de créeer ce petit programme, mais qd je fais fais run, j'ai un message d'erreur "run-time erreur 13" de quoi ,peut il etre!!!! et comment y remedier.
merci d'avance
Amicalement,
Sarmerou08


Sub GTC_Cr1()

' Calcul des limites des paramètres XL500 GTC Cr1
' Macro enregistrée le 18 / 05 /2009 par abdillah
' Définition des données Site Cr1

Dim Qt As Double ' Débit total de souflage CTA
Dim NC As Double ' Nombre total de cellules filtrantes

'Definition des données constructeurs


Dim DPn As Double ' Perte de Charge nominale
Dim DPf As Double ' Perte de charge finale fixée (target)
Dim A As Double ' Coef de la parabole
Dim B As Double ' Coef de la parabole
Dim C As Double ' Coef de la parabole

' Définition des variables

Dim ratio As Double ' Rapport de la perte de charge finale sur nominale
Dim DPm As Double ' Perte de charge calculé par l'équation (parabole)
Dim DPlim As Double ' Perte de charge limite calculée
Dim Qu As Double ' Débit par Cellule

Sheets("GTC_Cr1").Select
Qt = Cells(3, 8)
NC = Cells(3, 9)
A = Cells(8, 8)
B = Cells(8, 9)
C = Cells(8, 10)
DPn = Cells(8, 11)
DPf = Cells(8, 12)

'Calcul et return de la valeur du ratio dans la cellule
ratio = DPf / DPn
Cells(10, 8) = ratio

'Calcul du débit unitaire (par cellule)
Qu = Qt / NC
Cells(10, 9) = Qu

' Calcul de la perte de charge intermédiaire
DPm = A * Qu ^ 2 + B * Qu + C
Cells(10, 10) = DPm

' Calcul de la perte de charge limite
DPlim = ratio * DPm
Cells(10, 11) = DPlim

End Sub

 

[sarmerou08]

Re : run time erreur 13

!!!!!!!!!!! urgent JPN!!!!!!!!

tu sais je viens de remarquer le bug, mais cette fois ci j'ai un autre problème d'affectation de la valeur. par exemple A = Cells (8,8) la Cells (8,8) = à kla valeur du fichier source par contre A affiche toujour 0.
merci de m'apporter plus de precision

Cdlt,
sarmerou08

 

[JNP]

Re : run time erreur 13

Re 🙂,
En changeant

Dim Qt As Long

ça fonctionne. J'ai fait du pas à pas et A vaut bien 0,0000013... Par contre, je ne sais pas si les résultats obtenus sont corrects, vu que je n'y connait rien...
A + 😎

 

[sarmerou08]

Re : run time erreur 13

merci bcp,
ça marche, tu imagine a cause juste de long j'ai passé deux heurs
au fait comment je peux créer un bouton de commende qui affiche entré la valeur du débit par exemple.
merci encore JNP
Cdlt,
sarmerou08

 

[JNP]

Re : run time erreur 13

Re 🙂,

Dim ValeurDébit As Long
ValeurDébit = Replace(InputBox("Entrez la valeur du débit :", _
    "Demande de valeur"), ".", ",")

par exemple. J'ai mis un Replace pour que si la personne mets un point au lieu d'une virgule, le remplacement soit fait en automatique.
Bonne soirée 😎

 

[sarmerou08]

Re : run time erreur 13

re JNP,
merci beaucoup.

Cdlt,
abdillah

 

[sarmerou08]

Re : run time erreur 13

re,
dis moi si par exemple j'ai envie de comparer DPlim < DPfinale alors returne bon fonction
sinon changer les filtres.
par exemple. comment tu programmes ça !!!
car j'ai commencé par if DPn<DPf then mais je ne vois comment finir le programme.
merci de ton aide.

Cdlt,
abdillah

 

[sarmerou08]

Re : run time erreur 13

re,
comment on associe la commende avec la cellule correspondant au débit.
et le programme.
merci de ta rapidité.

Cdlt,
abdillah

 

[JNP]

Re : run time erreur 13

Re 🙂,
Quelque chose comme ça

If DPn < DPf Then
MsgBox "Bon fonctionnement"
Else
MsgBox "Changer les filtres"
End If

Bonne soirée 😎

 

[sarmerou08]

à tous,

j'ai pratiquement fini le programme grace à la precieuse aide de JNP,
cependant je souhaiterai rendre certaines action de la ffichier source inactif avec un un message d'erreur!!!!
comment on fait!!!
planete excel VBA..... urgence.

Cdlt,
sarmerou08

 

[JNP]

Re : run time erreur 13

Re 🙂,

Range("C8") = ValeurDébit

ou

Cells(8, 3) = ValeurDébit

comme tu préfères.
A + 😎

 

[JNP]

Re : run time erreur 13

Re 🙂,

cependant je souhaiterai rendre certaines action de la ffichier source inactif avec un un message d'erreur!!!!

verrouille ta feuille avec un mot de passe, et dans la macro, au début

Sheets("GTC_Cr1").Unprotect "Mot de passe"

et à la fin

Sheets("GTC_Cr1").Protect "Mot de passe"

Bon courage 😎

 

[sarmerou08]

Re : run time erreur 13

oki JNP,
té le meilleur,
cé cool.
merci encore!!!
bonne soirée
Cdlt,
sarmerou08