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

onyirimba

XLDnaute Occasionnel
Supporter XLD
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 :)
1631715535508.png
 

Pièces jointes

  • TEST VBA VBA Fichier Prod 15 09 2021.xlsm
    948.6 KB · Affichages: 7

onyirimba

XLDnaute Occasionnel
Supporter XLD
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
 
Dernière édition:

danielco

XLDnaute Accro
Essaie sur une copie de ton classeur :

VB:
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
Supporter XLD
Essaie sur une copie de ton classeur :

VB:
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)
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510