Discussion :

[marie33000]

Bonjour tous le monde,

J'ai un petit soucis pour réaliser un code.

Je dispose de données dans ma colonne 1 de ma feuille excel. A l'aide d'une macro je dois détecter toutes les valeurs qui sont dans un intervalle [min;max] et garder uniquement celle étant la plus proche de zéro.
min et max sont des variables de type double.

Voici un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Colonne1
 
2
5
8
15
25

Je fixe min=4
Je fixe max=9

5 et 8 sont compris dans cette intervalle mais comme 5 est le plus petit je le conserve et je supprime le 8.

Voili voilou, si quelqu'un aurait une idée ça serait chouette merci

[Krovax]

Bonjour,
en partant du principe que toutes tes valeur sont positives

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
mintrouve=max
For i = 2 to dernereligne
   if cells(i,1)>=min and cells(i,1)=<mintrouve then
      mintrouve=cells(i,1)
  end if
next i

Edit c'est bien sur a toi de donner des valeur a min , max et dernereligne

[Fvandermeulen]

Bonjour,
Voici une idée, bonne continuation...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Interval()
 
Dim MaPlage As Range
Dim cel As Range
Dim c As Integer
Dim max As Integer
Dim min As Integer
 
min = 4 'Défini en "dur" pour l'exemple
max = 9
c = max 'servira à définir la plus petite valeur
Set MaPlage = Sheets("sheet1").Range("A1:A6") 'A adapter selon le cas.
 
For Each cel In MaPlage 'Boucle sur toutes les cellules comprise dans la plge
 
    If cel.Value < max And cel.Value > min Then 'Vérifie si la valeur est comprise en min et max
        If cel.Value < c Then c = cel.Value 'Si la valeur est plus petit que la précédente on remplace la valeur de c
    End If
Next cel
 
MsgBox "La plus petite valeur comprise entre " & min & " et " & max & " est " & c
 
End Sub

Edit: Salut Krovax, c'est grave, je venais de faire un refresh et je suis quand même deuxième Et en plus, ton code est plus court

[Krovax]

Bonjour Fvandermeulen,

une fois que c=max plus besoin de tester le max il suffit de tester le c

Sinon je me pose une question (je n'ai jamais testé) le for each est plus rapide que la boucle en i?

[DeaD78]

Salut à tous,

Je dois avouer que je suis aussi intéressé de savoir si le For Each est plus ou moins rapide qu'une boucle classique

Et quant-à moi, je ne poste même pas ma solution

[marie33000]

merci beaucoup pour vos réponses c'est chouette

[Fvandermeulen]

Re,
Ben ouaip, Krovax a bien raison plus besoin de tester le max , je vais aller me recoucher...
Et pour la boucle, je promets, je ferai un test avec un chrono de compétition et je vous dis quoi (mais à mon avis ça doit pas changer grand chôse)
A+

[Krovax]

Bon après un petit test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim deb As Long
Dim res1 As Long
Dim res2 As Long
Dim cel As Range
Dim i As Long
deb = GetTickCount
For Each cel In Range("A1:A10000")
cel = cel
Next cel
res1 = GetTickCount - deb
deb = GetTickCount
For i = 1 To 10000
Cells(i, 1) = Cells(i, 1)
Next i
res2 = GetTickCount - deb
 
MsgBox "For each " & res1 & Chr(13) & "For next " & res2

For each est un peut plus rapide (100ms environ, si GetTickCount renvoi bien des miliseconde j'ai un doute d'un coup)
mais comme ca dépend de l'utilisationdu proc ca vari pas mal.

Bon après cette paranthèse nous te prions marie de bien vouloir nous excuser pour ce petit écart. Les codes que l'on ta donné fonctionne?

[marie33000]

En effet ça à l'air de fonctionner

Merci pour à tous

Bonne journée