Discussion :

[m@tix]

Bonjour,

Je suis amené à faire un tri de valeurs, à savoir récupérer la plus grande valeur d'une colonne. Seulement, il me faudrait pouvoir gérer l'ensemble de ces données, qui peuvent être de "types" différents, à savoir, par exemple:

1.3E-1
0.16
<0.18
<0.14

Par exemple, dans la liste ci-dessus, la fonction devrait récupérer <0.18.

J'ai essayé plusieurs fonctions, mais à chanque fois, l'un des tests ne fonctionne pas (par exemple ça va marcher si j'ai uniquement des données de type 0.16, mais pas si j'ai des données de type <0.14, et inversement.. Enfin, il faut savoir que les deux premières lignes de la colonne à gérer comportent du texte (intitulés et description).

Quelqu'un pourrait-il me proposer un code VBA qui puisse assurer ce que je voudrais svp ?

Bonus: ce n'est pas absolument nécessaire, mais si le dit code pouvait également trouver le max d'une ligne..

Merci d'avance !

[dodo69]

Bonjour,

tout d'abord, est-ce que tu t'es assuré qu'il ne faille pas simplement remplacer les points par des virgules ?

Pour les valeur <0.18 par exemple.. on la prend comme valeur 0.18 ?
Et a savoir, <0.18 n'est pas un nombre , pas facile de le comparer à des nombres...

Cordialement
DoDo

Bon j'ai essayé de faire une petite macro vite fait

J'ai considéré que tes nombres sont en colonne 1 feuille1 ,

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
25
26
27
28
29
30
31
32
33
34
35
Sub chercher_max()
 
Dim i As Long
Dim j As Long
Dim der_ligne As Long
Dim valeur1 As Long
Dim valeur2 As Long
Dim n As Integer
 
 
With Sheets("Feuil1") 'Adapte au nom de ta feuille
der_ligne = .Cells(Rows.Count, 1).End(xlUp).Row 
 
j = 1   'Adapte ce nombre en fonction de la ligne ou commence ta recherche
valeur2 = .Cells(j, 1)
For i = 1 To der_ligne  ' modifie le 1 en fonction de la ligne ou commence ta recherche
 
    If Left(.Cells(i, 1), 1) = "<" Or Left(.Cells(i, 1), 1) = ">" Then
        n = Len(.Cells(i, 1))
        valeur1 = Right(.Cells(i, 1), n - 1)
        Else
            valeur1 = .Cells(i, 1)
    End If
 
    If valeur1 > valeur2 Then
        j = i
        valeur2 = valeur1
    End If
 
Next i
 
MsgBox ("La plus grande valeur de la colonne 1 est : " & .Cells(j, 1) & vbNewLine & " Elle se trouve ligne " & j)
End With
 
End Sub

Tiens au courant

Cdlt
DoDo