Discussion :

[bablight]

Bonjour à tous,
Voila une petite question, je voudrais récuperer la valeur d'une cellule pour l'incorporer dans un if. Exemple : je met " < 0" dans une cellule et je veux que mon if utilise ce fameux < 0.
J'avoue que je ne sais absolument pas comment faire.

je ne sais pas si je suis clair mais sinon je préciserai .

bab

[jfontaine]

si je comprend bien, tu veux utiliser la valeur d'une cellule comme symbole comparateur dans un if.
Je ne pense pas qu'il y ait une instruction qui permette de convertir du texte en symbole comparateur.
A moins que quelqu'un ait une ruse de siou

[bablight]

Vi voila c'est exactement ce que je veux faire.

[alsimbad]

en fait si cette cellule dois te servir de critere, tu met < 0 dans la cellule, mais tu ne te sert absolument pas de ce qui est inscrit dans la celllule. soit tu trouve une ruse

Code :

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

1
2
3
4
5
 
if cells(1,1) = "<0" or "<   0" then
clédetri = "< 0"
Selection.AutoFilter Field:=2, Criteria1:=clédetri
else .....

sinon, tu vas droit au mur
tu as plutot interet a prévoir une valeur dans cette cellule, et en fonction de cette valeur, tu fais ta boucle if ou un select case

[bablight]

bon ba si c'est pas possible c'est pas grave. Enfin ca ne me suprend pas vraiment car il faudrait recompiler a chaque fois sinon.

bab

[jfontaine]

Peut être un contournement, tu mets les choix de comparateur dans une liste dans une cellule afin de driver l'utilisateur, la valeur a comparer est sur la cellule a droite de celle qui contient les comparateurs

Ensuite tu fais le travail en 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
 
 
for i = 1 to 10
 
select case range("A" & i).value
 
     case ">"
         ...
     case "<"
         ...
 
end select
 
next i

[random]

en utilisant cette fonction

Code :

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

1
2
3
4
 
Function evalue(grandeur As Variant, condition As String) As Boolean
evalue = Evaluate(grandeur & condition)
End Function

et en utilisant une formule du genre
=SI(evalue(B7;B6);"vrai";"faux")

[zazaraignée]

Tu peux créer ta formule (ton if) dans une valeur de chaîne (String) et l'évaluer avec la fonction Eval. Pour pouvoir utiliser Eval, tu dois ajouter une référence dans ton projet VBA (Outils, Références) à Microsoft Scripting Runtime.