Calul de Min

Version imprimable

20/02/2011, 22h54
Charlotte00

Calul de Min

Bonjour,

Dans ma macro j'ai une boucle dans laquelle j'ai plusieurs variables et je veux calculer un min avec des variables:

Code:

Min(colonne1;colonne1-12)

, avec colonne1 qui est une variable
c une question de syntaxe avec des & et des " je pense mais j'arrive pas à trouver la bonne.

Merci à tous.
21/02/2011, 13h09
chris09300

calcul de Min

je pense qu'il faut plutot mettre

Code:

Min(colonne1;colonne1:12)

les deux : plutot que le -
a plus
cris
21/02/2011, 18h36
Charlotte00

Merci pour ta réponse Chris
J'ai essayé ca marche pas avec ca
22/02/2011, 02h43
GuyXL

Bonjour Charlotte, Chris,

le ";" dans un code c'est bizarre, en remplaçant avec une virgule ? Colonne1-12 représente quoi ? Peux tu poster un petit bout de code avec notamment l'initialisation des variables?

Cordialement

R
22/02/2011, 13h56
Charlotte00

Bon ok comme c le colonne1-12 qui pose problème

Code:

Min(colonne1;colonne1-12)

Je l'ai défini avant ma boucle colonne2= colonne1-12

et je veux calculer ca:

Code:

Min(colonne1,colonne2)

Merci
22/02/2011, 14h02
chris09300

comme le dit guyxl, un petit bout de code, ou un exemple concret de ce que tu souhaite, serait plus evident.
cris

Bonjour Charlotte, Chris,

On ne sait toujours pas ce que sont colonne1 et 2 comme type de variable dans ton code... En supposant que ce sont des objets range (plages de cellules) alors un petit exemple :

J'ai disposé 3 chiffres entiers de en "A1:A3", 3 chiffres entiers en "C1:C3". Pour avoir le minimum global on peut faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub test() Dim colonne1 As Range, colonne2 As Range, Minimum As Long Set colonne1 = Range(Cells(1, 1), Cells(3, 1)) Set colonne2 = Range(Cells(1, 3), Cells(3, 3)) Minimum = WorksheetFunction.Min(WorksheetFunction.Min(colonne1), WorksheetFunction.Min(colonne2)) '--------------------------------------------- '---------------CODE-------------------------- '-------------------------------------------- '-------------Fin de Sub---------------------- Set colonne1 = Nothing: Set colonne2 = Nothing End Sub
N'ayant pas précisé la feuille pour les objets Range, ce n'est valable que si les colonnes sont sur la feuille active.

Cordialement

R

22/02/2011, 15h32
Charlotte00

C bon j'ai réutilisé ton dernier pos, et ca marche maintenant
Merci
22/02/2011, 15h42
Godzestla

Bonjour,

chers amis, la solution a ce problème a déjà été abordée hier ou avant-hier. Regardez dans les précédents posts. :roll: