Discussion :

[valoji]

Bonjour,

Dans une plage composer de valeur (10,5,6,8,3,2,111,12,3.3), j'aimerais récuperer les 4 premières valeurs supérieurs à une valeur.
exmple : > 4, il doit me renvoyer (5,6,8,10)

Merci pour votre aide, il y a longtemps que je n'ai plus fais de VBA.

Valoji

[le_dilem]

peut être que ça te donnera une idée

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
24
Sub test()
 
Dim i As Integer
 
i = 1
 For i = 1 To 25
 
 If (Mid(Cells(1, 3), i, 1)) Like "[0-9]" Then
 
 
      chif = chif + Mid(Cells(1, 3), i, 1)
Else
 
    If chif > 4 Then
 
      Cells(1, 4) = Cells(1, 4) & "," & chif
    End If
chif = ""
 
   End If
 
    Next i
 
 End Sub

[Michel_M]

Bonjour,

si les nombres sont dans des cellules différentes, le problème peut être résolu sans faire appel à VBA par une formule matricielle

voir maquette ci jointe