En poursuivant votre navigation sur ce site, vous acceptez l’utilisation de cookies pour vous proposer des services et offres adaptés à vos centres d’intérêts.FERMER  x
Pour en savoir plus et paramétrer les cookies...
En poursuivant votre navigation sur ce site, vous acceptez l’utilisation de cookies pour vous proposer des services et offres adaptés à vos centres d’intérêts.FERMER  x
Pour en savoir plus et paramétrer les cookies...
Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business
Bureautique
Multimédia
Internet
Utilitaires
Personnaliser son pc
Loisirs
Sécurité
Logiciels Mobiles
Services en ligne
Divers

Excel 97 et suivant : dresser une liste de nombres premiers

Si vous aimez les jeux mathématiques, vous avez sans doute besoin de temps à autre d'utiliser des nombres premiers, ces nombres particuliers qui ne sont divisibles que par 1 et par eux-mêmes. Vous pouvez parfaitement en établir une liste (finie, bien sûr...) dans Excel à l'aide d'une macro.
A partir d'une liste initiale de quatre nombres premiers (2,3, 5 et 7), la macro utilise l'algorithme classique de recherche des nombres premiers : elle teste une valeur (la variable AA dans notre exemple) en la divisant par tous les nombres premiers de la liste jusqu'à ce que le quotient obtenu devienne inférieur au diviseur. Si aucune division ne tombe juste, la valeur est un nombre premier. Elle est donc ajoutée à la liste.
La macro augmente la valeur de deux unités (à partir de 3, les nombres premiers sont toujours impairs) et la boucle recommence. Avant de créer la macro, inscrivez les chiffres 2,3, 5 et 7 respectivement dans les cellules A1, A2, A3 et A4.
Tapez Alt + F11 pour ouvrir l'éditeur Visual Basic. Déroulez Insertion, Module et tapez le listing ci-dessous. Déroulez ensuite Fichier, Fermer et retourner à Microsoft Excel.
Pour lancer la macro, tapez Alt + F8, sélectionnez Premier et cliquez sur Exécuter.
Attention : la macro ne s'arrête jamais, c'est une boucle infinie. Pour l'interrompre, tapez Ctrl + Pause (la touche Pause/Attn est en haut à droite du clavier) et cliquez sur Fin. Le processus est assez rapide : sur un PC équipé d'un Pentium 4 cadencé à 3 GHz, la macro, en ' tournant ' pendant cinq minutes, a donné tous les nombres premiers jusqu'à 148 331 !
agrandir la photo
envoyer
par mail
imprimer
l'article
@01net sur