Exclure des valeurs dans une boucle [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Exclure des valeurs dans une boucle [Résolu]

evilmajestik 38 Messages postés lundi 13 janvier 2003Date d'inscription 5 juillet 2005 Dernière intervention - 20 déc. 2004 à 13:14 - Dernière réponse : cs_labout 1356 Messages postés samedi 8 décembre 2001Date d'inscription 23 octobre 2006 Dernière intervention

- 20 déc. 2004 à 20:49

Visual Basic Posez votre question Signaler Répondre au sujet

Salut all,

Je voudrais savoir si on peut dire à une boucle "n'exécute pas le traitement si mon compteur prend telle valeur".

Exemple dans un export excel :

For row = 23 To 50

XlApp.ActiveSheet.Cells(row, col) = rcsAuditEval.Fields(field)

field = field + 1

Next

Sans faire le test avec un Si (car je peux avoir bcp de valeurs à exclure), comment puis-je faire pour lui dire de ne pas faire le traitement quand row prend les valeurs 42, 45, 48, 49 par exemple ?

Merci à tous.

Afficher la suite

6 réponses

Signaler Commenter la réponse de cs_DARKSIDIOUS

cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 déc. 2004 à 13:29

0

Utile

Tu peux soit faire plusieurs boucles, soit faire un select case.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Signaler Commenter la réponse de cs_labout

cs_labout 1356 Messages postés samedi 8 décembre 2001Date d'inscription 23 octobre 2006 Dernière intervention - 20 déc. 2004 à 13:39

0

Utile

labout

Je metrais les valeur dans un tableau 1 valeur par élément
puis je parcourerais le tableau pour voir si la valeur est dedans

Dim aTab(10) as string
atab(0)="23"
atab(0)="24"
atab(0)="28"

For row = 23 To 50

if testeRow(atab,row) =false then
XlApp.ActiveSheet.Cells(row, col) = rcsAuditEval.Fields(field)
endif
field = field + 1

Next

function TestRow(tableau,row) as boolean
dim i as integer
TestRow=false
for i=0 to ubound(tableau)
if tableau(i)=row then
testrow=true
exit for
endif
next

@+

Signaler Commenter la réponse de cs_labout

cs_labout 1356 Messages postés samedi 8 décembre 2001Date d'inscription 23 octobre 2006 Dernière intervention - 20 déc. 2004 à 19:47

0

Utile

labout

je crois que le tableau était dans ma proposition
@+

Signaler Commenter la réponse de cs_CanisLupus

cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 20 déc. 2004 à 20:20

0

Utile

Mais je faisais référence à ta proposition labout :) , quoiqu'avec
atab(0)="23"
atab(0)="24"
atab(0)="28"

on obtient
atab(0) ="28"
et tout le reste à ""

d'autre part, un tableau de string dans le cas présent n'est pas le top étant donné que les valeurs de row sont numériques.

Cordialement, CanisLupus

Signaler Commenter la réponse de cs_labout

cs_labout 1356 Messages postés samedi 8 décembre 2001Date d'inscription 23 octobre 2006 Dernière intervention - 20 déc. 2004 à 20:49

0

Utile

labout

Oui mais ce n'est pas du VB.net pointilleux sur ce point là
pour les atab(0))"23"
if s'agit bien sur d'une erreur le suivant est atab(1) etc..
du à un copier coller !
@+

Accepted Answer

+3

Utile

Salut,

OK avec DARKSIDIOUS, je crois que le mieux est le select case :

For row = 23 To 50

select case row
case 42, 45, 48, 49
case else
XlApp.ActiveSheet.Cells(row, col) = rcsAuditEval.Fields(field)
field = field + 1
end select
Next

A la place des valeurs en dur (42, 45, 48, 49) tu peux mettre des variables (pourquoi pas des valeurs d'un tableau d'ailleurs).

Cordialement, CanisLupus

Cette réponse vous a-t-elle aidé ? Oui Non

Exclure des valeurs dans une boucle [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !