recherche une valeur maximum avec vba Excel

Version imprimable

Bonjour ,

j'aimerais incorporer a ce petit programme VBA (http://www.cjoint.com/c/FDig7JRvK66)
un autre bout de programme permettant de rechercher la valeur la plus grande dans la colonne B d'une feuille qui est créée grace au programme mit dans le lien et qui s'appel "rapport"
j'ai trouver ça sur un forum comme programme je l'ai mis dans clstraitement mais rien ne se passe aucun message qui apparaît
voici le programme trouvé :
Code:

1 2 3 4 5 6 7 8 9 10 11 sub toto() maxi=0 range("A1").select do while activecell.value<>"" if activecell.value > maxi then maxi=activecell.value end if cells.offset(1,0).select loop msgbox "la valeur la plus élevée est " & maxi end sub
Merci pour votre aide

11/04/2016, 14h05
illight

Bonjour,

2 questions : as-tu essayé de faire du pas à pas voir où ta macro pourrait coincer ?
Es-tu sur une feuille où des données sont renseignées ?

Par ailleurs, tes données sont dans la colonne A ? car la macro que tu as récupérée ne regarde que dans la colonne A.
11/04/2016, 14h10
Kiouane

Je ne sais pas si c'est le cas mais peut-être parce que toi tu veux l'appliquer sur la colonne B et que dans ton code au lieu d'avoir un Range("B1") tu as A1

Salut,

pour rechercher la valeur d'une plage, tu peux aussi utiliser la fonction Max
Cordialement,

Code:

1
2
3
4
5
6
7
Sub test_forum2()
    Dim sh As Worksheet
    Dim plageA As Range
    Set sh = Worksheets("Feuil2")
    Set plageA = sh.Columns(1)
    Debug.Print WorksheetFunction.Max(plageA)
End Sub

11/04/2016, 14h16
unparia

Bonjour
Il sera bien de s'intéresser à la vocation et utilisation de la méthode WorksheetFunction.Max, appliquée à une plage de cellules.
11/04/2016, 15h49
seb605151

je dois faire une recherche dans la colonne B et mes valeur ce situe de b1 à b5
de plus ces valeur sont dans la feuille numeros 2 donc j'aimerais savoir comment on lui indique que l'on vas sur la feuille 2 et que l'on recherche cette valeur max sur la plage b1 à b5
Merci beaucoups

salut,

Tout a été dit par Philippe PONS avec le code qui va bien. Tu n'as que deux petites adaptations à faire :
Le nom de la feuille et la zone à utiliser pour trouver le MAX :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test_forum2()

    'défini la feuille qui contient les infos
    Set sh = Worksheets("2")
    'défini la zone à utiliser pour la recherche
    Set plageA = sh.Range("B1:B5")
    'là on fait le calcul en utilisant la fx Max intégrée d'Excel
    'je la fait afficher dans une boite de dialogue
    MsgBox WorksheetFunction.Max(plageA)
    'tu peux aussi la récupérer dans une cellule de cette manière (ici la cellule A1)
    Range("A1").Value = WorksheetFunction.Max(plageA)
End Sub

12/04/2016, 08h09
seb605151
Merci pour vos reponse
j'ai utilisé cette methode aussi vous en pensez quoi ?
Code:

1 2 3 4 Sub valmax() MsgBox [max(B1:b5)] End Sub
12/04/2016, 08h37
Philippe PONS

Salut,

Pourquoi gâcher(!) une procédure pour mettre une simple msgbox à l'intérieur?
Quant à la syntaxe [max(B1:b5)], perso je ne l'aime pas!
Elle est certes compacte, mais pas très claire à lire.
Mais d'un autre côté, elle donne le résultat attendu.
Donc, c'est plutôt de l'ordre du choix d'un style de programmation.
Cordialement,