DATÉ AUTOMATIQUEMENT LES ONGLETS
Résolu/Fermé
Claude021
Messages postés
69
Date d'inscription
mercredi 21 avril 2010
Statut
Membre
Dernière intervention
8 août 2011
-
3 nov. 2010 à 15:22
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 4 nov. 2010 à 14:26
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 4 nov. 2010 à 14:26
A voir également:
- DATÉ AUTOMATIQUEMENT LES ONGLETS
- Restaurer les onglets chrome - Guide
- Automatiquement - Guide
- Dans le diaporama à télécharger, les diapositives s'enchaînent automatiquement. que peut-on dire de la diapositive crayon ? - Forum Powerpoint
- 99 onglets ouverts android - Forum Google Chrome
7 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
3 nov. 2010 à 15:38
3 nov. 2010 à 15:38
Bonjour,
Testez ceci :
1- ouvrir le classeur concerné,
2- tapez ALT+F11
3- Insertion/Module
4- Copiez collez ce code :
5- fermer la fenêtre Visual Basic Editor
6- tester la macro en :
- vous plaçant sur une feuille à renommer
- taper ALT+F8, choix : DaterOnglet et Exécuter
Testez ceci :
1- ouvrir le classeur concerné,
2- tapez ALT+F11
3- Insertion/Module
4- Copiez collez ce code :
Sub DaterOnglet() ActiveSheet.Name = ActiveSheet.Name & " " & Format(Date, "dd mm yyyy") End Sub
5- fermer la fenêtre Visual Basic Editor
6- tester la macro en :
- vous plaçant sur une feuille à renommer
- taper ALT+F8, choix : DaterOnglet et Exécuter
Claude021
Messages postés
69
Date d'inscription
mercredi 21 avril 2010
Statut
Membre
Dernière intervention
8 août 2011
1
3 nov. 2010 à 16:54
3 nov. 2010 à 16:54
Bonjour pijaku
Merci pourla réponse je vais essayer cette après midi et je revient avec des nouvelles
A+
Claude 021
Merci pourla réponse je vais essayer cette après midi et je revient avec des nouvelles
A+
Claude 021
Claude021
Messages postés
69
Date d'inscription
mercredi 21 avril 2010
Statut
Membre
Dernière intervention
8 août 2011
1
3 nov. 2010 à 23:05
3 nov. 2010 à 23:05
Bonjour pijaku
ce que tu m'as donnée fonctionne très bien mais ce que je j'aimerai c'est de nommer avec une seul macro les septs onglets avec les dates pour une semaine complete. Ta façon foctionne bien mais je dois quand même cliquer sur chaque onglet, faire Alt +F8 et la renommer car la macro donne la date de la journée, je ne sais pas si je suis assez clair dans mon explication.
Si tu as autre chose en tête je suis partant
merci et A+
Claude021
ce que tu m'as donnée fonctionne très bien mais ce que je j'aimerai c'est de nommer avec une seul macro les septs onglets avec les dates pour une semaine complete. Ta façon foctionne bien mais je dois quand même cliquer sur chaque onglet, faire Alt +F8 et la renommer car la macro donne la date de la journée, je ne sais pas si je suis assez clair dans mon explication.
Si tu as autre chose en tête je suis partant
merci et A+
Claude021
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
4 nov. 2010 à 09:38
4 nov. 2010 à 09:38
Bonjour,
Tu veux renommer 7 ou plus onglets en une seule manip, avec les dates pour une semaine à partir du jour ou tu lances la macro? Ok?
Donc :
Méthode :
1- tu sélectionnes tes 7 onglets (souris + touche MAJ ou CTRL)
2- ALT+F8...
Tu veux renommer 7 ou plus onglets en une seule manip, avec les dates pour une semaine à partir du jour ou tu lances la macro? Ok?
Donc :
Sub DaterOnglet()
Dim ws As Worksheet
Dim i As Integer
i = 0
For Each ws In ActiveWindow.SelectedSheets
ws.Name = ws.Name & " " & Format(Date + i, "dd mm yyyy")
i = i + 1
Next
End Sub
Méthode :
1- tu sélectionnes tes 7 onglets (souris + touche MAJ ou CTRL)
2- ALT+F8...
Claude021
Messages postés
69
Date d'inscription
mercredi 21 avril 2010
Statut
Membre
Dernière intervention
8 août 2011
1
4 nov. 2010 à 10:38
4 nov. 2010 à 10:38
Bonjour pijaku
Je suis présentement au travail, mais je vais essayer cette formule ce soir à la maison. Pour inserer la formule c'est exactement la même chose je selectionne les 7 onglets suivi j'imagine Alt + F11, inserer un module, copier et coller la nouvelle formule. Si je veux réutiliser à toute les semaines cette formule, une fois fait je peux certainement garder la feuille comme copie maitresse et faire à toute les semaine un sauvegarder-sous?
merci et bonne journée
A+
Claude 021
Je suis présentement au travail, mais je vais essayer cette formule ce soir à la maison. Pour inserer la formule c'est exactement la même chose je selectionne les 7 onglets suivi j'imagine Alt + F11, inserer un module, copier et coller la nouvelle formule. Si je veux réutiliser à toute les semaines cette formule, une fois fait je peux certainement garder la feuille comme copie maitresse et faire à toute les semaine un sauvegarder-sous?
merci et bonne journée
A+
Claude 021
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
4 nov. 2010 à 10:40
4 nov. 2010 à 10:40
Non! pour l'insérer, tu fais juste ALT+F11 de n'importe ou dans le classeur, et tu remplaces l'ancienne par celle ci. En fait, un module est, contrairement au code d'une feuille, accessible de partout.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Claude021
Messages postés
69
Date d'inscription
mercredi 21 avril 2010
Statut
Membre
Dernière intervention
8 août 2011
1
4 nov. 2010 à 11:16
4 nov. 2010 à 11:16
Merci pijaku
A+
Claude 021
A+
Claude 021
Claude021
Messages postés
69
Date d'inscription
mercredi 21 avril 2010
Statut
Membre
Dernière intervention
8 août 2011
1
4 nov. 2010 à 13:52
4 nov. 2010 à 13:52
Bonjour pijaku
Après essai vraiment excellent un gros merci. Est-ce possible d'enlever le mot SHEET/FEUILLE dans les onglets mais juste avoir les dates d'inscrite?
Merci beaucoup
A+
Claude021
Après essai vraiment excellent un gros merci. Est-ce possible d'enlever le mot SHEET/FEUILLE dans les onglets mais juste avoir les dates d'inscrite?
Merci beaucoup
A+
Claude021
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
4 nov. 2010 à 13:53
4 nov. 2010 à 13:53
Oui :
Sub DaterOnglet()
Dim ws As Worksheet
Dim i As Integer
i = 0
For Each ws In ActiveWindow.SelectedSheets
ws.Name = Format(Date + i, "dd mm yyyy")
i = i + 1
Next
End Sub
Claude021
Messages postés
69
Date d'inscription
mercredi 21 avril 2010
Statut
Membre
Dernière intervention
8 août 2011
1
4 nov. 2010 à 14:21
4 nov. 2010 à 14:21
Merci pijaku
Ca marche vraiment bien merci
A+
Claude
Ca marche vraiment bien merci
A+
Claude
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
Modifié par pijaku le 4/11/2010 à 14:26
Modifié par pijaku le 4/11/2010 à 14:26
De rien. Si cela réponds à tes attentes, il convient de passer ce sujet comme "résolu". Pour cela clique sur : "Marquer comme résolu" dans l'entête de ton premier message ci dessus :
DATÉ AUTOMATIQUEMENT LES ONGLETS Claude021 - 3 nov 2010 à 15:22 - Dernière réponse le 4 nov 2010 à 14:21 Claude021 Ne plus suivre - Marquer comme résolu
