Opérateur de comparaison

[lerexcel]

Bonsoir à tous les passionnés d'excel et VB...


J'ai une petite question pour les connaisseurs...
Sauriez-vous faire comprendre à VB que lorsqu'on saisie ">500" dans une cellule on aimerait faire une comparaison algébrique ?

Ex: en A1 = 500
en A2 = ">500"

Réponse de VB : range("A1") & range("A2") = False.... sauriez-vous faire ??

Merci pour votre précieux savoir...

 

[smotty]

Re : Opérateur de comparaison

Bonsoir,

Voici en fichier joint un exemple.

Une fonction "comparer" a été placée dans un module.

Voir les fonction tappées en exemple, elles comparent les cellule en colonne A et B.

Il suffit donc de tapper dans une cellule : =comparer(A1;A2) pour qu'elle donne un résultat.

Cordialement

 

[lerexcel]

Re : Opérateur de comparaison

Merci,

Cela fonctionne pas avec "<=1500". Donc au vue de la fonction, il faut décomposer le texte et le retranscrire, ce qui est trop long pour l'utilité que je vais en faire.
VB n'a donc aucun moyen de deviner (1000 "<=1000") = True ?

 

[ROGER2327]

Re : Opérateur de comparaison

Bonsoir à tous

Voilà quelque chose qui doit fonctionner :​

Function Comparer(ByVal A, ByVal B) As Variant
    If (Not IsEmpty(A)) And IsNumeric(A) And B <> "" Then
        Select Case Mid$(B, 1, 2)
            Case ">="
                If A >= Val(Mid$(B, 3, Len(B) - 2)) Then Comparer = True Else Comparer = False
            Case "<="
                If A <= Val(Mid$(B, 3, Len(B) - 2)) Then Comparer = True Else Comparer = False
            Case Else
                Select Case Mid$(B, 1, 1)
                    Case ">"
                        If A > Val(Mid$(B, 2, Len(B) - 1)) Then Comparer = True Else Comparer = False
                    Case "<"
                        If A < Val(Mid$(B, 2, Len(B) - 1)) Then Comparer = True Else Comparer = False
                    Case Else
                        If A = Val(Mid$(B, 2, Len(B) - 1)) Then Comparer = True Else Comparer = False
                End Select
        End Select
    Else
        Comparer = ""
    End If
End Function

En colonne B, on place simplement >=500 ou '=500 ou <500, mais pas ">=500" ou "=500" ou "<500".​

En espérant que cela vous plaise...​

Bonne nuit,
ROGER2327

 

[ROGER2327]

Re : Opérateur de comparaison

Rebonsoir, j'ai oublié le classeur !

 

[lerexcel]

Re : Opérateur de comparaison

merci beaucoup cela fonctionne très bien...^^