Remplir 2 feuilles avec un seulUF

Bonsoir, le forum

Je travaille sur une petite application dans laquelle il y a une liste nominative des profs et un formulaire pour faciliter la rédaction des rapports de visite pour les enseignants d'éducation .

Le tout marche bien mais je souhaite avancer un peu

Je souhaite utiliser ce formulaire pour remplir un rapport prof et mettre à jour les infos de ce prof dans la liste nominative (c’est-à-dire mon UserForm doit remplir deux feuilles déférentes) s’il y a un manque d’infos ou faire entrer une nouvelle note.

Merci d'avances pour vos aides

Cordialement

Fichiers joints

Bonjour,

Je souhaite utiliser ce formulaire pour remplir un rapport prof et mettre à jour les infos de ce prof dans la liste nominative (c’est-à-dire mon UserForm doit remplir deux feuilles déférentes) s’il y a un manque d’infos ou faire entrer une nouvelle note.

ce n'est pas clair, quel info voulez-vous transférer dans l'onglet (Base ?) et sur quel champ ?

il y a surement 1 ou 2 controls sur le uf qui sont définis pour NOM et PRÉNOM (prof)

donc les colonnes A et B de l'onglet "Base"

ceux ci servirons à déterminer la ligne sur l'onglet "Base"

mais par la suite, quel controls (valeur) sur quel colonne ?

ps/ à proscrire sur les fichier joint, les macro Workbook_Open et Workbook_BeforeClose et les mdp

Merci bien pour ta réponse

je souhaite transférer uniquement la note (colonne H sur feuil Base) de la dernière visite.

re,

Quel sont le ou les controls pour NOM et PRÉNOM (prof) ?

Nom et Prénom c'est textbox nommé "f_ent4" et la Note f_ent40

re,

Nom et Prénom c'est textbox nommé "f_ent4" et la Note f_ent40

il n'y a pas de control nommé "f_ent4" et f_ent40 sur le fichier que tu as transmit.

Édit:

est que c'est "Nom et Prénom du stagiaire" control TexBox c_ent5 ?

info qui doit se retrouver sur la feuille "Base" colonne A ?

a oui tu as raison merci bien

dessolé je me suis trompé

Nom et prénom stagiaire "c_ent5" et La note d'évaluation c'est sur "c_ent34"

ces infos sont feuil "Base" colonne A3:A et la note d'evalu colonne H3:H

re,

modifier la macro Private Sub c_ent2_AfterUpdate() comme ceci,

Private Sub c_ent2_AfterUpdate()
c_ent2.Value = Format(c_ent2.Value, "00")
  With Sheets("Base")
    Set Cel = .Columns("A").Find(what:=Me.c_ent5, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then .Cells(Cel.Row, "H") = c_ent2.Value
  End With
End Sub

Édit: remplacer c_ent2 par c_ent34 dans la macro

Merci bien i20100

je vais tester la macro

Merci i20100 tu as bien avancé mon document.

Cela fonctionne bien, il me reste a faire des retouches

Merci encore pour ce coup de main, Bon-soirée.