Récupérer le nom de la dernière feuille pour la comparer
Résolu/Fermé
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
-
9 janv. 2022 à 20:04
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 10 janv. 2022 à 09:46
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 10 janv. 2022 à 09:46
A voir également:
- Récupérer le nom de la dernière feuille pour la comparer
- Recuperer message whatsapp supprimé - Guide
- Recuperer video youtube - Guide
- Impossible de récupérer mon compte gmail - Guide
- Téléchargez cette image pour trouver le nom du fichier. il correspond au nom de cette loutre. comment s'appelle-t-elle ? - Forum Windows
- Feuille de pointage excel - Télécharger - Tableur
2 réponses
Le Pingou
Messages postés
12200
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 novembre 2024
1 450
9 janv. 2022 à 22:51
9 janv. 2022 à 22:51
Bonsoir,
Dans un premier temps, avant de créer votre nouvelle feuille vous récupérez la date de la feuille en cours et si même date du jour alors vous créer un nouveau nom que vous utiliserez pour modifier le nom de la feuille copiée.
Dans un premier temps, avant de créer votre nouvelle feuille vous récupérez la date de la feuille en cours et si même date du jour alors vous créer un nouveau nom que vous utiliserez pour modifier le nom de la feuille copiée.
via55
Messages postés
14496
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
22 novembre 2024
2 735
Modifié le 10 janv. 2022 à 00:10
Modifié le 10 janv. 2022 à 00:10
Bonsoir à vous deux
Essaye de compléter ainsi ton code :
Cdlmnt
Via
Essaye de compléter ainsi ton code :
Sheets("VIERGE").Copy After:=Sheets(Sheets.Count) nbf = 0 ' remise à 0 variable ' nom feuille possible Nom + date nom = Left([D4], InStr(1, [D4], " ") - 1) & "-" & Format(Date, "dd mmm") ' longueur de la chaine nom lng = Len(nom) 'boucle depuis 5 feuilles avant la dernière jusqu'à la dernière A MODIFIER EN + ou en - SI NECESSAIRE For n = Sheets.Count - 5 To Sheets.Count ' si la gauche du nom de la feuille est identique au nom possible on incrémente la variable nbf de 1 If Left(Sheets(n).Name, lng) = nom Then nbf = nbf + 1 Next 'Si une ou des feuilles existent avec déjà ce même début de nom alors on ajoute au nom possible entre parenthèses le n° de la prochaine feuille (= nbre de feuilles avec même début +1) If nbf > 0 Then nom = nom & " (" & nbf + 1 & ")" ActiveSheet.Name = nom
Cdlmnt
Via
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
166
10 janv. 2022 à 09:46
10 janv. 2022 à 09:46
Bonjour via55,
je n'ai qu'un mot à dire : excellent !
Merci pour le code et les annotations dans celui-ci, qui vont me permettre à bien le comprendre !
Bonne journée à toi !
je n'ai qu'un mot à dire : excellent !
Merci pour le code et les annotations dans celui-ci, qui vont me permettre à bien le comprendre !
Bonne journée à toi !
10 janv. 2022 à 09:44
j'avais commencé à me pencher sur cette idée, après avoir posté mon sujet sur le forum !
C'est en effet une alternative qui aurait pu me simplifier la tâche !
Mais au final, je vais utiliser le code de via55.
Je garde toutefois cette idée, pour la mettre en oeuvre, et peut-être l'utiliser aussi.
Merci à toi, bonne journée.