Merci irem pour ta reponse.en fait j'ai un programme à ecrire en vb6 professionnel dans le cadre d'un projet d'ecole.l'enoncé est le suivant:
Dans l'enclypedie des jeux 2007, il a fallu utiliser 2007 fois "1" pour numeroter toutes les pages.
Ecrire un programme VB6 qui puisse nous permettre de determiner le nombre de pages de cette encyclopedie.
Nb: Quand on numerote par exemple de 1 à 20, on utilise 12 fois 1!

Sur le forum j'au eu une esquisse de solution ou intervient la fonction SUBSTRING mais je suis pas très sur kel fonctionne.Je voudrais avoir ton avis la dessus.ci dessous la solution:

Option explicit

dim i as integer
dim chaine as string
dim nb_page as integer

nb_page =0
i=0

While (i<>2007)

chaine=str(i) 'j'ai des doutes quant à la syntaxe de conversion d'un entier en chaine de caractères

'ici tu lis ta chaine de caractères en mettant un if du style

' On parcourt tant qu'il reste des "1" dans la chaine.
j=0
while(substring(j,chaine,"1")>0)
nb_page=nb_page+1
j=substring(j,chaine,"1")
wend
i=i+1 'indispensable pour ne pas avoir de boucle infini!

Wend