Version imprimable
bonjour à tous,
J'ai eu quelques cours de VBA mais là je bloque :
J'ai créer un userform pour définir une nouvelle feuille, ou l'on renseigne le nom de cette nouvelle feuille.
J'aimerai creer depuis une autre feuille un lien qui serait du type : ("='nom de ma nouvelle feuille'!C46" dans la commande de mon userform
Le probleme est que le nom de ma nouvelle feuille est : "Textbox1.value"
Si une âme charitable pouvai me venir en aide merci!!
Code:= Worksheets(Textbox1.value).Range("C46")
Je pense que je ne suis pas bien fait comprendre:?, j'aimerai que ce qui ce créersur la page d'exel soit de la forme : ='nom de la nouvelle feuille'!C46
(si on modifie la valeur en C46 sa s'actualise automatiquement! :D)
Que vient faire ton textbox dans l'histoire ?
Si ce que tu désires est nommer ta nouvelle feuille selon la valeur placée dans C46 d'une autre feuille alors tu peux faireCitation:
Envoyé par Ceedjay
Où feuil1 est la feuille, et C26 la cellule, contenant le nom de la nouvelle feuille.Code:
2
Si ce n'est pas ça, alors essaie d'expliquer clairement ce que tu veux ;)
dSL je reprend l'explication,
j'ai un userform qui me creer une nouvelle feuille a partir d'un textbox que l'utilisateur renseigne.
une fois la feuille crée, je voudrez qu'il y ait un lien depuis une autre feuille vers la nouvelle!! que je vien de créer
(vers la cellule D46 de la nouvelle feuille)
Je pense que c'est de la forme :
Le probleme est que je ne peut pas mettre textbox1.value a la place de nouvelle feuille!!!Code:Worksheets(autrefeuille).range(X57)=Worksheets(nouvellefeuille).range(C46).value
Dsl mais C a moitié cho a expliquer:P
Ce n'est pas chaud à expliquer mais tu t'exprimes mal.
Tu souhaites "créer un lien" depuis la feuille existante vers la nouvelle, de sorte qu'on puisse cliquer sur ce lien et afficher la nouvelle feuille directement, j'imagine. Ou alors ranger dans l'ancienne feuille une valeur provenant de la nouvelle.
Ce que tu fais copie la valeur de la cellule Nouvelle!C46 dans Ancienne!X57, c'est-à-dire rien puisqu'il s'agit d'une nouvelle feuille. Autrement dit ce n'est pas la bonne façon de faire.
Code:Worksheets("Ancienne").Range("X57").Value = "=" & txtNomFeuille.Value & "!C46"