besoin aide sur macro(important pour moi)

[aredo]

bonjour

J'ai qques notions sur excel, parcontre, je n'ai jamais fait de macros.
Je me suis imprégné un peu du langage, mais bon pour un débutant, c'est vraiment dur, dur.
Si quelqu'un avait un peu de patience pour tenter de résoudre un prob.
En fait, pour mon boulot, on a ressorti un pc du placard pour y faire un peu de gestion(gérer en partie des pièces de magasin)

J'ai un fichier xls, qui comporte à peu près 50 feuilles, avec des noms différents.
Mon objectif est le suivant:
A l'ouverture de ce fichier, pouvoir taper le nom précis d'une feuille et que le contenu de cette feuille s'affiche à l'écran. Ceci pour éviter de se déplacer ds les onglets et de perdre du temps à chercher(surtout que les noms de feuilles sont
des chiffres qui se ressemblent- souvent un seul chiffre les différencie).

J'espère avoir été clair, souvenez-vous, je suis un "bleu"
Merci à toutes les personnes qui prennent le temps d'aider les autres.

[matthieu33]

Bonjour aredo,

Voici une solution avec du code VBA.

@+

[Banzai64]

Bonjour

Un essai avant le déjeuner

Rapide matthieu33 bonjour

[GPLIONEL]

Bonjour aredo, matthieu et banzai,

une autre solution :

cette macro :

Sub Macro1()
x = InputBox("Veuillez taper le nom de la feuille", "Choix feuille")
Sheets(x).Select
Range("A1").Select
End Sub

[aredo]

bonjour matthieu

merci pour ta réponse, j'aurai préférer ouvrir une boîte et appelere la feuille mais bon, c'est déjà une avancée.
parcontre il faut que je retape les cdes, j'ai essayé avec copier/coller, çà ne marche pas.
merci encore pour ton dévouement, je sais mon niveau est assez limité
bonne journée

[matthieu33]

Bonjour aredo, Banzai64, GPLionel et le forum,

Aredo, si tu n'y arrives pas, tu peux transmettre un extrait de ton fichier avec 4/5 feuille sans donnée confidentielle pour que l'exemple soit en phase avec ton besoin.

Merci
@+

[mutzik]

bonjour à tous,

j'ai déja fait quelque chose de similaire, avec une barre d'outils qui se met en place au lancement du xls, mais beaucoup de mes feuilles commencent par les mêmes lettres
ex : data_1janv
data_2fev ...
d'autres sont dénommées graph_ kkchose1
... kkchose2 ...
ce qui me permet de les regrouper dans cette barre de taches spéciale.

Si tes feuilles sont organisées dans cet esprit (est-tu là ?), je veux bien adapter ma macro à ton fichier

[matthieu33]

Bonjour à tous,

Je viens de réaliser une nouvelle version.

@+

[Macpoy]

bonsoir le forum,
une solution fournie avec cet excellent logiciel :
un click droit sur une des flèches en bas à gauche (celles qui permettent de faire défiler les onglets) ouvre la liste des feuilles contenues dans le classeur......
espérant apporter une petite contribution à votre PB.
@ plus

[aredo]

bonsoir Matthieu33, Banzai64, GPlionel, Mutzik, et Macpoy

Je vous remercie tous pour votre réactivité, cela fait plaisir.

Voici un extrait de mon fichier
Jointnouv.xls

En fait la liste déroulante ne m'intéresse pas vraiment, comme Macpoy l'a démontré, on peut rechercher de cette façon.
Mon objectif, ouvrir une petite fenêtre au lancement du fichier xls, ou je noterais
le nom d'une feuille, par ex: 3109-5(72), dont le contenu s'afficherai à la suite de cette demande.
J'espère que vous donnerez une suite favorable à ma demande.
encore merci
bonne fin de soirée

[aredo]

re
J'ai essayé le prog. de GPlionel, il serait presque au point.
J'ai enlevé les () pour limiter le nom des feuilles.
Quand j'appelle la feuille "3004", il me met: erreur d'exécution "40036", l'indice
n'appartient pas à la sélection.
Quand j'appelle la feuille "5899-1, il me met erreur d'exécution "9"
Quand j'appelle la feuille "3419-3, çà marche.
Qu'ai-je oublié à votre avis
bonne nuit

[matthieu33]

Bonsoir aredo et le forum,

Voici une nouvelle version.

@+

[matthieu33]

re Aredo,

Je n'avais pas vu ton dernier post.

Après avoir saisi le nom de la feuille, il faut vérifier que celle-ci existe dans le classeur, sinon tu auras une erreur.
Je te fournis une solution en relation avec le prog. de GPLionel.

Private Sub Workbook_Open()
    Dim strWS As String
    Dim intWS As Integer
    Dim bTrouveWS As Boolean
    
SaisieWS:
    ' Saisie du nom de la feuille
    strWS = InputBox("Veuillez saisir le nom de la feuille", "Choix de la feuille")
    
    ' Si le nom de la feuille est renseigné
    If strWS <> vbNullString Then
        bTrouveWS = False
        
        ' Vérifier que le nom saisi existe dans le classeur
        ' Boucle de la première à la dernière feuille du classeur
        For intWS = 1 To ThisWorkbook.Sheets.Count
            ' Le nom de la feuille saisi existe, activer la feuille
            If Worksheets(intWS).Name = strWS Then
                bTrouveWS = True
                Exit For
            End If
        Next intWS
        
        ' Feuille trouvée
        If bTrouveWS = True Then
            ' Activer la feuille
            Worksheets(intWS).Activate
            Range("A1").Select
        Else
            MsgBox "La feuille " & strWS & " est introuvable dans ce classeur.", vbCritical, "Erreur de saisie"
            GoTo SaisieWS
        End If
    End If
End Sub

@+

[aredo]

salut matthieu

j'ai qques petits soucis

Comment faire pour intégrer le prog. que tu m'as fait. Copier/coller ne marche pas. Suis-je obligé de le retaper ou possibilité de l'intégrer rapidement.

Sinon avec le prog de GPlionel: il n'y a pas d'erreur de frappe quand j'appelle une feuill, pourquoi m'en refuse-t'il plusieurs?
Effectivement, on dirait qu'elles n'existent pas. Y -a-t'il une manip à faire en aval?
Quand l'erreur survient et que je fais débogage, il me met cette ligne en surbrillance "Sheets(x).Select
merci pour le boulot que tu fais sur le forum
bonne journée

[aredo]

re
Je suis désolé, mais je ne m'en sort pas vraiment, plus je bricole et moins j'ai de résultat. Excusez mon ignorance.
j'ai retapé le prog. de Matthieu, j'ai dû oublié des opérations
si tu peux me l'intégrer correctement et me dire ce que j'ai omis.
J'ai associé un bouton au prog., la bébète jaune en haut à gauche!!
Merci encore

Jointnouv1.xls