Symbole de condition d'un if dans une variable

Version imprimable

05/07/2016, 15h36
rob1son76

Symbole de condition d'un if dans une variable

Bonjour,

Je voudrai intégrer le symbole de mon if dans une variable.

AU lieu d'avoir :

Code:

If cells(i,j)="toto" then

Je veux :

Code:

If cells(i,j) & VAR_SYMBOLE & CONDITION1 then

Ou VAR_SYMBOLE vaut "=" ou "<>" ou ">" selon la valeur d'une cellule de ma base.
CONDITION1 vaut "toto" ou "" selon la valeur d'une cellule de ma base.

Je vous explique ce que j'essaye de faire:

je créé des fiches individuelles et je voudrai masquer certaine ligne selon des conditions.
Dans la colonne "N" (Qui n'est pas comprise dans mes marges d'impression de ma fiche individuelle) je marque la ligne et la colonne de la cellule de référence.
Dans la colonne "O" je marque le symbole de ma condition ("=", "<>",">" etc.)
Dans la colonne "P" je marque la valeur de ma condition

Exemple:
En cellule N5 j'ai 3_5
En cellule O5 j'ai =
En cellule P5 j'ai Toto

Je voudrai masquer la ligne 5 si la cellule E3 (3_5) = "Toto".

Est-ce que vous comprenez mon idée.
Je sais que j'ai du mal à être clair.

Merci
05/07/2016, 15h59
Marc-L

Bonjour,

via la puissante méthode Evaluate (voir l'aide VBA), exemple dans cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

Merci Marc pour ta réponse.

Je pense effectivement que ce doit être ma solution.
Mais je n'y arrive pas et mon aide VBA ne fonctionne pas.

Voici mon ébauche de programme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
   ' Masque les lignes
    nbli = Sheets(1).Cells(Rows.Count, 14).End(xlUp).Row 'num de la dernière ligne non vide
    For i = 1 To 40 'nbli
        If Sheets(1).Cells(i, 14) <> "" Then
        a = Split(Sheets(1).Cells(i, 14), "_")
        Condition0 = Sheets(1).Cells(Val(a(0)), Val(a(1))).Value
        Symb = " " & Sheets(1).Cells(i, 15) & " "
        Condition1 = """" & Sheets(1).Cells(i, 16) & """"
            If (Evaluate(Condition0 & Symb & Condition1)) Then
                Sheets(1).Rows(i).Hidden = True
            End If
        End If
    Next i

c'est cette partie la que je n'arrive pas à faire :

Code:

If (Evaluate(Condition0 & Symb & Condition1)) Then

Merci de votre aide.

Une p'tite démonstration :

Code:

1
2
3
4
5
6
Sub Demo1()
        Const SYMB = "=", COND = "toto", GU = """"
    For Each V In Split("titi toto")
        MsgBox V & " : " & Evaluate(GU & V & GU & SYMB & GU & COND & GU)
    Next
End Sub

Ou encore :

Code:

1
2
3
4
5
6
7
Sub Demo2()
        Const F = """#1""#2""#3"""
        Const SYMB = "=", COND = "toto"
    For Each V In Split("toto tutu")
        MsgBox V & " : " & Evaluate(Replace(Replace(Replace(F, "#1", V), "#2", SYMB), "#3", COND))
    Next
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …