|
|
|
|
Bonjour,
J'ai un fichier excel avec beaucoup d'onglets qui ne sont pas classés par ordre alphabétique. Comment puis-je faie pour trouver rapidement l'onglet que je cherche?
(création d'une feuille faisant référence aux onglets? renvoi automatique?)
Par avance merci!
Configuration: Windows XP Internet Explorer 7.0
Bonjour,
Private Sub cbListeOngletsClasseur_Change()
cbListeOngletsClasseur.MatchRequired = True
cbListeOngletsClasseur.MatchEntry = fmMatchEntryComplete
End Sub
Private Sub cbListeOngletsClasseur_Click()
Select Case cbListeOngletsClasseur.ListIndex
End Select
End Sub
Private Sub cmdOK_Click()
Num = (cbListeOngletsClasseur.ListIndex) + 1
If Num = 0 Then
MsgBox "Vous n'avez rien sélectionné, RECOMMENCER!!!"
Unload fmListeOngletsClasseur
Call ChoixOnglet
Else
Sheets.Item(Num).Select
Unload fmListeOngletsClasseur
End If
End Sub
Private Sub cmdOK_Enter()
Num = (cbListeOngletsClasseur.ListIndex) + 1
If Num = 0 Then
MsgBox "Vous n'avez rien sélectionné, RECOMMENCER!!!"
Unload fmListeOngletsClasseur
Call ChoixOnglet
Else
Sheets.Item(Num).Select
Unload fmListeOngletsClasseur
End If
End Sub
Private Sub cmdQuitter_Click()
fmListeOngletsClasseur.Hide
Unload fmListeOngletsClasseur
End Sub
Private Sub UserForm_Initialize()
Dim Numfeuille As Integer
Dim NomFeuille As Variant
For Numfeuille = 1 To Worksheets.Count
NomFeuille = Worksheets(Numfeuille).Name
cbListeOngletsClasseur.AddItem "" & NomFeuille
Next Numfeuille
cbListeOngletsClasseur.Style = fmStyleDropDownCombo
End Sub
et un module contenant la macro suivante : Sub ChoixOnglet()
Load fmListeOngletsClasseur
fmListeOngletsClasseur.Show
End Sub
En ce qui concerne cette macro, si elle est placée dans le classeur de macros personnelles, elle pourra être utilisée sur tous les classeurs actifs. Voilà, j'espère que cela correspondra à ce que tu cherches. Bonne fin de journée "Pour trouver une solution à ses problèmes, il faut s'en donner la peine." |
Bonsoir Bleucalyptus,
|
Bonjour,
|
Répondre à Raymond PENTIER
|
Bonjour à tous,
|
Bonjour
|
"Est il possible de mettre la ligne ou les différentes feuilles du classeur apparaissent sur 2 épaisseurs afin de pouvoir afficher plus de feuilles ? "
|