Min vb

zoumar -
zoumar - 1 juil. 2011 à 11:23

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

A voir également:

Min vb
Maj en min - Guide
Langage vb - Télécharger - Langages
Vb runtime - Télécharger - Divers Utilitaires
Vb msflexgrid - Forum VB / VBA
162 min en heure ✓ - Forum Programmation

4 réponses

Réponse 1 / 4
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention 1 313

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
1. 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
2. chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention 1 313
  
  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
3. zoumar
  
  ça me met erreur de compilation: affectation à une constante non autorisée
  
  0
4. Reivax962 Messages postés 3742 Statut Membre 1 011
  
  Change de nom de variable alors... Mais mets bien la même chose aux deux endroits.
  
  0
5. 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
Réponse 2 / 4
Reivax962 Messages postés 3742 Statut Membre 1 011

Bonjour,

Quelle version de vb utilises-tu ?

Xavier
0
Réponse 3 / 4
zoumar

vb 2010
0
Réponse 4 / 4
Reivax962 Messages postés 3742 Statut Membre 1 011

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

Min vb

4 réponses

Discussions similaires

Newsletters