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

onyirimba · 15 Septembre 2021

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 · 15 Septembre 2021

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 · 15 Septembre 2021

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 · 15 Septembre 2021

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 · 15 Septembre 2021

Bonjour onyirimba, danielco

onyirimba à dit:
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 · 15 Septembre 2021

danielco à dit:
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)

onyirimba · 15 Septembre 2021

job75 à dit:
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 · 16 Septembre 2021

Je vous remercie beaucoup pour vos conseils la Macro fonctionne

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

onyirimba

XLDnaute Occasionnel

Pièces jointes

danielco

XLDnaute Accro

onyirimba

XLDnaute Occasionnel

danielco

XLDnaute Accro

job75

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

onyirimba

XLDnaute Occasionnel

onyirimba

XLDnaute Occasionnel

Discussions similaires