VBA_nom onglet_ remplacer systématiquement
Résolu
Melaal
Messages postés
31
Statut
Membre
-
Melaal Messages postés 31 Statut Membre -
Melaal Messages postés 31 Statut Membre -
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.
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
-
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 -
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é... -
Rectification, c'est dans les noms des onglets que je souhaite effectuer ces remplacements.
-
Bonjour,
Ce n'est pas très différent quand mêmeSub remplacer()
A+
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
