Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long
Dim str As String
p = 2
Dim e As Integer
If n = 1 Then
DecompositionFacteursPremiers = "Ø"
Else
While n <> 1
If Int(n / p) = n / p Then
n = n / p
e = e + 1
Else
If e <> 0 Then str = str & p & "^" & e & "*"
p = p + 1
e = 0
End If
Wend
DecompositionFacteursPremiers = str & p & "^" & e
End If
End Function
Sub Test()
MsgBox DecompositionFacteursPremiers(138)
End Sub
A+
Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres
premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138...
;-D
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Jean-Paul
merci, génial ! :-D
Jean-Paul
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
merci, génial ! :-D
Jean-Paul
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long
Dim str As String
p = 2
Dim e As Integer
If n = 1 Then
DecompositionFacteursPremiers = "Ø"
Else
While n <> 1
If Int(n / p) = n / p Then
n = n / p
e = e + 1
Else
If e <> 0 Then str = str & p & "^" & e & "*"
p = p + 1
e = 0
End If
Wend
DecompositionFacteursPremiers = str & p & "^" & e
End If
End Function
Sub Test()
MsgBox DecompositionFacteursPremiers(138)
End Sub
A+
Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres
premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138...
;-D
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Pierre Fauconnier
Salut Nicolas,
J'ai des doutes sur ta formule Avec 150, cela me donne 2^1*3^1*5^2 C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le pourquoi du comment ???
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Salut Nicolas,
J'ai des doutes sur ta formule
Avec 150, cela me donne 2^1*3^1*5^2
C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en
nombres premiers est la base du cryptage actuel de toute une série de
données, notamment les clé numériques utilisées en informatique et en
cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le
pourquoi du comment ???
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." <nicolas.bruot@adresse.bidon.invalid> a écrit dans le message
de news: OgXHIheRFHA.1392@TK2MSFTNGP10.phx.gbl...
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long
Dim str As String
p = 2
Dim e As Integer
If n = 1 Then
DecompositionFacteursPremiers = "Ø"
Else
While n <> 1
If Int(n / p) = n / p Then
n = n / p
e = e + 1
Else
If e <> 0 Then str = str & p & "^" & e & "*"
p = p + 1
e = 0
End If
Wend
DecompositionFacteursPremiers = str & p & "^" & e
End If
End Function
Sub Test()
MsgBox DecompositionFacteursPremiers(138)
End Sub
A+
Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres
premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que
138... ;-D
J'ai des doutes sur ta formule Avec 150, cela me donne 2^1*3^1*5^2 C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le pourquoi du comment ???
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Nicolas B.
Salut Pierre,
C'est-à-dire 2*3*25 et 25 n'est pas premier.
25 non, mais la décomposition en facteurs premiers de 150 est 2*3*5*5 (avec 5 premier), que l'on écrit en général avec des puissances : 2*3*5^2.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Le problème c'est que les nombres premiers utilisés en cryptographie (par exemple l'algorithme RSA) sont très grands (évidemment... ils ont pensé à tout ;-), et tout programme permettant de décomposer le produit de deux nombres premiers grands mettrait peut-être quelques années à trouver la décomposition. Et là, comme par hasard, toute carte bancaire dont le numéro aurait été crypté et le message codé intercepté aura atteint sa date d'expiration.
A+ Nicolas B.
Salut Nicolas,
J'ai des doutes sur ta formule Avec 150, cela me donne 2^1*3^1*5^2 C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le pourquoi du comment ???
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Salut Pierre,
C'est-à-dire 2*3*25 et 25 n'est pas premier.
25 non, mais la décomposition en facteurs premiers de 150 est 2*3*5*5
(avec 5 premier), que l'on écrit en général avec des puissances : 2*3*5^2.
La colle de Nicolas, c'est du costaud, puisque la décomposition en
nombres premiers est la base du cryptage actuel de toute une série de
données, notamment les clé numériques utilisées en informatique et en
cryptographie bancaire.
Le problème c'est que les nombres premiers utilisés en cryptographie
(par exemple l'algorithme RSA) sont très grands (évidemment... ils ont
pensé à tout ;-), et tout programme permettant de décomposer le produit
de deux nombres premiers grands mettrait peut-être quelques années à
trouver la décomposition. Et là, comme par hasard, toute carte bancaire
dont le numéro aurait été crypté et le message codé intercepté aura
atteint sa date d'expiration.
A+
Nicolas B.
Salut Nicolas,
J'ai des doutes sur ta formule
Avec 150, cela me donne 2^1*3^1*5^2
C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en
nombres premiers est la base du cryptage actuel de toute une série de
données, notamment les clé numériques utilisées en informatique et en
cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le
pourquoi du comment ???
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." <nicolas.bruot@adresse.bidon.invalid> a écrit dans le message
de news: OgXHIheRFHA.1392@TK2MSFTNGP10.phx.gbl...
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long
Dim str As String
p = 2
Dim e As Integer
If n = 1 Then
DecompositionFacteursPremiers = "Ø"
Else
While n <> 1
If Int(n / p) = n / p Then
n = n / p
e = e + 1
Else
If e <> 0 Then str = str & p & "^" & e & "*"
p = p + 1
e = 0
End If
Wend
DecompositionFacteursPremiers = str & p & "^" & e
End If
End Function
Sub Test()
MsgBox DecompositionFacteursPremiers(138)
End Sub
A+
Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres
premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que
138... ;-D
25 non, mais la décomposition en facteurs premiers de 150 est 2*3*5*5 (avec 5 premier), que l'on écrit en général avec des puissances : 2*3*5^2.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Le problème c'est que les nombres premiers utilisés en cryptographie (par exemple l'algorithme RSA) sont très grands (évidemment... ils ont pensé à tout ;-), et tout programme permettant de décomposer le produit de deux nombres premiers grands mettrait peut-être quelques années à trouver la décomposition. Et là, comme par hasard, toute carte bancaire dont le numéro aurait été crypté et le message codé intercepté aura atteint sa date d'expiration.
A+ Nicolas B.
Salut Nicolas,
J'ai des doutes sur ta formule Avec 150, cela me donne 2^1*3^1*5^2 C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le pourquoi du comment ???
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Pierre Fauconnier
Bien vu Nicolas... Je n'avais même pas pensé à décomposer 25... Quel idiot...
Dès lors, merci pour ton algorythme...
Bonne soirée
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Pierre,
C'est-à-dire 2*3*25 et 25 n'est pas premier.
25 non, mais la décomposition en facteurs premiers de 150 est 2*3*5*5 (avec 5 premier), que l'on écrit en général avec des puissances : 2*3*5^2.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Le problème c'est que les nombres premiers utilisés en cryptographie (par exemple l'algorithme RSA) sont très grands (évidemment... ils ont pensé à tout ;-), et tout programme permettant de décomposer le produit de deux nombres premiers grands mettrait peut-être quelques années à trouver la décomposition. Et là, comme par hasard, toute carte bancaire dont le numéro aurait été crypté et le message codé intercepté aura atteint sa date d'expiration.
A+ Nicolas B.
Salut Nicolas,
J'ai des doutes sur ta formule Avec 150, cela me donne 2^1*3^1*5^2 C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le pourquoi du comment ???
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
Merci pour votre aide
JP
Bien vu Nicolas... Je n'avais même pas pensé à décomposer 25... Quel
idiot...
Dès lors, merci pour ton algorythme...
Bonne soirée
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." <nicolas.bruot@adresse.bidon.invalid> a écrit dans le message
de news: OltFH9eRFHA.3708@TK2MSFTNGP15.phx.gbl...
Salut Pierre,
C'est-à-dire 2*3*25 et 25 n'est pas premier.
25 non, mais la décomposition en facteurs premiers de 150 est 2*3*5*5
(avec 5 premier), que l'on écrit en général avec des puissances : 2*3*5^2.
La colle de Nicolas, c'est du costaud, puisque la décomposition en
nombres premiers est la base du cryptage actuel de toute une série de
données, notamment les clé numériques utilisées en informatique et en
cryptographie bancaire.
Le problème c'est que les nombres premiers utilisés en cryptographie (par
exemple l'algorithme RSA) sont très grands (évidemment... ils ont pensé à
tout ;-), et tout programme permettant de décomposer le produit de deux
nombres premiers grands mettrait peut-être quelques années à trouver la
décomposition. Et là, comme par hasard, toute carte bancaire dont le
numéro aurait été crypté et le message codé intercepté aura atteint sa
date d'expiration.
A+
Nicolas B.
Salut Nicolas,
J'ai des doutes sur ta formule
Avec 150, cela me donne 2^1*3^1*5^2
C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en
nombres premiers est la base du cryptage actuel de toute une série de
données, notamment les clé numériques utilisées en informatique et en
cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique
le pourquoi du comment ???
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin
( proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." <nicolas.bruot@adresse.bidon.invalid> a écrit dans le
message de news: OgXHIheRFHA.1392@TK2MSFTNGP10.phx.gbl...
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long
Dim str As String
p = 2
Dim e As Integer
If n = 1 Then
DecompositionFacteursPremiers = "Ø"
Else
While n <> 1
If Int(n / p) = n / p Then
n = n / p
e = e + 1
Else
If e <> 0 Then str = str & p & "^" & e & "*"
p = p + 1
e = 0
End If
Wend
DecompositionFacteursPremiers = str & p & "^" & e
End If
End Function
Sub Test()
MsgBox DecompositionFacteursPremiers(138)
End Sub
A+
Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de
nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que
138... ;-D
Bien vu Nicolas... Je n'avais même pas pensé à décomposer 25... Quel idiot...
Dès lors, merci pour ton algorythme...
Bonne soirée
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Pierre,
C'est-à-dire 2*3*25 et 25 n'est pas premier.
25 non, mais la décomposition en facteurs premiers de 150 est 2*3*5*5 (avec 5 premier), que l'on écrit en général avec des puissances : 2*3*5^2.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Le problème c'est que les nombres premiers utilisés en cryptographie (par exemple l'algorithme RSA) sont très grands (évidemment... ils ont pensé à tout ;-), et tout programme permettant de décomposer le produit de deux nombres premiers grands mettrait peut-être quelques années à trouver la décomposition. Et là, comme par hasard, toute carte bancaire dont le numéro aurait été crypté et le message codé intercepté aura atteint sa date d'expiration.
A+ Nicolas B.
Salut Nicolas,
J'ai des doutes sur ta formule Avec 150, cela me donne 2^1*3^1*5^2 C'est-à-dire 2*3*25 et 25 n'est pas premier.
La colle de Nicolas, c'est du costaud, puisque la décomposition en nombres premiers est la base du cryptage actuel de toute une série de données, notamment les clé numériques utilisées en informatique et en cryptographie bancaire.
Peut-être peut-on lancer un appel à Serge pour qu'il nous explique le pourquoi du comment ???
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Nicolas B." a écrit dans le message de news:
Salut Jean-Paul,
Essaie ceci :
Function DecompositionFacteursPremiers(n As Long)
Dim p As Long Dim str As String p = 2 Dim e As Integer
If n = 1 Then DecompositionFacteursPremiers = "Ø" Else While n <> 1 If Int(n / p) = n / p Then n = n / p e = e + 1 Else If e <> 0 Then str = str & p & "^" & e & "*" p = p + 1 e = 0 End If Wend DecompositionFacteursPremiers = str & p & "^" & e End If
End Function
Sub Test() MsgBox DecompositionFacteursPremiers(138) End Sub
A+ Nicolas B.
Est-il possible avec Excel de décomposer un nombre en produits de nombres premiers ?
Exemple : 138 = 3 x 2 x 23
Bien-sûr, je cherche la solution pour des nombres plus imporants que 138... ;-D
