Macro remplacer nom d'onglet dans une formule selon liste
Bonjour la compagnie,
Voilà, voilà je reviens vers vous avec un nouveau casse-tête et je vous serai reconnaissant de bien vouloir m'aider
Voici mon souci :
Dans une feuille j'ai une colonne qui contient une liste, cette liste contient des noms d'autres feuille et en face de chaque nom se trouve une formule
Ma macro consiste à copier les formules de la ligne a4 et de la glisser sur le reste du tableau
Je me demandais si il y a une macro qui me permeterai de modifier les formules selon les textes de la colonne a
Exemple :
Feuil1
Cellule A4 = CC01 B4 = CC01!a4
Cellule A5 = CC02 B5 = CC01!a4 modifier CC01 par CC02
C'est comme la manipulation ctrl/h remplacer ou la fonction cherche/trouve/substitue
Quelqu'un sait comment faire une macro de ce type svp
Je pense qu'il faut crée une boucle par rapport au tableau de sorte que la procédure s'applique en fonction du tableau
Merci d'avance pour toute proposition
Bonjour,
macro VBA ou formule ?
En formule vous pouvez utilisez INDIRECT :
formule en B4 :
=INDIRECT(A4&"!A4")
En fait INDIRECT permet de mettre en variable une ou toutes partie d'une référence de cellule, donc ici la formule en B4 voulue est :
=valeur de A4 ! cellule A4 de la feuille indiquée en A4
=INDIRECT(A4&"!A4")
@ bientôt
LouReeD
Bonjour,
Merci pour la réponse
En fait j'aimerai bien opter pour un code VBA sinon formule en VBA si possible bien sûr
Voilà le code que j'aimerai optimiser, de sorte de créer une boucle sur chaque ligne et modifer le contenue de la cellule contenant la formule par la valeur qui se trouve dans le tableau
Sub Macro1()
Sheets("Feuil1").Select
Range("C6").Select
Selection.Copy
Range("C7:C8").Select
ActiveSheet.Paste
Range("C6").Select
Selection.Replace What:="CC01", Replacement:="CC02", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B8").Select
Selection.Replace What:="CC01", Replacement:="CC03", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Bonsoir,
la formule vous convient elle ?
Je dirais oui au vu du clic sur le petit cœur.
Voir fichier :
@ bientôt
LouReeD
C'est parfait, merci beaucoup
Bonsoir,
Merci @ vous !
@ bientôt
LouReeD