Discussion :

[marsupilami34]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[random]

é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

[Lexot2]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lexot2]

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.

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

Cordialement

[Lexot2]

Rebonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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