XL 2013 Remplacer le nom contenu dans une formule par l'intitulé de l'onglet correspondant

[onyirimba]

Bonjour,

Est-ce que je pourrai obtenir une MAcro/VBA qui remplace le nom " BRANCHE (2) " (dans la barre des formules) contenu dans les onglets de couleurs bleu à partir de la colonne W par l'intitulé de l'onglet associé avec en plus un espace et (2) ?

Par exemple dans l'exemple ci-après, il faudrait que BRANCHE (2) soit remplacée par BRANCHE ICO (2) dans la barre de formule (car BRANCHE ICO est l'intitulé de l'onglet associé) et ainsi de suite.
J'ai joint un fichier illustrant mes propos.

Merci de votre aide par avance

 

[danielco]

Bonjour,

C'est à dire que pour REGION IDF on doit remplacer REGION par REGION (2) ? Et est-ce que BRANCHE est entouré d'apostrophes ?

Daniel

 

[onyirimba]

Bonjour,
on doit remplacer dans les colonnes au dela de la colonne V dans les cellules pour chaque onglet respectif
" BRANCHE (2) " par " REGION IDF (2) ".
" BRANCHE (2) " par " REGION CENTRE EST (2) "
"BRANCHE (2) " par " DIJON BETON (2) " etc...
BRANCHE n'est pas entouré d'apostrophes

Merci de votre aide

 

[danielco]

Essaie sur une copie de ton classeur :

Sub test()
  Dim Sh As Worksheet, C As Range
  For Each Sh In Sheets
    If Sh.Tab.ColorIndex = 33 Then
      Sh.[W:XFD].Replace Sh.Name, Sh.Name & " (2)", xlPart
    End If
  Next Sh
End Sub

Attention, suivant les formules, il faut peut-être ajouter des apostrophes avant et après le nom de la feuille.

NON TESTE

Daniel

 

[job75]

Bonjour onyirimba, danielco

on doit remplacer dans les colonnes au dela de la colonne V dans les cellules pour chaque onglet respectif
" REGION IDF " par " REGION IDF (2) ".
" REGION CENTRE EST " par " REGION CENTRE EST (2) "
" DIJON BETON " par " DIJON BETON (2) " etc...

Ce n'est pas ce que je constate, dans les onglets les formules contiennent toutes BRANCHE (2).

A+

 

[onyirimba]

Essaie sur une copie de ton classeur :

Sub test()
  Dim Sh As Worksheet, C As Range
  For Each Sh In Sheets
    If Sh.Tab.ColorIndex = 33 Then
      Sh.[W:XFD].Replace Sh.Name, Sh.Name & " (2)", xlPart
    End If
  Next Sh
End Sub

Attention, suivant les formules, il faut peut-être ajouter des apostrophes avant et après le nom de la feuille.

NON TESTE

Daniel

En fait il faut remplacer BRANCHE (2) dans les cellules de chaque feuille par l’intitulé de l’onglet respectif + espace + (2)

 

[onyirimba]

Bonjour onyirimba, danielco

Ce n'est pas ce que je constate, dans les onglets les formules contiennent toutes BRANCHE (2).

A+

Oui c’est exact
Merci de ta remarque pertinente

 

[onyirimba]

Je vous remercie beaucoup pour vos conseils la Macro fonctionne