Discussion :

[seb605151]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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.

[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

[jerome.vaussenat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[seb605151]

Merci pour vos reponse
j'ai utilisé cette methode aussi vous en pensez quoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub valmax()
MsgBox [max(B1:b5)]
 
End Sub

[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

[Philippe PONS]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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