text box pour écrire dans cellule et lire cette cellule ensuite

[pascal21]

effacer textbox sans effacer le contenu de la cellule

bonsoir le forum
j'aurais besoin d'un ptit renseignement en vue d'appliquer une idée sur un de mes classeurs si j'arrive à concrètiser cette idée
j'ai un usf avec un combobox qui me permet de selectionner la feuille active
un textbox lié à la cellule a1
lorsque je selectionne une feuille j'écris ensuite dans le texbox qui à son tour ecrit dans a1
je cherche comment faire pour que lorsque je selectionne une autre feuille que le textbox revienne à "" mais pas le contenu de la cellule que je viens de renseigner
en gros le code serait:
lorsque je change la selection du combobox si a1 >0 alors textbox = ""

pour l'instant je n'arrive qu'a effacer les 2 en même temps
e
merci

 

[justine]

Re : text box pour écrire dans cellule et lire cette cellule ensuite

bonsoir a tous, pascal21
je ne pige pas, tu l'apporte toi meme ta solution

combobox1_change()
sheets(combobox1.value).select
if range("A1").value>0 then textbox1=""
end sub

ai je bien compris???

 

[pascal21]

Re : text box pour écrire dans cellule et lire cette cellule ensuite

bonsoir justine
ça ne fonctionne pas bien
si je change plusieurs fois de feuilles après un certain temps le contenu de la cellule s'efface quand même

ce que j'aimerais
je selectionne feuille 1 avec le combobox1
j'écris dans textbox1 qui écris dans cellule a1
je selectionne feuille2 le textbox s'efface si a1 feuil2 est vide
d'ailleurs ce qui serait le top dans le cas contraire (a1 non vide) c'est que le textbox affiche alors le contenu de a1 feuil2
ou formuler autrement comment écrire dans cellule a1 et ensuite avoir le contenu de la cellule a1 dans le textbox si je reviens dans feuil1
hum!!!! pas plus clair ça.............
alors si déja je ne comprends pas ce que je veux expliquer, vous aurez beaucoup de mérite à me donner une réponse
bon on verra bien
sur ce demain je bosse. debout avant 4H et grosse journée en perspective
alors je vous laisse bonne nuit
et ne veillez pas trop tard sur ce problème quand même
ce n'est qu'une étude de "faisabilité"

 

[pascal21]

Re : text box pour écrire dans cellule et lire cette cellule ensuite

Private Sub comboBox1_Click()
Worksheets(ComboBox1.Value).Activate
[COLOR=Red] TextBox1.Value = Range("a1").Value[/COLOR]

j'ai eu le déclic juste en mettant mon pyjama (si si !!!je dors en pyjama et alors!!!!)
je cherchais compliqué et la reponse était toute simple