VBA_nom onglet_ remplacer systématiquement

Résolu/Fermé
Signaler
Messages postés
29
Date d'inscription
mercredi 28 août 2013
Statut
Membre
Dernière intervention
26 septembre 2013
-
Messages postés
29
Date d'inscription
mercredi 28 août 2013
Statut
Membre
Dernière intervention
26 septembre 2013
-
Bonjour à tous!

Je suis à la recherche d'un code VBA permettant de remplacer dans tous les onglets de mes classeurs 2012 par N0, 2013 par N1 et 2014 par N2.

Quelqu'un a-t-il une idée?

Merci d'avance pour votre aide.

5 réponses

Messages postés
10197
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 janvier 2022
2 275
Bonjour

essaies ceci ... sur une copie de ton fichier

Sub remplacer()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Sheets
ws.Cells.Replace 2012, "N0"
ws.Cells.Replace 2013, "N1"
ws.Cells.Replace 2014, "N2"
Next ws
Application.ScreenUpdating = True
End Sub

Bonne suite
0
Messages postés
29
Date d'inscription
mercredi 28 août 2013
Statut
Membre
Dernière intervention
26 septembre 2013
1
Merci de ta réponse mais je me suis mal exprimé.

Il s'agit en fait de remplacer ces années dans les noms des onglets et non dans les onglets eux-mêmes.

Du coup, c'est un peu compliqué...
0
Messages postés
29
Date d'inscription
mercredi 28 août 2013
Statut
Membre
Dernière intervention
26 septembre 2013
1
Rectification, c'est dans les noms des onglets que je souhaite effectuer ces remplacements.
0
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
Bonjour,

Ce n'est pas très différent quand même
Sub remplacer()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Sheets
ws.Name = Replace(ws.Name, "2012", "N0")
ws.Name = Replace(ws.Name, "2013", "N1")
ws.Name = Replace(ws.Name, "2014", "N2")
Next ws
Application.ScreenUpdating = True
End Sub
A+
0
Messages postés
29
Date d'inscription
mercredi 28 août 2013
Statut
Membre
Dernière intervention
26 septembre 2013
1
Excellent, ça marche!
Merci beaucoup!
0