[VBA-Excel] affecter la valeur infinie à une variable

Bonjour,

Je souhaiterais comme le titre l'indique affecter la "valeur" infinie à une variable.

Code:

---

1 2 3

Dim valeur_min as double valeur_min = '?????? L'infinie

---

Ensuite, comme je cherche la valeur min d'une colonne excel je peux ensuite faire ceci

Code:

---

1 2 3 4

If cells(i,3)<valeur_min then valeur_min=cells(i,3) End if

---

Je pourrais très bien poser dès le départ

Code:

---

1 2	valeur_min=cells(1,3)

---

puis comparer ensuite, mais ùmon problème, c'est que je ne compare pas forcément à partir de la ligne 1.

Par exemple, j'arrive à une ligne i ou ma désignation est "A"
A partir de cette ligne, je fais un test à partir de i de manière à trouver désignation="B" des lignes suivnates et je récupère le min associé.

Si quelqu'un peut m'aider.

Merci d'avance

évidemment on ne peut pas représenter l'infini en informatique en tant que grandeur
par contre tous les types de données ont une valeur maximale
par exemple le double vaut 1.7e308
c'est à dire 1.7 *10 suivui de 307 zéros
c'est évidemment pas l'infini
mais si tu poses mavar=10^307 il va être difficile de trouver des grandeurs
plus grandes

8-) Bonjour

On peut rechercher la valeur min d'une colonne à l'aide d'une fonction

Code:

---

1 2	Dim debut As Integer, fin As Integer, col As Integer, va As Double, ic As Integer ' déclaration à mettre en début de module

---

Code:

---

1 2	Range("A2").Value = mini(4, 29, 2) 'Exemple d'utilisation de la fonction

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function mini(debut, fin, col)   Cells(debut, col).Select va = 1000000 For ic = debut To fin If ActiveCell.Value < va Then va = ActiveCell.Value End If ActiveCell.Offset(1, 0).Select Next ic mini = va   End Function

---

Cette fonction recherche la valeur minimale d'une colonne "col", à partir de la ligne "debut" jusqu'à "fin"
Dans l'exemple, on recherche la valeur minimale à partir de la ligne 4 jusqu'à la ligne 29 dans la colonne B, et on la place dans la cellule A2.
Dans l'exemple, j'ai choisi une valeur va < 1 million, mais on peut aller jusqu'à 10^308

Citation:

---

Envoyé par marsupilami34

Bonjour,

Je souhaiterais comme le titre l'indique affecter la "valeur" infinie à une variable....

---

Citation:

---

Envoyé par Lexot2

Code:

---

1 2 3 4

.... va = 1000000 For ic = debut To fin ...

---

...

---

eu... Lexot2.. tu n'as pas l'impression que le marsup.. il le connai déjà ton code..? 1000000 ..? = infini..?

sinon pour ton probléme marsup... voici une adaptation du code à lexot2.. qui utilise la premiére valeur testée pour initialiser la variable de test, utilise ce principe dans ton code ..:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function mini(debut, fin, col) dim va as double   For ic = debut To fin if ic = debut then va = Cells(ic,Col).value endif If Cells(ic,Col).Value < va Then va = ActiveCell.Value End If Next ic mini = va   End Function

---

8-) Bonsoir

Merci bbil pour l'amélioration de mon code. Depuis ma venue dans ce forum, je sais que "select" et "activate" ne sont pas les bienvenues dans les procédures vba. Mais je ne suis qu'un autodidacte, et j'ai appris le vba-e avec l'enregistreur de macro, les tutoriels et les livres.

Je ne prétends pas être un expert, mais c'est avec une grande satisfaction que je constate la validité de mes codes, même si y on ajouterait la mention "perfectible".

Pour terminer, je suppose que tu as lu mon message avec un filtre qui a rendue cette phrase indécelable, comme s'il s'agissait de l'encre sympathique.

Citation:

---

Dans l'exemple, j'ai choisi une valeur va < 1 million, mais on peut aller jusqu'à 10^308

---

Cordialement

8-) Rebonsoir

Dans le but de simplifier davantage le code proposé par bbil, j'ai écrit ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function mini(debut, fin, col)   va = Cells(debut, col).Value For ic = debut To fin If Cells(ic, col).Value < va Then va = Cells(ic, col).Value End If Next ic mini = va   End Function

---

Aucune valeur référence n'est nécessaire, ni 1000000, ni 10^308, ni l'infini

Cordialement