FIND MAX

[Denis]

Bonsoir à tous et à toutes

Petit prob avec Max !!!!!


Avis aux tenors de Vb script

Merci d'avance

 

[Vériland]

Bonsoir Denis et le forum...

arf...comme ça d'emblée il est un peu difficile de s'approprier de ton beau tableau...beaucoup de cellules fusionnées compliquent un peu sa compréhension...(enfin c'est p'têt moi...)

Bon je n'ai pas regardé d'une manière approfondie mais pour commencer tu pourrais p'têt faire en sorte de nommer les zones pour une meilleur lecture...

par exemple ceci :

=MAX(C15;K15;O15;S15;W15;AA15;AE15;AI15;AM15)

pourrait donner cela...

=MAX(zone2)

sachant que zone2 correspondrait à C15;K15;O15;S15;W15;AA15;AE15;AI15;AM15

Voilà ce que je pourrais déjà te suggérer dans un premier temps...

par contre ce que je ne saisi pas c'est le : SI H9:AO10>=2 !!??!!

tu voudrais faire quoi avec ce SI...que H9:AO10 soit supérieur ou égal à deux... pour une cellule ? pour l'ensemble ?

là je sèche un peu...loool

 

[Alain]

Bonjour,

Ci-joint code VBA pour la première ligne :

Dim Moy() As Single
Dim Meilleur As Single
Sub Calcul_Max()
ReDim Moy(10)
Dim i As Integer
Range("H9").Select
For i = 1 To 9
If ActiveCell >= 2 Then
Moy(i) = ActiveCell.Offset(1, -1)
End If
ActiveCell.Offset(0, 3).Select
Next
Meilleur = Application.Max(Moy())
Range("AT8") = Meilleur
End Sub


Attention, sur les lignes suivantes, le décalage est différent quand il y a le carré gris.

A ta disposition éventuellement.

@+.