Macro pour aller sur onglet

Résolu
gercot1972 Messages postés 44 Statut Membre -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

deuxieme question du jour :&

j'ai un classeur avec de trés nombreux onglets portant chacun un numéro de compte différent
je connais la possibilité de faire un sommaire avec un lien hypertexte mais cela est trés long quand le nombre d'onglet esttrés grand
existe il une macro , avec laquelle j'aurai la possibilité de mettre le nom de l'onglet sur lequel je souhaite aller sans avoir a effectuer un sommaire avec lien hypertexte ?

merci d avance de vos réponses

38 réponses

  • 1
  • 2
Résumé de la discussion

Utiliser une macro Excel pour accéder directement à un onglet par son nom sans passer par un sommaire avec des liens constitue la problématique centrale. Plusieurs membres évoquent des solutions liées à la création d'un classeur quotidien avec des onglets nommés comme -a, -dettes, -47511 dettes et -PM -475 mut, et discutent de tests et d'implémentations pratiques. En parallèle, des blocages techniques sont évoqués, notamment l’impossibilité d’enregistrer des classeurs sans macro et des propositions de tests avec des fichiers dédiés comme ClasseurQuotidien.xlsm. D'autres échanges portent sur des améliorations telles que le tri automatique, des chemins et noms de fichier générés, et des notes de tests à lire avant une mise en œuvre en réel.

