modifier des lignes existantes via un formulaire

[izumi]

Bonjour à toutes et à tous, j'ai créé un tableau pour inscrire des compétiteurs à un tournoi de judo via un formulaire, je ne connais rien en vba et mon problème est que je n'arrive pas à faire marcher un bouton pour modifier les entrées en sélectionnant la ligne de l'entrée en question avec un combobox reprenant les noms déjà rentrés.
J'ai mis mon fichier en pièce jointe.

Merci d'avance j'ai bientôt plus de cheveux à force de les arracher.

 

[CHALET53]

Re : modifier des lignes existantes via un formulaire

Bonjour,

Un essai pour le bouton et quelques corrections
Ta combobox en bas à droite te donne la liste des individus
a+

 

[izumi]

Re : modifier des lignes existantes via un formulaire

Merci beaucoup Chalet53, c'est exactement ce dont j'avais besoin.

A+

 

[izumi]

Re : modifier des lignes existantes via un formulaire

Après test plus approfondi, il reste 2 petits problèmes: la modification des textbox est sans effet dans le tableau (Club, Nom, Pesée) et le bouton "saisir" ne marche pas (ça renvoie sur la fenêtre vba avec "stop" surligné en jaune). Dernier point, serait-il possible d'ajouter dans le userform un bouton "supprimer le combattant" et un bouton "nouveau combattant" pour pouvoir rajouter une entrée après une modification sans devoir fermer et ré-ouvrir le formulaire.
En tout cas un grand merci pour l'aide déjà apportée.

 

[CHALET53]

Re : modifier des lignes existantes via un formulaire

Re,

Un essai

a+

 

[izumi]

Re : modifier des lignes existantes via un formulaire

Essai réussi, c'est nickel. Un grand merci à toi.

Sans vouloir abuser, j'aimerais que le contenu de la variable pesée soit un nombre afin de pouvoir l'intégrer dans une autre formule. Je suppose qu'il faut ajouter quelque part "dim Pesée as Single" mais je ne suis pas sûr et je ne sais pas où le placer.

@+

 

[CHALET53]

Re : modifier des lignes existantes via un formulaire

Bonjour,
Rajoute cette procédure dans l'ensemble des procédures associées au Userform

Private Sub Pesée_Change()
If Pesée = "" Then Exit Sub
If Not IsNumeric(Pesée) Then
MsgBox ("Saisie numérique uniquement"): Pesée = ""
End If
End Sub

 

[izumi]

Re : modifier des lignes existantes via un formulaire

Merci beaucoup

@+