If x & CBComparateur & y Then

Roland_M

XLDnaute Barbatruc

• 14 Mars 2009

• #2

Re : If x & CBComparateur & y Then

bonsoir

à mon humble avis non !
surtout que si x="abc" et y="def"
ça donne if "abc=def" en une seule chaine !

de plus c'est d'aucun intérêt !

 

Dernière édition: 14 Mars 2009

Vote positif 0 Vote négatif

P

pacoako

XLDnaute Occasionnel

• 14 Mars 2009

• #3

Re : If x & CBComparateur & y Then

Roland_M à dit:

bonsoir

à mon humble avis non !
surtout que si x="abc" et y="def"
ça donne if "abc=def" en une seule chaine !

de plus c'est d'aucun intérêt !

Cliquez pour agrandir...

Salut Rolan,

En fait mon intérêt est que je voudrais que l'utilisateur puisse décider quel opérateur est utilisé lors d'une recherche dans la base de données...

Un peu de la même manière que l'on peut filtrer les données avec le filtre automatique (personalisé).

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Mars 2009

• #4

Re : If x & CBComparateur & y Then

Bonsoir,

Code:

Sub Comparaison()
comparateur = ">"
x = Evaluate(30 & comparateur & 20)
MsgBox x 'resultat Vrai
comparateur = "+"
x = Evaluate(30 & comparateur & 20)
MsgBox x 'resultat 50
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

P

pacoako

XLDnaute Occasionnel

• 14 Mars 2009

• #5

Re : If x & CBComparateur & y Then

Ahhh vraiment cool cette fonction, on en apprend tout les jours!

Merci KJin!

En passant, est-ce que cette fonction fonctionne juste pour comparer des valeur numérique ou elle fonctionne aussi pour des «Strings» ?

exemple :

Code:

Sub Comparaison()

Dim Comparateur As String
Dim a As String
Dim b As String
Dim x As Boolean

a = "ABC"
b = "ABC"

comparateur = "="
x = Evaluate(a & Comparateur & a)
MsgBox x 'VRAI??? 

b = "CBA"
x = Evaluate(a & Comparateur & a)
MsgBox x 'Faux??? 

End Sub

Moi ici j'obtient une erreur de compatibilité de type...

 

Dernière édition: 14 Mars 2009

Vote positif 0 Vote négatif