macro pour aller sur onglet Résolu

Question

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

Le Pingou · Answer

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.

Raymond PENTIER · Answer

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 ...

g · Answer

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.

gercot1972 · Answer

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

gercot1972 · Answer

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

Le Pingou · Answer

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

Le Pingou · Answer

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.... ?

gercot1972 · Answer

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

Le Pingou · Answer

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 ?

gercot1972 · Answer

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

Le Pingou · Answer

Bonsoir,
Merci c'est parfait.
Si pas de contraire c'est pour demain soir.
Patience.

Le Pingou · Answer

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

gercot1972 · Answer

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

Le Pingou · Answer

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...! )   ...... ?

Le Pingou · Answer

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

gercot1972 · Answer

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

Le Pingou · Answer

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

gercot1972 · Answer

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

foo · Answer

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

Le Pingou · Answer

Bonjour,
Je vous laisse la découverte de cette version : https://www.cjoint.com/?3LCwCXzhsvr
Merci de lire les notes ..... !

gercot1972 · Answer

bonsoir 
je viens de tester et je suis confrontée a un blocage "les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro:
projet VB"

objtraiter.SaveAs Filename:=checomp, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

mais après j'arrive quand même au résultat souhaiter

Le Pingou · Answer

Bonjour,
Au passage, eh bien  je pense que le classeur avec les données à traiter contient une macro et comme l'enregistrement se fait en extension [xlsx] (classeur sans macro) vous avez le message  d'avertissement. 
J'avais pensé que le classeur quotidien ne contenait pas de macro .....si pas correct merci de me le faire savoir .... !

gercot1972 · Answer

bonjour ,

en effet le classeur quotidien ne contient pas de macro, mais celui qui me sert de test en contenait une 
des demain je fais le test en reel après extraction du logiciel et te redis le verdict final , mais je n'ai aucun doute vu la qualité de ton travail

merci encore

gercot1972 · Answer

bonjour 

j'ai testé aujourd'hui en grandeur nature (humour), j'ai eut un petit soucis mais que j'ai pu vite résoudre
en effet l'extraction du logiciel sous excel s'enregistre en version n'acceptant pas les macro , donc j'ai  à nouveau enregistré ma base et cela a fonctionnait à la perfection 

mille merci Pingou , je mets en résolu le sujet et vous remercies tous pour cette aide 

je pense revenir vous demander de l'aide tant que je n'aurai pas de formation sur les macro 

bonne année 2014 à tous

Le Pingou · Answer

Merci, content pour vous.
Avec tous mes voeux pour 2014.

gercot1972 · Answer

bonjour à tous 
je reviens vers vous et particulièrement vers le Pingou qui m'a rendu un grand service avec une macro de rêve.
je suis confrontée à un soucis , je mets le document en document joint :
en effet dans mon onglet les signes négatifs s'affichent bien visuellement aux montant en Crédit mais il s'avére que si je me place sur la cellule, je peux voir que les signes moins n'ont aucune incidence sur les calculs et ne sont pas visible dans le détail de la cellule . de e fait j'ai des erreurs sur les sous totaux 


Auriez vous une idée du probléme ?

bien cordialement

http://cjoint.com/?DAhsSq28Mji

foo · Answer

Bonjour

voila une macro pour mettre tes montant en negatif
car tes montont ne sont negatif

Sub TestCredit()
   Columns("F:F").NumberFormat = "0.00_ ;[Red]-0.00 "
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      If Range("G" & L).Value = "C" Then
         Range("F" & L).Value = Range("F" & L).Value * -1
      End If
   Next
End Sub

A+
Maurice

gercot1972 · Answer

Merci Maurice,

peux tu m'expliquer car la macro que j'utilise insere le signe moins mais sans influence puisqu il n'est que visuel

foo · Answer

Bonjour

j'ais pas vue de macro dans ton fichier desoler

essai avec ma macro pour voir la difference

A+

Maurice

Le Pingou · Answer

Bonjour gercot1972,
Je viens de voir votre message, je vais contrôler pour voir ou j'ai commis l'erreur et la corriger.
Pour demain.

gercot1972 · Answer

merci beaucoup Le Pingou

Géraldine

Le Pingou · Answer

Bonjour gercot1972,
Excusez-moi de ce dérangement j'avais oublié de contrôler si les sous-totaux étaient corrects.
J'ai corrigé mon erreur et j'en ai profité pour mettre la police en rouge pour  le sens [C].
Votre classeur de base : https://www.cjoint.com/?3AhxeJxAPvm

gercot1972 · Answer

merci beaucoup pour ta réactivité 

je teste demain :)

bonne nuit

Le Pingou · Answer

Bonjour gercot1972,
Décidemment ce début d'année est difficile,  j'ai mal placé une ligne d'instruction, désolé.

Dans les 3 blocs : ' traitement "47511 DETTES", "PM" et  "475 MUT"

La ligne d'instruction :  .Cells(c, 4) = Left(.Cells(c, 4), ....) 
qui se trouve en fin du bloc If .Cells(c, 7)....  de la boucle : For c = 2 To dlf 
doit être déplacer juste après l'instruction For..... 
 
Merci et Bonne journée.

gercot1972 · Answer

bonjour , 
je suis désolée je déplace la ligne mais ca me signale une erreur 

est ce du a cela que les libellés n'etaient plus convertit comme auparavant ? 

bonne soirée

Le Pingou · Answer

Bonjour,
Oui cela concerne bien les libellées.
La version correcte : https://www.cjoint.com/?3AivqI4idZV

gercot1972 · Answer

merci beaucoup le Pingou 
j'espére ne plus t'embéter 

salutations

Le Pingou · Answer

Bonjour,
Ne vous faites pas de souci se sera toujours avec plaisir de vous entendre.
J'espère simplement que cette fois tout sera correct.

Macro pour aller sur onglet

38 réponses

Discussions similaires

Newsletters