doublon???

dim util$(10),mdp$(10),grad$(10)
dim n

for n=2 to 10
util$(n)=""
mdp$(n)="BONJOUR"
grad$(n)="INACTIF"
next n

util$(1)="JEAN CLAUDE"
mdp$(1)="ADMIN"
grad$(1)="ADMINISTRATEUR"

file_open_write 1,"utilisateur.cfp"
for n=1 to 10
file_writeln 1,util$(n)
file_writeln 1,mdp$(n)
file_writeln 1,grad$(n)
next n
file_close 1
end

label quit,demar,aide,selection,lignesup,supprim,supprime,enregistre
label nouveau,ajoute,doublon

dim util$(10),mdp$(10),grad$(10)
dim utilsel$,ligsup$,utilp$,doublon$
dim n,nu

left 0,50:top 0,50:width 0,587:height 0,537
caption 0,"COMPTE FAMILIALE *  Gestion Des Utilisateurs *"
on_click 0,selection

alpha 1
left 1,93:top 1,34:width 1,113
caption 1," Liste Des Utilisateurs"

list 2
left 2,61:top 2,61:width 2,170:height 2,149
on_click 2,selection

button 3
left 3,108:top 3,377
caption 3,"Ajouter "
inactive 3
on_click 3,ajoute

button 4
left 4,110:top 4,231
caption 4,"Supprimer"
on_click 4,supprim
inactive 4

edit 5
left 5,84:top 5,346
inactive 5
on_change 5,nouveau

alpha 6
left 6,113:top 6,319
caption 6,"  Nouveau"
inactive 6

button 7
left 7,242:top 7,377:width 7,148
caption 7,"Enregister les Modifications"
on_click 7,enregistre
inactive 7

button 8
left 8,421:top 8,377
caption 8,"Quitter"
on_click 8, quit

memo 9
left 9,261:top 9,61:width 9,110:height 9,149
font_color 9,0,0,255

alpha 10
left 10,270:top 10,35
caption 10,"    Statut"

button 11
left 11,273:top 11,231
caption 11,"Modifier"
inactive 11

combo 12
left 12,400:top 12,61
item_add 12,""
item_add 12,"ADMINISTRATEUR"
item_add 12,"ACTIF"
item_add 12,"INNACTIF"
inactive 12

alpha 13
left 13,379:top 13,39:width 13,127
caption 13,"  Changer le Statut"

alpha 14
left 14,40:top 14,447:width 14,501
caption 14,"ATTENTION: la Création d'un nouvel Utilisateur lui affecte automatiquement le mot de passe  BONJOUR"

button 15
left 15,4:top 15,3:width 15,41
caption 15,"AIDE"
on_click 15,aide

form 16
left 16,650:top 16,50:width 16,587:height 16,537
caption 16,"Gestion Des Utilisateurs * Aide *"
hide 16
color 16,255,255,255
font_color 16,0,0,255

button 17
left 17,70:top 17,231:width 17,150
caption 17,"Confirmer la Suppression"
on_click 17,supprime
hide 17


rem -------------------------------------------------------------------
gosub demar

end
rem -------------------------------------------------------------------


Ajoute:
inactive 5:inactive 6:inactive 3
item_insert 2,nu,utilp$
item_delete 2,11
text 5,""
gosub doublon
if doublon$="o" then utilp$="":item_delete 2,nu:message "Cet utilisateur existe déja"
active 12
return

rem <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ça marche pas <<<<<<<<<<<<<<<<<<<<<
doublon:
doublon$=""
for n=1 to 10
if util$(n)=utilp$ and n<>nu then doublon$="o":return
next n
return

nouveau:
utilp$=upper$(text$(5))
if len(utilp$)<3 then return
active 3
return

supprime:
active 7
item_delete 2,nu:util$(nu)="":item_delete 9,nu:grad$(nu)="INACTIF":mdp$(nu)="BONJOUR"
hide 17
return

supprim:
inactive 4
message "ATTENTION: supprimer un utilisateur provoque l'éffacement de tous les fichiers le concernant "
show 17
return

selection:
hide 17:inactive 12
utilsel$=item_index$(2):nu=item_index(2):active 4
print_locate 30,50:print "  ":print_locate 30,50:print nu
if nu=1 and utilsel$="" then inactive 4:active 5:active 6:return
if utilsel$="" then gosub lignesup:inactive 4:inactive 12:return
inactive 5:active 12
return

rem pour eviter un blanc entre 2 lignes
lignesup:
n=nu-1:if n<1 then return
ligsup$=item_read$(2,n)
if ligsup$ = "" and n<9 then inactive 5:inactive 6:inactive 12:return
active 5:active 6
return

aide:
show 16
print_target_is 16
print_locate 10,20
print " - Pour Ajouter un nouvel utilisateur sélectionner un champ vide, inscrivez son nom dans le champs 'Nouveau'"
print "  et cliquez sur Ajouter. Remarque: le nom de l'utilisateur ne sera plus modifiable une fois enregistré"
print_locate 10,70
print " - Pour Supprimer un utilisateur sélectionnez son nom dans le champ 'Liste des utilisateurs' et cliquez sur Supprimer"
print_locate 30,90
print "Remarque: supprimer un utilisateur provoque l'éffacement de tous les fichiers le concernant "
print_locate 30,110
print "Il est préférable de modifier son statut"
print_locate 10,150
print " - Pour Modifier le Statut d'un utilisateur sélectionnez son nom dans le champ 'Liste des utilisateurs', séléctionnez"
print "  le Statut souhaité dans le champ 'Changer le Statut' et cliquez sur Modifier"
print_locate 30,200
print "Remarque: le Statut Inactif autorise seulement l'utilisateur concerné de visualiser"
print_locate 30,220
print "                  le Statut Administrateur autorise la gestion des Utilisateurs, sauf leur mot de passe "
print_locate 60,300
print "Les Modifications ne seront Valider que si vous cliquez sur le bouton 'Enregistrer Les Modifications' "
print_target_is 0
return

demar:
file_open_read 1,"utilisateur.cfp"
for n=1 to 10
file_readln 1,util$(n)
file_readln 1,mdp$(n)
file_readln 1,grad$(n)
item_add 2,util$(n)
item_add 9,grad$(n)
next n
file_close 1
return

enregistre:
file_open_write 1,"utilisateur.cfp"
for n=1 to 10
file_writeln 1,util$(n)
file_writeln 1,mdp$(n)
file_writeln 1,grad$(n)
next n
file_close 1
return

quit:
terminate

Ajoute:
gosub doublon
inactive 5:inactive 6:inactive 3
item_insert 2,nu,utilp$
item_delete 2,11
if doublon$="o" then utilp$="":item_delete 2,nu:util$(nu)="":message "Cet utilisateur existe déja"
if doublon$="" then util$(nu)=utilp$
text 5,""
active 12
return