Généré automatiquement par IA
sur la base des meilleures réponses
  1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Peut-être qu'il faut aussi tenir compte de votre demande précédente [Mettre le signe négatif dans certaines cellules].... ?
    Dans le but de comprendre ce que vous désirez faire, il serait bien de voir ce que vous avez réalisé comme macro (macro en enregistrant ...), si possible mettre le fichier sur https://www.cjoint.com/ et poster le lien.

    0
  2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Mais ce qui est certain, c'est qu'il n'existe pas de macro déjà toute faite qui attend d'être copiée : Il faudra en écrire une en VBA.
    Et ce sera donc plus long que d'insérer des liens hypertextes ...
    0
    1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
       
      Bonjour Raymond,
      Joyeux Noël
      Le Pingou
      0
    2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
       
      Je te remercie, ami Le Pingou : Bonnes fêtes à toi aussi, dans les neiges de Fribourg !
      0
  3. g Messages postés 1285 Statut Membre 578
     
    Bonjour,

    Le code ci-dessous permet de créer la liste des onglets d'un classeur avec un lien hypertexte pour chaque onglet.
    Départ de la liste en A2.
    Listage à partir de la feuille 2.
    Le code est à copier dans un module standard.

    Sub HyperOnglets()
    Dim I As Integer
    ActiveWorkbook.Worksheets(1).Select
    ActiveSheet.Range("A2").CurrentRegion.ClearContents
    For I = 2 To ActiveWorkbook.Worksheets.Count
    ActiveSheet.Range("A" & I).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Worksheets(I).Name & "'!A1", TextToDisplay:=Worksheets(I).Name
    Next
    Cancel = True
    End Sub

    Cordialement.
    0
    1. gercot1972 Messages postés 44 Statut Membre
       
      merci beaucoup cela fonctionne et je vais gagner beaucoup de temps
      0
  4. gercot1972 Messages postés 44 Statut Membre
     
    merci beaucoup à tous pour vos réponses , je teste la macro ci dessous et vous tient informer
    je vais vous donner mon document , dans quelques temps, il faut juste que je el récupére et vous explique pourquoi il est pas aboutit
    je précise que c'est ma toute premiére macro
    il faut un début à tout ;)
    merci encore et joyeux noel à tous
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. gercot1972 Messages postés 44 Statut Membre
     
    voici mon document, j'espère que vous aurez accès a la macro
    j'ai mis sur chaque onglet ce que je souhaite obtenir au final , ce qui n'est pas le cas actuellement à 100%
    mes plus gros problèmes actuels sont:
    mettre en négatif certain nombre
    et le problème du nombre de ligne qui est différent tous les jours

    bien à vous et merci d avance

    https://www.cjoint.com/?0LxupFAHcPP
    0
  7. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Merci pour le fichier, je l'ai parcouru en diagonale ..... !
    Je ne suis pas disponible pendant la période de Noël, un brin de patience .... !
    Joyeux Noël

    0
    1. gercot1972 Messages postés 44 Statut Membre
       
      rien ne presse, les fêtes de Noel en priorité,
      merci d'avoir pris le temps de regarder en diagonale Le pingou ,
      et on reprend les échanges après les fêtes

      merci beaucoup à tous de l'aide que vous m'apportez

      joyeux noel
      0
  8. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Au passage, pouvez-vous m'éclairer sur ce qui suit :

    .- A quoi sert la colonne [signe [E:E]]...?

    .- Pourquoi elle disparait dans les feuilles [47511 DETTES] et [PM]....?

    .- Faut-il vraiment insérer le signe (-) pour les valeurs en crédit [sens =C] ... ?

    .- je ne vois pas le rapport entre la macro aller sur onglet et ce classeur qui ne comporte que 5 feuilles.... ?

    .- Je suppose que les données viennent modifier/consolider la feuille [A] et ensuite on met à jour les 4 extraits (Dettes, PM, 47511 Dettes et 475 MUT) ... Est-ce bien cela.... ?

    0
  9. gercot1972 Messages postés 44 Statut Membre
     
    bonjour,
    désolée de la réponse tardive , mais Noel m'a occupée

    -la colonne signe ne sert pas et disparait car elle est remplit lors de l'utilisation de "convertir" et je la supprime pour ne conserver que les données utiles
    -l'insértion du signe moins pour les valeurs au crédit me permet d'utiliser la fonction sous totaux sans créer une seconde colonne pour y calculer les valeurs au crédit
    cela peut vous paraitre spécial , mais c'est de la comptabilité donc on saisit en inverser (enfin pour faire simple en explication )
    -tout les jours j'obtiens un nouveau fichier avec comme seul onglet , un onglet A avce un nombre de ligne variable , et je dois enregistrer chaque jours le classeur quotidien avec tout les onglets retravaillés
    j'espére avoir été assez clair
    merci encore de votre aide
    0
  10. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Merci pour l'information.
    Est-ce concevable que la macro traite de classeur avec comme seul onglet , un onglet A, depuis un se classeur indépendant qui recevra en plus la date du traitement et le nom du classeur quotidien (5 feuilles) et où il est enregistrer (répertoire...() Oui Non ?

    0
  11. gercot1972 Messages postés 44 Statut Membre
     
    bonsoir pingou,
    c'est exactement cela , chaque jour j'ai un nouveau classeur avec pour seul onglet A
    le but étant avec la macro , de finir avec un classeur quotidien ayant les onglets :
    -a
    -dettes
    -47511 dettes
    -PM
    -475 mut
    donc oui , bien 5 onglets
    merci beaucoup du temps que tu me consacres
    0
  12. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonsoir,
    Merci c'est parfait.
    Si pas de contraire c'est pour demain soir.
    Patience.

    0
  13. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Ma proposition avec un classeur de commande [CreerClasseurQuotidien.xlsm], suivre les indications sur la feuille et comme exemple le classeur de données quotidien.
    Je vous laisse regarder et contrôler si cela est dans votre sens.... !
    Note : la finalité selon votre réponse... !
    Le dossier : https://www.cjoint.com/?3LBrdYCquvk

    0
  14. gercot1972 Messages postés 44 Statut Membre
     
    Bonsoir le pingou ,

    c'est incroyablement génial , quel bonheur
    tout est bon sauf sur l'onglet 475MUT ou les sous totaux se font par libellés hors il faudrait par numéro de compte si cela est possible et ne te demandes pas trop de travail
    je ne sais comment te remercier cela va etre un gain de temps énorme pour moi
    Peux tu me dire si cela fonctionnera si le nombre de ligne est supérieur ? je le testerai lundi à mon travail avec une extraction qui aura plus ou moins de lignes
    mille merci
    0
    1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
       
      Bonjour,
      Peux tu me dire si cela fonctionnera si le nombre de ligne est supérieur?
      Eh oui pas de problème c'est fait pour.
      Salutations.
      Le Pingou
      0
  15. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Merci, content pour vous.
    Pour sou totaux [475 MUT] pas de problème il faut juste modifier dans la ligne, 8 depuis la fin, GroupBy:=4 par GroupBy:=3... !
    Par contre, je n'ai pas trié la colonne [compte], je pense qu'il faut le faire... Oui / Non .... ?
    Que voulez-vous faire avec la proposition sous le nuage bleu (petite note : Pas opérationnel pour l'instant...! ) ...... ?

    0
  16. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    En attendant, pour le tri, dans la procédure [TraiterQuotidien(nouveau As String)] dans le dernier bloc .... ' traitement "475 MUT"
    Juste après .... With shtrav
    Vous insérez cette ligne d'instruction :
     .Columns("A:L").Sort Key1:=.Columns(3), Order1:=xlAscending, Header:=xlGuess   

    0
  17. gercot1972 Messages postés 44 Statut Membre
     
    bonjour
    pour la proposition du nuage bleu , le fait de noter la date de création et le nom du classeur peut etre interressant pour suivre les realisations, par contre je n'ai pas ce week end le chein d accés ou classer le classeur, je le récupérai lundi à mon travail
    je vais faire les modifications de la macro ce soir et vous tient informer

    merci
    0
  18. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Concerne :
    pour la proposition du nuage bleu ..........
    Le chemin, vous devrez simplement l'indiquer dans la cellule correspondante [B14], c'est tout.
    Je prévois aussi une cellule pour le nom du classeur par exemple : ClaQuot que l'on complètera avec la date et un numéro pour le cas où vous avez plus d'un classeur le même jour soit : ClaQuot-16-12-2013-1.xlsx.
    Je vous prépare une nouvelle version avec la procédure dans ce sens

    0
  19. gercot1972 Messages postés 44 Statut Membre
     
    j'ai effectué les modifications que tu m'as indiqué et cela fonctionne trés bien

    super l'idée de la cellule avec le nom et la date du classeur

    merci beaucoup le PIngou, je ne sais comment te remercier
    0
  20. foo
     
    Bonjour

    Voila la 1er macro pour faire la colonne credit

    Sub TestCredit()
    Columns("F:F").Insert Shift:=xlToRight
    Columns("F:F").HorizontalAlignment = xlGeneral
    Columns("F:G").NumberFormat = "0.00_ ;[Red]-0.00 "
    Columns("F:G").ColumnWidth = 11
    For L = 2 To Range("B" & Rows.Count).End(xlUp).Row
    If Range("H" & L).Value = "C" Then
    Credit = Range("G" & L).Value
    Range("F" & L).Value = -Credit
    Range("G" & L).Value = ""
    End If
    Next
    Range("F1").Value = "Crédit"
    Range("G1").Value = "Débit"
    Range("A1").Select
    End Sub

    A+
    Maurice
    0
    1. gercot1972 Messages postés 44 Statut Membre
       
      merci Maurice
      0
  21. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Je vous laisse la découverte de cette version : https://www.cjoint.com/?3LCwCXzhsvr
    Merci de lire les notes ..... !

    0
  • 1
  • 2