Macro pour aller sur onglet
Résolu/Fermé
gercot1972
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
-
22 déc. 2013 à 22:59
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 - 8 janv. 2014 à 22:22
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 - 8 janv. 2014 à 22:22
A voir également:
- Macro pour aller sur onglet
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Rouvrir onglet fermé - Guide
- Macro recorder - Télécharger - Confidentialité
38 réponses
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
22 déc. 2013 à 23:36
22 déc. 2013 à 23:36
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.
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
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
23 déc. 2013 à 04:28
23 déc. 2013 à 04:28
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 ...
Et ce sera donc plus long que d'insérer des liens hypertextes ...
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
23 déc. 2013 à 10:05
23 déc. 2013 à 10:05
Bonjour Raymond,
Joyeux Noël
Le Pingou
Joyeux Noël
Le Pingou
Raymond PENTIER
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
23 déc. 2013 à 19:36
23 déc. 2013 à 19:36
Je te remercie, ami Le Pingou : Bonnes fêtes à toi aussi, dans les neiges de Fribourg !
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
Modifié par g le 23/12/2013 à 09:57
Modifié par g le 23/12/2013 à 09:57
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.
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
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
23 déc. 2013 à 20:33
23 déc. 2013 à 20:33
merci beaucoup cela fonctionne et je vais gagner beaucoup de temps
gercot1972
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
23 déc. 2013 à 19:22
23 déc. 2013 à 19:22
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
gercot1972
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
23 déc. 2013 à 20:18
23 déc. 2013 à 20:18
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
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
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
23 déc. 2013 à 22:53
23 déc. 2013 à 22:53
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
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
gercot1972
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
23 déc. 2013 à 23:00
23 déc. 2013 à 23:00
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
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
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
25 déc. 2013 à 17:46
25 déc. 2013 à 17:46
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.... ?
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
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
26 déc. 2013 à 20:23
26 déc. 2013 à 20:23
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
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
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
26 déc. 2013 à 22:11
26 déc. 2013 à 22:11
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 ?
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
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
26 déc. 2013 à 22:29
26 déc. 2013 à 22:29
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
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
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
26 déc. 2013 à 23:33
26 déc. 2013 à 23:33
Bonsoir,
Merci c'est parfait.
Si pas de contraire c'est pour demain soir.
Patience.
Merci c'est parfait.
Si pas de contraire c'est pour demain soir.
Patience.
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
27 déc. 2013 à 17:05
27 déc. 2013 à 17:05
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
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
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
Modifié par gercot1972 le 27/12/2013 à 22:29
Modifié par gercot1972 le 27/12/2013 à 22:29
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
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
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
27 déc. 2013 à 23:28
27 déc. 2013 à 23:28
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
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
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
27 déc. 2013 à 22:48
27 déc. 2013 à 22:48
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...! ) ...... ?
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
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
27 déc. 2013 à 23:09
27 déc. 2013 à 23:09
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 :
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
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
28 déc. 2013 à 15:35
28 déc. 2013 à 15:35
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
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
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
28 déc. 2013 à 17:25
28 déc. 2013 à 17:25
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
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
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
28 déc. 2013 à 17:58
28 déc. 2013 à 17:58
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
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
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
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
gercot1972
Messages postés
44
Date d'inscription
mardi 3 décembre 2013
Statut
Membre
Dernière intervention
4 février 2014
29 déc. 2013 à 17:53
29 déc. 2013 à 17:53
merci Maurice
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
28 déc. 2013 à 22:29
28 déc. 2013 à 22:29
Bonjour,
Je vous laisse la découverte de cette version : https://www.cjoint.com/?3LCwCXzhsvr
Merci de lire les notes ..... !
Je vous laisse la découverte de cette version : https://www.cjoint.com/?3LCwCXzhsvr
Merci de lire les notes ..... !
