Min vb ... Sauvegarder Signaler zoumar - Dernière réponse le 1 juil. 2011 4 réponses Bonjour à tous , je travaille actuellement sur vb, j'ai une fonction suivante que j'arrive pas à corriger: MIN(12,15,16,17,22)= Pz quelqu'un pourrait m'aider svp? Afficher la suite 4 réponses Trié par votes Votes Date Date décroissante Réponse 1 / 4 ... Signaler chossette9 Contributeur Bonjour, avec autant d'éléments, je ne sais pas par où commencer.... Serait bien de mettre le code pour voir où ça merde, non ? Cordialement. ... Signaler zoumar sub ex() PLa=12: PLb=15: PLc=16: PLd=17: PLg=22 Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz end if ... Signaler chossette9 Contributeur Sans dire de connerie, tu déclare PLg = 22 dans ton code et ensuite tu appelles PLf. C'est surement pour ça que ça ne fonctionne pas. ... Signaler zoumar ça me met erreur de compilation: affectation à une constante non autorisée ... Signaler Reivax962 Change de nom de variable alors... Mais mets bien la même chose aux deux endroits. ... Signaler zoumar sub ex() PLa=12: PLb=15: PLc=16: PLd=17: PLf=22 Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz end sub Réponse 2 / 4 ... Signaler Reivax962 Bonjour, Quelle version de vb utilises-tu ? Xavier Réponse 3 / 4 ... Signaler zoumar vb 2010 Réponse 4 / 4 ... Signaler Reivax962 C'est pas plutôt dans l'autre sens ? Pz = Min(PLa, PLb, PLc, PLd, PLf) ... Signaler zoumar je l'ai dans les deux sens et ça marche pas ... Signaler chossette9 Contributeur Je viens de tester ceci et ça marche :Sub ex() PLa = 12: PLb = 15: PLc = 16: PLd = 17: PLf = 22 Dim Pz As Double Pz = Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) End Sub ... Signaler zoumar merci chossette: ça me met comme erreur Impossible de lire la propriété Min de la classe WorksheetFunction Discussions similaires Pourquoi l'info "actif depuis "x" minutes" n'apparaît plus ? Uhlrich convertir minutes en heure/minutes marmadas convertir 1 h30 en minutes christophedir Comment enlever le "Actif il y a x minutes" sur facebook ? rim47 Point vert Messenger veut il dire qu'on est en ligne sur Messenger Aschylle7513 Sujet Précédent Sujet Suivant
Réponse 1 / 4 ... Signaler chossette9 Contributeur Bonjour, avec autant d'éléments, je ne sais pas par où commencer.... Serait bien de mettre le code pour voir où ça merde, non ? Cordialement. ... Signaler zoumar sub ex() PLa=12: PLb=15: PLc=16: PLd=17: PLg=22 Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz end if ... Signaler chossette9 Contributeur Sans dire de connerie, tu déclare PLg = 22 dans ton code et ensuite tu appelles PLf. C'est surement pour ça que ça ne fonctionne pas. ... Signaler zoumar ça me met erreur de compilation: affectation à une constante non autorisée ... Signaler Reivax962 Change de nom de variable alors... Mais mets bien la même chose aux deux endroits. ... Signaler zoumar sub ex() PLa=12: PLb=15: PLc=16: PLd=17: PLf=22 Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz end sub
... Signaler zoumar sub ex() PLa=12: PLb=15: PLc=16: PLd=17: PLg=22 Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz end if
... Signaler chossette9 Contributeur Sans dire de connerie, tu déclare PLg = 22 dans ton code et ensuite tu appelles PLf. C'est surement pour ça que ça ne fonctionne pas.
... Signaler Reivax962 Change de nom de variable alors... Mais mets bien la même chose aux deux endroits.
... Signaler zoumar sub ex() PLa=12: PLb=15: PLc=16: PLd=17: PLf=22 Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz end sub
Réponse 4 / 4 ... Signaler Reivax962 C'est pas plutôt dans l'autre sens ? Pz = Min(PLa, PLb, PLc, PLd, PLf) ... Signaler zoumar je l'ai dans les deux sens et ça marche pas ... Signaler chossette9 Contributeur Je viens de tester ceci et ça marche :Sub ex() PLa = 12: PLb = 15: PLc = 16: PLd = 17: PLf = 22 Dim Pz As Double Pz = Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) End Sub ... Signaler zoumar merci chossette: ça me met comme erreur Impossible de lire la propriété Min de la classe WorksheetFunction
... Signaler chossette9 Contributeur Je viens de tester ceci et ça marche :Sub ex() PLa = 12: PLb = 15: PLc = 16: PLd = 17: PLf = 22 Dim Pz As Double Pz = Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) End Sub
... Signaler zoumar merci chossette: ça me met comme erreur Impossible de lire la propriété Min de la classe WorksheetFunction