Inverser automatiquement les noms des onglets
Résolu
Alem13
Messages postés
44
Statut
Membre
-
Alem13 Messages postés 44 Statut Membre -
Alem13 Messages postés 44 Statut Membre -
Bonjour,
J'ai une macro permettant de regrouper différents onglets dans un classeur. Je souhaiterais insérer un code permettant d'inverser les noms des onglets au moment de leur regroupement.
Ex: Au départ, j'ai les onglets chocolat-noir, chocolat-aulait, chocolat-blanc et je voudrais avoir dans le classeur final noir-chocolat, aulait-chocolat, blanc-chocolat.
En imaginant qu'il existe beaucoup plus de chocolats (chocolat-praliné, chocolat-pistache...) ce qui nécessite une systématisation du process d'inversion des noms.
Quelqu'un voit-il comment faire?
En vous remerciant par avance
J'ai une macro permettant de regrouper différents onglets dans un classeur. Je souhaiterais insérer un code permettant d'inverser les noms des onglets au moment de leur regroupement.
Ex: Au départ, j'ai les onglets chocolat-noir, chocolat-aulait, chocolat-blanc et je voudrais avoir dans le classeur final noir-chocolat, aulait-chocolat, blanc-chocolat.
En imaginant qu'il existe beaucoup plus de chocolats (chocolat-praliné, chocolat-pistache...) ce qui nécessite une systématisation du process d'inversion des noms.
Quelqu'un voit-il comment faire?
En vous remerciant par avance
A voir également:
- Inverser automatiquement les noms des onglets
- Les noms des animaux - Télécharger - Études & Formations
- Inverser ecran pc - Guide
- Rouvrir les onglets fermés chrome - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel pour trier les photos automatiquement - Guide
2 réponses
Bonjour,
eric
Sub renommeFeuilles()
Dim sh As Worksheet, p As Long
For Each sh In Worksheets
p = InStr(sh.Name, "-")
If p > 0 Then sh.Name = Split(sh.Name, "-")(1) & "-" & Split(sh.Name, "-")(0)
Next sh
End Sub
eric
J'adore ce type de réponse sans bavure;-)
Tu ne penses pas que c'est le type de question/réponse qui pourrait faire une fiche pratique (astuce)? (si elle n'existe pas)