Comment générer tous les nombres premiers compris entre deux nombres donnés dans Excel ?
Dans Excel, avez-vous déjà tenté de lister tous les nombres premiers compris entre deux valeurs données ? Dans cet article, je vous présente quelques méthodes astucieuses pour réaliser cette opération.
Générer tous les nombres premiers entre deux nombres donnés à l’aide de formules
Générer tous les nombres premiers entre deux nombres donnés à l’aide d’une fonction personnalisée
Générer tous les nombres premiers entre deux nombres donnés à l’aide de formules
En combinant la fonction Définir un nom et des formules, vous pouvez lister ou générer tous les nombres premiers situés entre deux nombres spécifiques. Procédez comme suit :
1. Commencez par créer le premier nom de cellule en cliquant sur Formules > Gestionnaire de noms, puis, dans la boîte de dialogue Gestionnaire de noms, cliquez sur le bouton Nouveau. Voir la capture d’écran :
2. Dans la boîte de dialogue Nouveau nom, saisissez Nom dans la zone de texte rng comme nom de la cellule, puis entrez cette formule : =ROW(INDIRECT(Sheet1!$B$1&":"&Sheet1!$B$2)) (Sheet1 correspond à la feuille de calcul actuelle que vous utilisez ; B1 et B2 représentent respectivement la valeur de départ et le numéro de fin que vous avez définis) dans la zone de texte Se réfère à, puis cliquez sur le bouton OK pour revenir à la boîte de dialogue précédente. Voir la capture d’écran :
3. Cliquez à nouveau sur le bouton Nouveau pour créer un autre nom de cellule. Dans la boîte de dialogue Nouveau nom, saisissez le nom prime dans la zone de texte Nom, puis entrez cette formule : =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2))) (rng correspond au premier nom de cellule que vous avez créé à l’étape 2) dans la zone de texte Se réfère à. Voir la capture d’écran :
4. Cliquez ensuite sur OK, fermez les boîtes de dialogue, sélectionnez une colonne dans laquelle vous souhaitez lister tous les nombres premiers, puis saisissez cette formule : =IFERROR(prime,«»)) (prime correspond au nom de la cellule que vous avez créé à l’étape 3) dans la barre de formule, puis appuyez simultanément sur les touches CTRL + MAJ + ENTRÉE. Tous les nombres premiers situés entre les deux nombres indiqués s’affichent comme illustré dans la capture d’écran suivante :
Générer tous les nombres premiers entre deux nombres donnés à l’aide d’une fonction personnalisée
Si la première méthode vous paraît un peu complexe, vous pouvez utiliser ici une fonction personnalisée pour résoudre ce problème.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Générer tous les nombres premiers entre deux nombres spécifiques :
Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
For m = 2 To n - 1
If n Mod m = 0 Then GoTo 20:
Next m
num = num & n & ","
20:
Next n
PRIME = num
End Function
3. Ensuite, sauvegardez et fermez ce code, retournez à la feuille de calcul et saisissez cette formule : =prime(10;100) (10 correspond au numéro de départ, et 100 correspond au numéro de fin entre lesquels vous souhaitez obtenir les nombres premiers ; vous pouvez les modifier selon vos besoins), puis appuyez sur la touche Entrée. Tous les nombres premiers s’affichent alors dans une seule cellule. Voir la capture d’écran :
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels