Afficher la valeur max dans une fenetre Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 3'872
Appréciations reçues : 179
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 3 mai 2016, 15:12

Bonjour le fil, bonjour le forum,

Une petite erreur dans le code de VBA-NEW. il a vidé la variable monDicoDate avant d'afficher le message... Il suffit d'inverser les lignes.
Son code modifié :
Sub Selection_max_Dico()
Dim tblValeurs
Dim monDicoDate As Object
Dim valMax As Double

'on stocke les données dans une variable tableau
tblValeurs = Sheets("test").Range("A3:B368").Value
'on va créer un dictionnaire des valeurs avec les dates associées
Set monDicoDate = CreateObject("scripting.dictionary")
For i = 1 To UBound(tblValeurs)
    monDicoDate(tblValeurs(i, 2)) = monDicoDate(tblValeurs(i, 2)) & tblValeurs(i, 1) & vbCrLf
Next i
'on récupère la valeur max
valMax = Application.Max(monDicoDate.keys)
MsgBox "La valeur " & valMax & " $ les :" & Chr(13) & monDicoDate(valMax)
'on vide la mémoire
Set monDicoDate = Nothing
End Sub
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
m
mindah
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 28 avril 2016
Version d'Excel : 2013

Message par mindah » 4 mai 2016, 08:38

ah oui ça marche :) merci beaucoup sensei !
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 3'872
Appréciations reçues : 179
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 4 mai 2016, 09:17

Re,

Censé, pourquoi pas ! Sans le sous, sûr ! Mais Sensei, faudrait pas exagérer non plus...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
v
vba-new
Membre impliqué
Membre impliqué
Messages : 2'946
Appréciations reçues : 2
Inscrit le : 13 mai 2009
Version d'Excel : 2010 FR - 2013 FR

Message par vba-new » 5 mai 2016, 14:11

Erreur de débutant !
Merci ThauThème ! :D

J'ai édité le code.
vba-new
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message