Soyez le premier à donner votre avis sur cette source.
Vue 11 299 fois - Téléchargée 574 fois
Sub nbrpremier() Dim debut As Date Dim fin As Date Dim Duree As Date Dim n As Variant Dim d As Variant Dim premier As Integer Dim p As Variant Dim c As Variant Dim Max As Variant Dim Min As Variant Dim Limp As Variant Dim compteur As Variant Dim tauxrafrech As Variant Min = Cells(1, 2) Max = Cells(1, 3) Limp = (Cells(3, 2) + 6) 'nombre de cellules remplie avant retour a la colonne suivante debut = Time p = 7 c = 1 compteur = 0 tauxrafrech = 0 Rows("7:9999").Clear Columns(4).Clear For n = Min To Max tauxrafrech = tauxrafrech + 1 premier = 1 For d = 2 To (n ^ 0.5) If (n Mod d) = 0 Then premier = 0 Exit For End If Next d If premier = 1 Then compteur = compteur + 1 End If If Cells(2, 2) = 1 Then If premier = 1 Then If p <= Limp Then Cells(p, c) = n p = p + 1 Else p = 7 c = c + 1 Cells(p, c) = n End If End If If Cells(5, 2) = 1 Then Cells(p, c).Select End If If tauxrafrech = Cells(4, 2) Then tauxrafrech = 0 fin = Time Duree = fin - debut Application.StatusBar = "Durée " & Duree & " total nbr premier " & compteur & " Nbr en cours " & n End If Else If tauxrafrech = Cells(4, 2) Then tauxrafrech = 0 fin = Time Duree = fin - debut Cells(1, 4) = "Durée " & Duree Cells(2, 4) = "total nbr premier " & compteur Cells(3, 4) = "Nbr en cours " & n End If End If Next n Cells(3, 4).Clear Application.StatusBar = Clear Cells(1, 1).Select fin = Time Duree = fin - debut Cells(1, 4) = "Durée totale " & Duree Cells(2, 4) = "total nbr premier " & compteur End Sub
30 mars 2006 à 22:08
on peux l utiliser dans le cours d arethmitique en math ou dans le cryptage des textes
et merci
15 nov. 2005 à 21:50
13 nov. 2005 à 14:09
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.