FORMULAIRE EXPLOITABLE SUR PLUSIEURS ONGLETS

Pour qu'un formulaire soit exploitable sur plusieurs onglets (ou feuilles) du classeur, il est important de modifier notre fichier source (Procédure décrite dans "Créer son formulaire").

Tout d'abord nous allons ajouter une Combobox qui va nous servir à naviguer dans notre classeur en choisissant  le nom de l'onglet dans la liste déroulante.

1) Insérer la Combobox  et attribuer lui le nom "ONGLET".

Ensuite compléter le programme  "Private Sub UserForm_Initialize()  en y ajoutant le texte suivant :
Dim ER As Worksheet

ONGLET.Clear
For Each ER In ThisWorkbook.Worksheets
 If ER.Name <> "vierge" Then
  ONGLET.AddItem ER.Name
 End If
Next ER

Code permet de lister les onglets présent dans le classeur  sous forme de liste déroulante dans votre formulaire.

2) Maintenant nous allons programmer cette Combobox pour lui indiquer qu'à chaque choix dans la liste déroulante cela implique l'activation de l'onglet choisi.

Ajouter le programme suivant au formulaire :

Private Sub ONGLET_Change()
If ONGLET.ListIndex > -1 Then 'Si la sélection est valide
'On active la worksheet dont le nom est contenu dans la combo

ThisWorkbook.Worksheets(ONGLET.List(ONGLET.ListIndex)).Visible = True
ThisWorkbook.Worksheets(ONGLET.List(ONGLET.ListIndex)).Activate
Unload Me ' Ferme le formulaire
UserForm1.Show 'Ouvre le formulaire

End If
End Sub

Vous avez surement noté que dans cette programmation je ferme le formulaire pour le ré-ouvrir tout de suite, l'explication est à suivre.

3) Petit changement modification dans le programme Initialize

Set Ws = Sheets("FICHIER ADRESSES")  modifiez cette ligne par Set Ws = Sheets(ActiveSheet.Name) le choix ne se fait plus sur l'onglet "FICHIER ADRESSES" mais sur le nom de la feuille Active.


Le fait de fermer et d'ouvrir le formulaire permet au programme Initialize de remonter les informations de la feuille active.... Je n'ai trouvez que cette solution pour l'instant mais elle fonctionne.

Donc vous pouvez utiliser le formulaire pour remplir les onglets identiques......A vous de jouer.


Voici un exemple disponible 
EXEMPLE