Copier une liste sur sur 2 feuil

Bonjour

Je cherche un peu d'aide, voilà je voudrais améliorer un de mes programme mais je bloque sur des choses simples j'en suis sur, mais je bloque quand même...

J'ai mis un fichier simplifier en P.J afin de voir se que je souhaite.

J'aimerai garder la feuil "Analyse" afficher et masquer toutes les autres se qui m'oblige à ouvrir l'Usf sur une feuil différente de sa BDD puis que la liste des agents correspondante se copie également dans le tableau de la feuil qui reste affichée.

Quelques explications sont dans le fichier.

Merci à vous

Cordialement

Bonjour

A tester

Bonjour banzai64

Merci d'avoir pris du temps pour mon post.

Je regarde à ça plus en détails et te dit si c'est bon, mais à priori ça à l'ère bon j'en doute pas.

Cordialement

Re

J'ai regardé ton fichier et Bravo Banzai64, c'est exactement ce que je souhaitais, tu trop fort..

Si ce n'est pas trop demandé j'aimerai encore un ptit coup de main dans le même principe, voilà j'ai ajouté une feuil "BDD" avec un Usf_Seance j'aimerai améliorer le code pour que je puisse utiliser cette Usf_Seance sur la feuil "Analyse" par ce que après essai le N° Enregistrement se bloque à 2 sur Usf quand je l'utilise sur feuil "Analyse" mais marche très bien sur feuil "BDD".

Dans le même principe que précédent je cherche à utiliser l'Usf_Seance sur feuil "Analyse" tout en laissant masquer toutes les autres feuil.

Merci encore

Cordialement

Bonjour

pompaero a écrit :

le N° Enregistrement se bloque à 2 sur Usf

Même problème qu'avec l'autre UserForm

Modifies

Private Sub Init_Agents()
' A éviter de nommer des variables avec des noms "réservés" (Exemple : max )
Dim LeMax As Integer

  '  Réinitialise le formulaire pour la saisie suivante
  With WsBase
  LeMax = Application.WorksheetFunction.Max(WsBase.Range("A:A"))
  Me.Txt_NumEnr = LeMax + 1
  Me.Txt_CodeAgent = ""
  Me.CBx_NomPrenom = ""
  Me.Txt_DateSeance = ""
  Me.Txt_HrDeb = ""
  Me.Txt_HrFin = ""
  Me.Txt_DateSeance = ""
  Me.Txt_HrTotal = "????"
  End With
End Sub

Re

Nikel ça marche et en plus l'erreur est simple... . Merci pour tout à bientôt.

Je cloture le post.

Cordialement