Discussion :

[snoopy69]

Bonjour ...

J'utilise en ce moment Office XP et je suis en train de réaliser une petite application VBA qui peut me calculer le PGDC de 2 nombres.

Mon code est un peu long ( avec les commentaires ) mais je vous le met pour que vous puissiez l'analyser :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub PGDC()
 
'Définition des variables
 
Dim a As Long ' Premier nombre
Dim b As Long ' Deuxième nombre
Dim pg As Long ' Plus grand nombre
Dim pp As Long ' Plus petit nombre
Dim res As Long ' Résultat
 
'Message lorsque l'on ouvre le programme
MsgBox ("Ce programme calcul le PGDC de 2 nombres")
 
'On met dans une variable ce que l'utilisateur va rentrer.
a = InputBox("Entrer le 1er nombre")
b = InputBox("Entrer le 2ème nombre")
 
'Si a est plus petit que b alors
If (a < b) Then
' le plus petit nombre est a et le plus grand est b ( stockage dans les variables )
pp = a And pg = b
'sinon
Else
    'Si b est plus petit que a alors
    If (b < a) Then
    ' le plus petit nombre est b et le plus grand est a ( stockage dans les variables )
    pp = b And pg = a
    'sinon
    Else
    'Par défaut le plus grand nombre est a et le plus petit est b
    pg = a And pp = b
    End If
'Fin de la boucle principale
End If
 
'Si a est égal à b alors
If a = b Then
    'On affiche que le pgdc est a car c'est de toute façon le même nombre
    MsgBox ("Le pgdc du nombre " & a & "et du nombre" & b & " est : " & a)
 
    'Tant que a est plus grand que b
    While (a > b)
        'res sera égal au résultat du plus grand nombre - le plus petit.
        res = pg - pp
        'Si le plus petit nombre est différent du plus grand alors
        If (pp <> pg) Then
            'On affiche le résultat
            MsgBox res
        'Sinon
        Else
         'Si le contenu de res est plus petit que le plus petit nombre alors
         If res < pp Then
            'Le plus grand nombre est égal au plus petit et le plus petit est égal au plus grand
            pg = pp And pp = res
        'Sinon
        Else
            'le plus petit nombre est égal au res et les plus grand nombre est égal au plus petit
            pp = res And pg = pp
 
        End If
        End If
    'Din de la boucle WHILE
    Wend
    End If
'Affichage du PGDC des 2 nombres
MsgBox "Le PGDC de " & a & " et de " & b & " est " & pp&
 
'Si le rsultat est = à 1 alors c'est que c'est des nombres premiers.
If res = 1 Then
    MsgBox " Ces 2 nombres sont premiers "
End If
 
End Sub

Le problème que j'ai c'est que peut importe les nombres que je rentres, j'ai toujours le résultat "0" qui s'affiche. Je sais que j'ai du faire une erreur mais je ne la trouve pas car je n'ai pas d'erreur de compilation.

Es ce que quelqu'un pourrait m'aider ???

Je vous remercie tous et à tout bientôt ...

[vmolines]

Debugge ton programme en pas a pas.

Place un point d'arret et fait defiler les instructions une à une, tu peux regarder le contenu de tes variables en laissant ton pointeur dessus.

[snoopy69]

J'ai essayé de voir en mettant des points d'arrêt mais je ne comprends pas où es ce qu'il y a une erreur ...

En fait maintenant j'ai une boucle infinie ... Donc je pense que le problème doit venir de la boucle WHILE ... mais je ne sais pas ou`...

Je suis débutante en VBA ... Merci de votre aide ...

A tout bientôt ...

[vmolines]

C'est pas un problème de VBA mais d'algorithmie... L'algo du PGCD doit etre connu et reconnu et trouvable partout.

Compares en un avec le tien et debugge.

[pmboutteau]

pourquoi tu test a et b dans ton While alors qu'après tun e leur affecte pas de nouvelles valeurs puisque tu bosses avec pp, pg et res?

[fdraven]

Ton problème vient du fait que tu utilises AND quand tu affectes a et b à pg et pp.

essayes ça :

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
'Si a est plus petit que b alors
If (a < b) Then
' le plus petit nombre est a et le plus grand est b ( stockage dans les variables )
pp = a
pg = b
'sinon
Else
    'Si b est plus petit que a alors
    If (b < a) Then
    ' le plus petit nombre est b et le plus grand est a ( stockage dans les variables )
    pp = b
    pg = a
    'sinon
    Else
    'Par défaut le plus grand nombre est a et le plus petit est b
    pg = a
    pp = b
    End If
'Fin de la boucle principale
End If

[snoopy69]

Merci de vos réponses ...

Voici maintenant la présentation de mon code :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Sub PGDC()
 
'Définition des variables
 
Dim a As Long ' Premier nombre
Dim b As Long ' Deuxième nombre
Dim pg As Long ' Plus grand nombre
Dim pp As Long ' Plus petit nombre
Dim res As Long ' Résultat
 
'Message lorsque l'on ouvre le programme
MsgBox ("Ce programme calcul le PGDC de 2 nombres")
 
'On met dans une variable ce que l'utilisateur va rentrer.
a = InputBox("Entrer le 1er nombre")
b = InputBox("Entrer le 2ème nombre")
 
