VB Excel - Utiliser une variable pour conditionner une boucle - VB/VBA/VBS - Programmation
Marsh Posté le 30-06-2005 à 16:56:51
Bon........ 
J'ai trouvé une astuce toute co*nne: 
Je vais mettre des conditions: 
 
If ChOiX=">" then 
   Do until cells(i,1)>1000 
     i=i+1 
   loop 
elseif ChOiX="=" then 
   Do until cells(i,1)=1000 
     i=i+1 
   loop 
elseif ChOiX="<" then 
   Do until cells(i,1)<1000 
     i=i+1 
   loop 
end if 
 
mais bon, ça passe ici car y'a pas bcp de choix mais je suis pas satisfait. donc si quelqu'un a une idée: qu'il la mette! Merci! 
Marsh Posté le 30-06-2005 à 17:50:03
Salut Escartephil 
 
un select case serait plus rapide que if puisque la macro ne serait pas obligée d'éliminer les choix les uns après les autres: 
 
Select case choix 
case is = "=" 
Do until cells(i,1)=1000  
i=i+1  
loop  
case is = ">" 
Do until cells(i,1)>1000  
i=i+1  
loop  
... 
 
Mais ça ne résoud pas ton problème.. 
 
Ron
Marsh Posté le 30-06-2005 à 15:34:50
Bonjour!
Alors ma requete est délicate à expliquer (vais-je trouver un sujet adapté à mon problème?!)
Voilà le contexte:
A travers un UserForm, l'utilisateur donne des renseignements nécessaires à une recherche:
il choisit notamment entre ">", "=" ou "<".
Or, je souhaiterai récupérer ce choix (par exemple dans la variable ChOiX) pour effectuer la recherche avec une macro.
Cela donnerait quelque chose du genre:
Do until cells(i,1) & ChOiX & 1000
i = i + 1
loop
Bien évidemment, ceci ne fonctionne pas. J'ai beau me casser la tête, je n'arrive pas touver une astuce pour réaliser cette opération.
Pourriez vous m'aider?
Merci d'avance,
Phil.