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
- Exclure des valeurs dans une boucle
- Concaténer les valeurs d'une boucle while [Résolu] (Résolu) » Forum - PHP
- Récuperer les valeurs de variables qui appartiennent à une autre fonction. » Forum - C# / .NET
- Excel - exclure des valeurs dans une fonction de base » Forum - Visual Basic 6
- Xslt: test sur noeuds sans valeurs imbriqué dans boucle for each » Forum - VB.NET
- Boucle transposant valeurs entre deux feuilles » Codes sources - Visual Basic / VB.NET (VBA)
6 réponses
Meilleure réponse
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
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 93 internautes ce mois-ci
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
@+
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
@+
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
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.