VBA_nom onglet_ remplacer systématiquement

Résolu/Fermé

Melaal Messages postés 29 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 26 septembre 2013 - 18 sept. 2013 à 14:17
Melaal Messages postés 29 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 26 septembre 2013 - 19 sept. 2013 à 11:15

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.

A voir également:

VBA_nom onglet_ remplacer systématiquement
Remplacer disque dur par ssd - Guide
Remplacer word - Guide
Quel site pour remplacer coco - Accueil - Réseaux sociaux
Remplaçant de Coco : quelles solutions pour tchater gratuitement en ligne ? - Accueil - Réseaux sociaux
Remplacer carte graphique - Guide

5 réponses

Réponse 1 / 5

ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 429
18 sept. 2013 à 16:12

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

Réponse 2 / 5

Melaal Messages postés 29 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 26 septembre 2013 1
19 sept. 2013 à 10:27

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é...

Réponse 3 / 5

Melaal Messages postés 29 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 26 septembre 2013 1
19 sept. 2013 à 10:28

Rectification, c'est dans les noms des onglets que je souhaite effectuer ces remplacements.

Réponse 4 / 5

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
19 sept. 2013 à 10:51

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+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Melaal Messages postés 29 Date d'inscription mercredi 28 août 2013 Statut Membre Dernière intervention 26 septembre 2013 1
19 sept. 2013 à 11:15

Excellent, ça marche!
Merci beaucoup!

Discussions similaires

E mail s'arrête systématiquement

Facebook Messenger ne cesse de s'arrêter

L'Application s'arrête systématiquement sur Android

Application Yahoo Mail s'arrête automatiquement

Instagram s'arrête systematiquement