Faire des intervalles avec un pas de 20000000

viasd - 24 oct. 2016 à 13:24 - Dernière réponse : vb95 1684 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 18 octobre 2018 Dernière intervention
- 25 oct. 2016 à 20:45
Bonjour,
Debutant en vba, je rencontre quelaues problemes.
En effet, je voudrai avoir plusieurs intervalles toutes les 20000000 valeurs qui sont comprise dans la cellule O.
J´ai tout d´abord trier toutes mes cellules par ordre croissant puis utiliser le programme suivant, le probleme etant que je ne rentre jamais dans la boucle.
i = 2
MsgBox i
Do While i <> 50
Intervall1 = Cells(i, 15).Value
Set maplage = Range("O2:O1000")
Intervall2 = Intervall1 * 20000000
resultat = nbapproche(maplage, Intervall2)
On Error Resume Next
Set ctrouvee = maplage.Find(resultat, , xlValues).Select
i = ctrouvee.Row
MsgBox i
Loop
End Sub

Private Function nbapproche(plage As Range, nob As Double) As Double
  Dim tabl() As Variant
  ReDim retenu(1 To 1) As Double
  tabl = plage
  nb = 0
  For i = 1 To UBound(tabl)
   If tabl(i, 1) >= nob Then
     nb = nb + 1
     ReDim Preserve retenu(1 To nb)
     retenu(nb) = tabl(i, 1)
   End If
  Next
  nbapproche = Application.min(retenu)
End Function


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

3 réponses

vb95 1684 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 18 octobre 2018 Dernière intervention - Modifié par vb95 le 25/10/2016 à 18:31
0
Merci
bonjour
tu es débutant en VBA . tout le monde a débuté un jour
J'ai modifié la section de ton message (VBA n'est pas VB 6)

Je ne suis pas spécialiste en VBA mais c'est pas facile à comprendre ce que tu veux faire ! Commentes tes lignes de code
De plus sers-toi des balises pour présenter ton code ( le sigle <> en haut de ton message te permet d'insérer du code proprement )

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi. 
Commenter la réponse de vb95
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 25 oct. 2016 à 19:22
0
Merci
Bonjour, (et un salut à VB95)
Voir ce que dit ma signature.
vb95 1684 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 18 octobre 2018 Dernière intervention - 25 oct. 2016 à 20:45
Bonsoir ucfoutu
Je n'en pense pas moins
Au plaisir mon cher
Commenter la réponse de ucfoutu

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.