Recherche et ouvrir une feuille

Bonsoir à toutes et àtous

J'ai encore besoin de votre aide.

J'ai un fichier avec beaucoup de feuilles. je voudrais retrouver n'importe quelle feuille à parir du nom entré dans une textbox.

J'ai écrit le code suivant mais cela ne fonctionne pas.

Private Sub commandbutton1_Click()

End Sub

Merci d'avance de votre aide.

bonjour

faire plutôt une combobox a voir

Private Sub UserForm_Initialize()
Feuille = Feuil1.Name
   For Each Feuil In Worksheets
      If Feuil.Name <> Feuille Then
         ComboBox1.AddItem Feuil.Name
      End If
   Next
End Sub

Private Sub ComboBox1_Change()
   Sheets(ComboBox1.Column(0)).Select
End Sub

A+

Maurice

Bonjour Archer

Merci pour ton aide.

J'ai juste un Pb, le code bloque sur la ligne Sheets(ComboBox1.Column(0)).Select

"erreur d'exécution 13

incompatilité de type"

Je patauge.

A te relire

Bernard

Bonjour

la il faut un modèle de ton fichier pour voir le problème

A+

Maurice

BOnsoir Archer

Pas de PB

Fichier en pièce jointe

bonjour

tu enlève le 2

mettre : Private Sub UserForm_Initialize()

A+

Maurice

Re

Désolé mais le Pb perdure.

Bonjour Ldopa

Je viens de regarder ton problème...

A mon (humble) avis pour résoudre le problème il suffit de supprimer les feuilles inutiles !

J'explique mon propos après ta réponse à cette question... Combien potentiellement peut il y avoir de coursier dans ton fichier ?

Bonjour

comme tu a mis Option Explicit

il faut déclarer toutes le variables

sinon tu a pas besoin de toutes ses feuilles a toi de voir

Option Explicit

Private Sub UserForm_Initialize()
Dim Feuille As String
Dim Feuil As Object
Feuille = Feuil1.Name
   For Each Feuil In Worksheets
      If Feuil.Name <> Feuille Then
         ComboBox1.AddItem Feuil.Name
      End If
   Next
End Sub

Private Sub CommandButton1_click()
If ComboBox1.ListIndex = -1 Then Exit Sub
   Sheets(ComboBox1.Column(0)).Select
   Unload Me
End Sub

A+

Maurice

Bon soir à vous deux

Pour le nombre de coursiers, pour l'instant il sont 35, mais cela peut changer.

Mais en y regardant de plus près je peu alléger le fichier.

Merci pour votre aide c'est vraiment très sympa.

(..)

Donc tu pourrais te retrouver avec (beaucoup) plus d'onglets (tous identiques), ce qui engendrerait une perte de temps à fouiller dans ton classeur plutôt que d'obtenir immédiatement l'information pertinente...

Je parle ici évidemment de tes onglets "état civil" de tes coursiers. Tous sont absolument identiques ! mis à part les données qu'ils comportent !

Tu devrais faire un onglet vierge représentant "un formulaire type" qui se remplit depuis la base de données des coursiers. Il n'y a aucune raison de conserver toutes ces feuilles si tu peux les "refaire" depuis la base de données en tout cas pas dans ton classeur !

Si tu dois conserver les éléments que ces "formulaire" comportent à des fins d'archivage, de signature, de délivrance... il suffit de générer ce "formulaire" de l'imprimer et/ou de l'enregistrer comme un élément indépendant de ton classeur. Sous une forme PDF tu même l'archiver, le transmettre, le relire...

Voilà quel était mon propos...

Bonjour

et en plus il a raison

voila un début d'un nouveau projet a voir

A+

Maurice

(..)

@archer

archer a écrit :

et en plus il a raison

Bonjour à tous les deux

Très juste vous avez raison. Le nez dans le guidon empêche de voir claire.

Donc j'i commencé à alléger le fichier et ne travailler que sur une feuille modèle.

Encore merci pour le code de la liste facture et pour le reste..

Je clos le post

A vous relire.

Bonjour

une dernière

A+

Maurice

Super encore merci.

A te relire

Bonjour

et une dernière avec édition de toutes la base

A+

Maurice

Bonsoir Maurice

Peux tu me dire la fonction de l'édition base.

J&voue que je ne comprend pas bien.

@ +

bonjour

sa édite toutes les facture de la base en PDF

A+

Maurice