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.
A voir également:
- VBA_nom onglet_ remplacer systématiquement
- Remplacer disque dur par ssd - Guide
- Remplacer word - Guide
- Remplacer coco - Accueil - Réseaux sociaux
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
- Paramètre s'arrête systématiquement samsung - Forum Samsung
5 réponses
Bonjour
essaies ceci ... sur une copie de ton fichier
Bonne suite
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é...
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é...
Bonjour,
Ce n'est pas très différent quand même
Ce n'est pas très différent quand même
Sub 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