Min vb

zoumar -  
 zoumar -
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?


A voir également:

4 réponses

chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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.
0
zoumar
 
sub ex()
PLa=12: PLb=15: PLc=16: PLd=17: PLg=22

Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz
end if
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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.
0
zoumar
 
ça me met erreur de compilation: affectation à une constante non autorisée
0
Reivax962 Messages postés 3672 Date d'inscription   Statut Membre Dernière intervention   1 011
 
Change de nom de variable alors... Mais mets bien la même chose aux deux endroits.
0
zoumar
 
sub ex()
PLa=12: PLb=15: PLc=16: PLd=17: PLf=22


Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz
end sub
0
Reivax962 Messages postés 3672 Date d'inscription   Statut Membre Dernière intervention   1 011
 
Bonjour,

Quelle version de vb utilises-tu ?

Xavier
0
zoumar
 
vb 2010
0
Reivax962 Messages postés 3672 Date d'inscription   Statut Membre Dernière intervention   1 011
 
C'est pas plutôt dans l'autre sens ?
Pz = Min(PLa, PLb, PLc, PLd, PLf)
0
zoumar
 
je l'ai dans les deux sens et ça marche pas
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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
0
zoumar
 
merci chossette: ça me met comme erreur
Impossible de lire la propriété Min de la classe WorksheetFunction
0