affichage dynamique ?

[assniok]

Bonsoir a tous,

est il possible, dans une textbox ou autre controle de faire afficher le contenue d'une cellule a chaque action sur un bouton... ce que j'aimerais c'est que chaque action sur ma userform, que ce soit un clic bouton ou un clic sur un autre controle que ce soit lié a une cellule et donc m'afficher un texte different a chaque fois...

a votre avis ?

 

[Pierrot93]

Re : affichage dynamique ?

Bonjour Assniok,

pas sur d'avoir tout compris, peut être comme ceci, pour des objets placés sur un USF.

Tu mets le code ci dessous, pour tous les objets concernés, dans l'événement "click" de chacun, nom des objets à adapter :

exemple pour un "CommandButton" :

Private Sub CommandButton1_Click()
Range("A1").Value = "CommandButton1_Click"
End Sub

ou bin comme ceci, si tu veux conserver les differentes actions...

Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value & "CommandButton1_Click" & vbLf
End Sub

bonne journée
@+

 

[assniok]

Re : affichage dynamique ?

salut et merci de ta reponse,

ce que j'essaye de faire ressemble en gros a ça :

on affiche dans une textbox ou autre une instruction, par exemple "cliquer bouton N°1"
une fois que l'utilisateur a cliqué sur le bouton 1, on efface le texte de la texbox et on y met l'instruction suivante, par exemple, cliquer bouton n°3, etc...

a votre avis, c'est faisable ?
@+

 

[Pierrot93]

Re : affichage dynamique ?

Re

oui, tu adaptes le code que je t'ai donné.... cela devrait fonctionner.

@+

 

[assniok]

Re : affichage dynamique ?

Re

oui, tu adaptes le code que je t'ai donné.... cela devrait fonctionner.

@+

je n'y arrive pas, ça me rempli la cellule A1, or que je voudrais un texte dans un controle sur ma usf

 

[Pierrot93]

Re : affichage dynamique ?

Re,

tu parlais de cellule dans ton 1er post me semble t il ....

remplace :

Range("A1").Value

par :

NomDeTonTextBox.Value

en espérant qu'il s'agit bien d'un textbox...

 

[assniok]

Re : affichage dynamique ?

oui cela fonctionne

j'etais parti sur ça car lorsque je parlais de cellule, je voudrais avoir un onglet "Instructions" qui aurait chaque instruction en A1, A2, A3 etc.. et avoir une seule textbox qui prendrais les differentes valeur des cellules Ax de l'onglet Instructions...

Me.TextBox4.Value = Sheets(Instructions).Range("A1").Value

mais ça ne semble pas fontionner...

 

[Pierrot93]

Re : affichage dynamique ?

Re

là je ne comprends plus, désolé suis largué....

 

[assniok]

Re : affichage dynamique ?

bon, j'ai trouvé, en fait ça marche avec ça :

TextBox4.Value = Sheets("Instructions").Range("A1").Value

ou

TextBox4.Value = Sheets("Instructions").[A1].Value

par contre je ne comprends pas ce que change la syntaxe car j'ai le meme resultat, quelqu'un pourrait m'expliquer la difference ?

@+

 

[Pierrot93]

Re : affichage dynamique ?

Re

c'est normal, les 2 instructions renverrons la même valeur, la 2ème utilise la fonction "evaluate" et demande un peu plus de ressource machine...

 

[assniok]

Re : affichage dynamique ?

ok merci pour cette info

j'ai encore une petite interogation, j'utilise cette ligne de code

TextBox4.Value = Sheets("Instructions").Range("A5").Value

elle fonctionne tres bien tant que le classeur actif est celui de ma USF, mais des que j'ouvre un autre classeur (via ma USF) ma ligne ne marche plus...

comment je peux la lié avec mon premier classeur, celui qui contient la USF ?

et enfin, toujours dans cette ligne, est il possible d'ajouter des propriétés pour avoir des couleurs differentes ou une police differente ?

@+

 

[Pierrot93]

Re : affichage dynamique ?

Re

modifies comme suit :

TextBox4.Value = Workbooks("NomdetonClasseur.xls").Sheets("Instructions").Range("A5").Value

@+

 

[assniok]

Re : affichage dynamique ?

merci ça fonctionne

par contre j'ai encore un cas ou ça ne foncionne pas.

Workbooks("monClasseur1.xls").TextBox4.Value = Workbooks("monClasseur1.xls").Sheets("Instructions").Range("A5").Value

j'ai tenté ça car je ne sais pas comment faire.

j'appel de ma 1ere USF, une autre USF, sur laquelle je clic sur un bouton, et la je voudrais faire afficher A5 dans ma textbox4, qui elle est sur ma premiere USF.

 

[Pierrot93]

Re : affichage dynamique ?

Re,

essaye peut être comme ceci :

NomDuUserform.TextBox4.Value

@+

 

[assniok]

Re : affichage dynamique ?

Private Sub CommandButton5_Click()
Workbooks("monclasseur1.xls").Dlg.TextBox4.Value = Workbooks("mon classeur1.xls").Sheets("Instructions").Range("A4").Value
UserForm1.Show
End Sub

sans succès