remplir un tableau de résultat

[natorp]

bjr à tout le forum

je cherche, par l'intermédiaire d'un userform à remplir un tableau de résultats de course,
pour chaque concurrent reconnu par un n° de dossard il me faut lui attribuer un temps
si un n° de dossard n'existe pas dans la liste il me faudrait un message d'erreur (dans l'essai du fichier joint le message d'erreur apparaît à tous les coups)

merci de votre attention
Gérard [file name=resultat_20060208154718.zip size=12515]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/resultat_20060208154718.zip[/file]

 

[mutzik]

bonjour natorp

mets ceci :
Ligne = 0
I = UserForm3.TextBox3.Value * 1
For K = 1 To Range('C65536').End(xlUp).Row
If Range('C' & K).Value = I Then Ligne = K
Next K
Worksheets('Feuil1').Cells(Ligne, 4).Value = UserForm3.TextBox2.Value
If Ligne = 0 Then
MsgBox ('Attention ce N° de dossard n'existe pas !')
TextBox2.Value = ''
TextBox3.Value = ''
TextBox3.SetFocus
End If

 

[natorp]

merci
je suis au boulot, je teste ce soir et vous tiens au courant
Gérard

 

[natorp]

bonjour
je viens de tester :
- quand j'entre un dossard existant, c'est ok mais les 2 textbox ne se vident plus
- quand j'entre un dossard inexistant, j'ai une erreur programme sur la ligne :
Worksheets('Feuil1').Cells(Ligne, 4).Value = UserForm3.TextBox2.Value

merci de votre attention
Gérard