Erreur de compilation Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
P
PierreGouez
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 21 décembre 2019
Version d'Excel : 2007

Message par PierreGouez » 1 janvier 2020, 19:49

Bonjour,
J'ai écrit un petit programme excel VBA pour résoudre de équations du du second degré mais lorsque j'essaie de le lancer le message suivant s'affiche:
sub.PNG
sub.PNG (4.49 Kio) Vu 118 fois
la première ligne du code est surlignée en jaune et un mot est mis en surbrillance.

quelqu'un a il une solution?

D'avance merci.
calcul equations.xlsm
(17.89 Kio) Téléchargé 10 fois
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'747
Appréciations reçues : 226
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 1 janvier 2020, 22:18

Salut PierreGouez,

pas matheux pour un sou...
Vérifie la cohérence des résultats!
x1 = -(Range("D1") - Sqr(delta)) / 2 * Range("A1")
x2 = -(Range("D1") + Sqr(delta)) / 2 * Range("A1")
:noel:
A+
Avatar du membre
Chbouli04
Membre habitué
Membre habitué
Messages : 102
Appréciations reçues : 8
Inscrit le : 24 juillet 2018
Version d'Excel : 2007 FR

Message par Chbouli04 » 2 janvier 2020, 01:38

Salut à toi l'ami,

Ton problème fondamental réside principalement dans la syntaxe, donc après quelques faibles corrections ton programme peut fonctionner. Cependant il est loin d'être correct, tout d'abord en VBA les cellules des feuilles de tes classeurs ne sont pas des endroits où stocker une variable, donc pour manipuler des nombres tu les places dans une variable avec un nom assez explicite et tu attribues la valeur de la cellule à ta variable. Celà permet à ton code d'être plus explicite et plus simple à relire. Ensuite il est fortement conseillé d'éviter les instructions / variables inutiles, un code épuré au maximum diminuera grandement ton risque d'erreur et te permettra de réaliser des choses de plus en plus complexe :)

Je t'ai donc joint un fichier entièrement fonctionnelle je te laisse regarder par toi même et comparer avec le code que tu avais écris ;)
Ah et j'ai aussi rajouté 2 formules directement à coté de tes cases de résultat donnant la même chose mais sans macro :lole: À toi donc de voir si la macro est vraiment nécessaire ou non ;)


Cordialement,

:btres:
PierreGouez.xlsm
(18.92 Kio) Téléchargé 4 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'379
Appréciations reçues : 670
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 2 janvier 2020, 02:30

Bonjour,
Une autre proposition.
Cdlt.
Public Sub Programm()
Dim Delta As Double
Dim a As Long, b As Long, c As Long
Dim x0 As Double, x1 As Double, x2 As Double

    With ActiveSheet
        a = .Cells(1).Value
        b = .Cells(4).Value
        c = .Cells(7).Value
        Delta = b ^ 2 - 4 * a * c
        If Delta < 0 Then
            MsgBox "Delta est négatif. Opération impossible à réaliser"
        ElseIf Delta = 0 Then
            x0 = -b / (2 * a)
        Else
            x1 = (-b - VBA.Sqr(Delta)) / (2 * a)
            x2 = (-b + VBA.Sqr(Delta)) / (2 * a)
        End If
        .Cells(8, 13).Value = x0
        .Cells(9, 13).Value = x1
        .Cells(10, 13).Value = x2
    End With

End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
P
PierreGouez
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 21 décembre 2019
Version d'Excel : 2007

Message par PierreGouez » 2 janvier 2020, 19:08

Super merci à tous :good: :sp: !!

A+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Erreur de compilation
    par olivier231522 » 23 novembre 2018, 17:37 » dans Calc
    13 Réponses
    1051 Vues
    Dernier message par olivier231522
    23 novembre 2018, 22:52
  • Erreur de compîlation
    par cfn3cfn » 23 août 2016, 06:50 » dans Excel - VBA
    4 Réponses
    180 Vues
    Dernier message par cfn3cfn
    24 août 2016, 03:52
  • Erreur de compilation
    par grorkal » 27 août 2019, 16:43 » dans Excel - VBA
    2 Réponses
    42 Vues
    Dernier message par grorkal
    28 août 2019, 07:03
  • Erreur de compîlation
    par cfn3cfn » 28 août 2016, 14:50 » dans Excel - VBA
    8 Réponses
    142 Vues
    Dernier message par cfn3cfn
    29 août 2016, 07:16
  • erreur de compilation
    par r4944 » 30 mars 2016, 21:40 » dans Excel - VBA
    8 Réponses
    250 Vues
    Dernier message par r4944
    6 avril 2016, 22:31
  • Erreur de compilation
    par mvsr49 » 31 août 2016, 19:15 » dans Excel - VBA
    15 Réponses
    405 Vues
    Dernier message par mvsr49
    1 septembre 2016, 22:56