récupérer la plus grande valeur VBA Fermé

Question

Bonjour à tous,

Je suis entrain de réaliser une base de données et dans la colonne A j'ai des animaux et en B leur poids 
j'effectue des relevés toutes les semaines

et je voudrais créer dans une autre feuille une synthese en mettant le nom de l'animal et son poids le plus grand qui l'est eu et cela par une macro bien evidememt.

Le problème est que je n'arive pas a récupérer la valeur maximal de l'animal qui peu etre en plein milieu du tableau.

Pouvez vous m'aider?

Cordialement

trustpol · Answer

Personne n'a d'idée????

car j'ai réelement besoin de cette macro...

blux · Answer

Salut,

pas besoin de macro, une simple formule suffit :

=MAX(feuille1!B:B)

en supposant que ta colonne B ne contiennet que des poids et pas d'autres données, sinon, il faut limiter avec B1:Bxx.

Utilisateur anonyme · Answer

Bonjour,

La structure que je t'ai proposé est fonctionnel pour ce genre de traitement,
suffit de modifier les noms d'objets.


Option Explicit
'

Type typVehicule
        Nom As String
        LaDate As Date
        Kilom As Double
End Type
'

Dim LesVH() As typVehicule
'

Sub RechercheMaximum()

    Dim Boucle As Long, Limite As Long
    Dim Compteur As Long, UneDate As Date
    Dim Vehicule As String, Kilom As Long
    
    Limite = Range("A65536").End(xlUp).Row
    
    
    For Boucle = 1 To Limite
        ReDim Preserve LesVH(Boucle)
        Vehicule = Cells(Boucle, 1).Value
        UneDate = Cells(Boucle, 2).Value
        Kilom = Cells(Boucle, 3).Value
        For Compteur = 0 To (UBound(LesVH) - 1)
            If (Vehicule = LesVH(Compteur).Nom) Then
                If (LesVH(Compteur).Kilom < Kilom) Then
                    LesVH(Compteur).Kilom = Kilom
                    LesVH(Compteur).LaDate = UneDate
                End If
            Else
                LesVH(Compteur).Nom = Vehicule
                LesVH(Compteur).LaDate = UneDate
                LesVH(Compteur).Kilom = Kilom
            End If
        Next Compteur
    Next Boucle
    
    Worksheets.Add
    ActiveSheet.Name = "Cumulatif"
    For Boucle = 1 To UBound(LesVH)
        Cells(Boucle, 1).Value = LesVH(Boucle - 1).Nom
        Cells(Boucle, 2).Value = LesVH(Boucle - 1).LaDate
        Cells(Boucle, 3).Value = LesVH(Boucle - 1).Kilom
    Next bouble

End Sub
'

Lupin

Récupérer la plus grande valeur VBA

3 réponses

Discussions similaires