Affiche USERFORM si

tototiti2008

XLDnaute Barbatruc

• 28 Mai 2008

• #2

Re : Affiche USERFORM si

Bonjour Gilou,

Ton code a pourtant l'air correct... Tu est bien sûr qu'il vérifie la valeur de la cellule B36 de la bonne feuille ?

 

Vote positif 0 Vote négatif

G

gilou31

Guest

• 28 Mai 2008

• #3

Re : Affiche USERFORM si

tototiti2008 à dit:

Bonjour Gilou,

Ton code a pourtant l'air correct... Tu est bien sûr qu'il vérifie la valeur de la cellule B36 de la bonne feuille ?

Cliquez pour agrandir...

ahah ! non c'était I36 lol. Non mais au moins quelqu'un a pu confirmer mon code, comme je débute sur VBa 🙂
Tant qu'on y est, j'ai crée un bouton OK sur ce fameux userform. Lorsque je clique dessus, il m'arrete la macro. Mais lorsque je ferme l'userform avec la croix en haut a droite, il ne le fait pas... ET comme ce n'est pas moi qui utilisera ce programme, je voudrais que la macro s'arrete lorsque je clique aussi sur cette croix

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Mai 2008

• #4

Re : Affiche USERFORM si

Pour exécuter un code lors de la fermeture avec la croix, tu dois le mettre dans l'évènement :

Private Sub UserForm_QueryClose

Attention, si ton bouton ferme ton Userform et que tu fais un Unload, QueryClose s'éxecute.

 

Vote positif 0 Vote négatif

G

gilou31

Guest

• 28 Mai 2008

• #5

Re : Affiche USERFORM si

A ba voila !
super merci beaucoup...
encore une toute petite question et puis j'arrete de vous embeter...

QUand je fais un useform, avec un texte à remplir, comme je fais pour récuperer le contenu de ce qui a été saisis, pour pouvoir le coller ailleuirs 🙂 ?

Private Sub CommandButton1_Click()
TextBox1.Selection
Selection.Copy

?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Mai 2008

• #6

Re : Affiche USERFORM si

C'est encore plus simple que ça :

Activecell.value = Textbox1.Text

ou

MaVariable = Textbox1.Text

 

Vote positif 0 Vote négatif

G

gilou31

Guest

• 28 Mai 2008

• #7

Re : Affiche USERFORM si

tototiti2008 à dit:

C'est encore plus simple que ça :

Activecell.value = Textbox1.Text

ou

MaVariable = Textbox1.Text

Cliquez pour agrandir...

le probleme est que je veux la copier dans une cellule situé sur une autre feuille,et comme ceci ca ne marche pas...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Mai 2008

• #8

Re : Affiche USERFORM si

essaye avec :

Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A12").value = Textbox1.Text

 

Vote positif 0 Vote négatif