'Si a est plus petit que b alors
If (a < b) Then
' le plus petit nombre est a et le plus grand est b ( stockage dans les variables )
pp = a
pg = b
'sinon
Else
    'Si b est plus petit que a alors
    If (b < a) Then
    ' le plus petit nombre est b et le plus grand est a ( stockage dans les variables )
    pp = b
    pg = a
    'sinon
    Else
    'Par défaut le plus grand nombre est a et le plus petit est b
    pg = a
    pp = b
    End If
'Fin de la boucle principale
End If
 
 
 
'Si a est égal à b alors
If a = b Then
    'On affiche que le pgdc est a car c'est de toute façon le même nombre
    MsgBox ("Le pgdc du nombre " & a & "et du nombre" & b & " est : " & a)
 
End If
 
    'Tant que a est plus grand que b
 
    While (a > b)
        'res sera égal au résultat du plus grand nombre - le plus petit.
        res = pg - pp
        'Si le plus petit nombre est différent du plus grand alors
        If (pp <> pg) Then
            'On affiche le résultat
 
        'Sinon
        Else
         'Si le contenu de res est plus petit que le plus petit nombre alors
         If res < pp Then
            'Le plus grand nombre est égal au plus petit et le plus petit est égal au plus grand
            pg = pp And pp = res
        'Sinon
        Else
            'le plus petit nombre est égal au res et les plus grand nombre est égal au plus petit
            pp = res And pg = pp
 
        End If
        End If
    'Din de la boucle WHILE
    Wend
    MsgBox res
     MsgBox res
'Affichage du PGDC des 2 nombres
MsgBox "Le PGDC de " & a & " et de " & b & " est " & pp&
 
'Si le rsultat est = à 1 alors c'est que c'est des nombres premiers.
If res = 1 Then
    MsgBox " Ces 2 nombres sont premiers "
End If
 
End Sub

Cela me donne toujours une boucle infini ... je ne sais pas pourquoi ... Je suis obligée de presser CTRL + PAUSE pour arrêter l'exécution du programme ...



Comment puis-je faire pour que cela marche ???

Merci de vos réponses ...

[pmboutteau]

ton while va boucler indéfiniment vu que tu regarde a>b. derrière tun e modifies pas leur valeur alors çà boucle!

[random]

voici ma méthode

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
 
Function pgdc(x As Long, y As Long) As Long
Dim grand  As Long
Dim petit As Long
Dim rep As Long
If x * y = 0 Then
MsgBox ("un des deux vaut 0")
Exit Function
End If
grand = Abs(x)
petit = Abs(y)
If petit > grand Then
grand = Abs(y)
petit = Abs(x)
End If
rep = grand Mod petit
Do Until rep = 0
grand = petit
petit = rep
rep = grand Mod petit
rep = grand Mod petit
Loop
pgdc = petit
End Function

si ca peut aider[/code]

[snoopy69]

Merci pour ta solution ... je m'excuse de te poser cette question mais j'ai utilisé ta fonction comme ceci :

Code :

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

1
2
3
4
5
 
Sub test()
Call pgdc2(50, 15)
MsgBox ("le pgdc est : " & rep)
End Sub

En ce qui concerne le nom de ta fonction je l'ai appelé pgdc2 pour pas qu'il y ait d'ambiguité dans mon code ...

Mais le problème c'est que cela ne me retourne rien ... oui je suis débutante et je m'y suis peut être mal prise ...

Peux-tu m'aider encore un ptit coup ???

merci pour tout ..

[random]

sub testeu()
MsgBox ("solution par la méthode d'Euclide " & pgdc2(50, 15) )
end sub

[snoopy69]

OKi merci ...

Mais es ce que c'est normal que j'ai la réponse 0 pour 50 et 15 ??? A moins que je suis vraiment nulle en math, je crois que le PGDC de 15 et de 50 c'est 5 ... non ???

Es ce que c'est normal alors ??? Merci de ta réponse et de ton aide ...

[random]

je ne sais pas ce que tu as fait chez moi ca donne 5
comme chez feu Euclide himself

[snoopy69]

Oki alors attend je vais refaire un nouveau module et je recommence tout ... je te tiens au courant dès que cela est fait ...

merci pour tout ..

Et sorry

[snoopy69]

Alors voici ce que j'ai dans mon nouveau module :

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
Option Compare Database
 
Function pgdc2(x As Long, y As Long) As Long
Dim grand  As Long
Dim petit As Long
Dim rep As Long
If x * y = 0 Then
MsgBox ("un des deux vaut 0")
Exit Function
End If
grand = Abs(x)
petit = Abs(y)
If petit > grand Then
grand = Abs(y)
petit = Abs(x)
End If
rep = grand Mod petit
Do Until rep = 0
grand = petit
petit = rep
rep = grand Mod petit
rep = grand Mod petit
Loop
pgdc = petit
End Function
 
Sub testeu()
MsgBox ("solution par la méthode d'Euclide : " & pgdc2(100, 20))
End Sub

Et cela me donne 0 ... Ouais c'est mon pc qui doit débloquer alors ??? ...

[random]

si vous renommez pgdc en pgdc2

il faut mettre à jour pdc2 dans la fonction et remplacer
pgdc = petit

par pgdc2 = petit

j'ai testé avec ma fonction

[snoopy69]

Eh ouais ... c'était tout simple et je n'y avais pas pensé ... Maintenant cela marche parfaitement ... merci beaucoup pour l'aide que vous m'avez offerte ...

Ce forum est vraiment bien ...

Merci à tout le monde ...