Discussion :

[CGANE]

Bonjour à tous,

J'essaye de constituer un code VB en passant les valeurs qui constituent ce code dans des variables paramètre.
Exemple :

Code :

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

1
2
3
4
5
6
if tri="xlAscending" then Operateur= >
if tri="xlDescending" then Operateur= <
 
Do While ActiveCell & Operateur & range("P_Crit_Seuil")
...
Loop

Simplement je ne peux pas définir la valeur de Operateur sans le Double Cote " ",
ce qui pose problème lors de la constitution de l'instruction Do While, car l'instruction ActiveCell ">" Range(.. ne veut rien dire !!

Quelqu'un peut-il m'aider ?

[tirex28]

bonsoir,

Pourquoi ne pas faire tout simplement:

Code :

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

1
2
3
4
5
6
7
8
9
If tri = xlAscending Then
    Do While ActiveCell > Range("P_Crit_Seuil")
    ...
    Loop
Else
    Do While ActiveCell < Range("P_Crit_Seuil")
    ...
    Loop
End If

Cordialement,

Tirex28/

[CGANE]

Bonjour,

Merci pour ta proposition

Effectivement, je peux faire de cette façon , mais je voulais éviter de dupliquer les instructions car c'est la même boucle mais avec des conditions différentes.

Bonne journée

[Gorfael]

Salut CGANE et le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Flg As Boolean
Dim X As Integer
X = 1
Flg = True
Do While IIf(Flg, ActiveCell > 5, ActiveCell < 5)
    Range("A" & X).Select
    X = X + 1
Loop
End Sub

Tu mets 10 en A1, A2, A3 et tu testes en pas-à-pas, puis tu mets Flg à false et tu efface A1 et A2 et tu retestes.
Mais utiliser activecell est à mon sens une absurdité : les select ralentissent énormément la macro, et s'en passer est toujours mieux. Avec ton code, on pourrait peut-être le simplifier
A+

[Godzestla]

Salut,

Effectivement, je peux faire de cette façon , mais je voulais éviter de dupliquer les instructions car c'est la même boucle mais avec des conditions différentes.

Le problème de VBA intérprété par rapport à d'autres langaghes compilés c'est que tu ne peut pas écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
 
If tri = xlAscending Then
    Do While ActiveCell > Range("P_Crit_Seuil")
Else
    Do While ActiveCell < Range("P_Crit_Seuil")
End If
  ...
 Loop

Mais rien ne t'empêche d'écrire ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
If tri = xlAscending Then
    Do While ActiveCell > Range("P_Crit_Seuil")
     ma_fonction().
    Loop
Else
    Do While ActiveCell < Range("P_Crit_Seuil")
     ma_fonction()
    Loop
End If
 
Function ma_fonction()
....
end function

:

ou encore

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
16
 
dim test as boolean
If tri = xlAscending Then
   test = ActiveCell > Range("P_Crit_Seuil")
 else
  test = ActiveCell < Range("P_Crit_Seuil")
endif
 
Do While test
     ....
    If tri = xlAscending Then
      test = ActiveCell > Range("P_Crit_Seuil")
     else
     test = ActiveCell < Range("P_Crit_Seuil")
    endif
Loop

:

ou encore

Code :

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

1
2
3
4
 
    Do While ((tri = xlAscending and ActiveCell > Range("P_Crit_Seuil") or (tri <> xlAscending and ActiveCell < Range("P_Crit_Seuil"))
     ...
    Loop