Faire des intervalles avec un pas de 20000000

Signaler
-
Messages postés
2166
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juillet 2020
-
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.

2 réponses

Messages postés
2166
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juillet 2020
109
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. 
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
225
Bonjour, (et un salut à VB95)
Voir ce que dit ma signature.
Messages postés
2166
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juillet 2020
109
Bonsoir ucfoutu
Je n'en pense pas moins
Au plaisir mon cher