écriture de code VB via des valeurs de paramètre

Version imprimable

27/06/2008, 20h54
CGANE

écriture de code VB via des valeurs de paramètre
Bonjour à tous,

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

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 ?

bonsoir,

Pourquoi ne pas faire tout simplement:

Code:

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/

02/07/2008, 09h11
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
02/07/2008, 09h34
Gorfael
Salut CGANE et le forum
Code:

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+

Salut,

Citation:

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:

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:

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:

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:

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