Page 1 sur 1

pb incrementation compteur

MessagePublié: 01 Août 2003 à 16:05
par tang
bonjour Je veux faire compter le nombre de gens présent sur une liste, le nombre de gens qui m'ont donné une réponse positive. J'ai également un champ qui me permet de savoir si tout le monde m'a répondu.J'ai un problème avec countOK. J'ai 3 bonhommes dans ma listeil m'affiche le bon nombre : count = 2 ( 0 compte ) personne 1 personne2 personne3count 2 2 2countOK 0 0 1countReponse 2 1 0Entre chaque personne, il y a une phase de validation. Quand personne 1 valide, il faudrait que mon countOK passe à 1 et il reste à 0 alors que quand personne2 valide, count OK est bien incrementequelqu'un aurait-il une idée du pourquoi du comment et surtout comment corriger évidemment ?MerciLe code est dessous'ajout test values = doc.getItemValue("auteur_approbateur")count = Ubound(values)Msgbox " count appro" + countDim i As IntegervaluesOK = doc.getItemValue("ok")For i = 0 To Ubound(valuesOK)Msgbox valuesOK(i) countOK = Ubound(valuesOK) Msgbox " count OK : " + countOK + valuesOK(i)Next valuesReponse = doc.getItemValue("ActeurEnApprob")countReponse = Ubound(valuesReponse)Msgbox " count reponse" + countReponse If countReponse > 0 ThenCall SGbl_Reponse("repapprob", "ActeurEnApprob" , "Redacteur" , "ValidationApprob" , "AnnotationApprob" , "Réponse de l'approbateur : ", "En préparation", "En approbation", "En approbation","TotalOK", "DestinataireApprob", "auteur_approbateur") Else If count <> countOK Then Call SGbl_Reponse("repapprob", "ActeurEnApprob" , "Redacteur" , "ValidationApprob" , "AnnotationApprob" , "Réponse de l'approbateur : ", "En préparation", "En rédaction", "En rédaction","TotalOK", "DestinataireApprob", "auteur_approbateur") Else Call SGbl_Reponse("repapprob", "ActeurEnApprob" , "Redacteur" , "ValidationApprob" , "AnnotationApprob" , "Réponse de l'approbateur : ", "En préparation", "En approbation", "En approbation","TotalOK", "DestinataireApprob", "auteur_approbateur") End If End If