A voir également:
- Min vb
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Min en maj - Guide
- En ligne il y a 1 min messenger ✓ - Forum Facebook Messenger
- Trouver le minimum d'une liste python sans min - Forum Python
4 réponses
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 308
1 juil. 2011 à 10:35
1 juil. 2011 à 10:35
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.
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.
Reivax962
Messages postés
3672
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
1 011
1 juil. 2011 à 10:39
1 juil. 2011 à 10:39
Bonjour,
Quelle version de vb utilises-tu ?
Xavier
Quelle version de vb utilises-tu ?
Xavier
Reivax962
Messages postés
3672
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
1 011
1 juil. 2011 à 10:43
1 juil. 2011 à 10:43
C'est pas plutôt dans l'autre sens ?
Pz = Min(PLa, PLb, PLc, PLd, PLf)
Pz = Min(PLa, PLb, PLc, PLd, PLf)
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 308
1 juil. 2011 à 11:03
1 juil. 2011 à 11:03
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
1 juil. 2011 à 10:39
PLa=12: PLb=15: PLc=16: PLd=17: PLg=22
Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz
end if
1 juil. 2011 à 10:48
C'est surement pour ça que ça ne fonctionne pas.
1 juil. 2011 à 10:51
1 juil. 2011 à 10:54
1 juil. 2011 à 10:56
PLa=12: PLb=15: PLc=16: PLd=17: PLf=22
Application.WorksheetFunction.Min(PLa, PLb, PLc, PLd, PLf) = Pz
end sub