Discussion :

[moilou2]

Bonjour, je voudrais avoir de l'aide pour savoir comment copier le texte présent dans une TextBox d'un premier UserForm, vers une autre TextBox dans un second UserForm.

Merci

[Bib0ucH]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Value = TextBox2.Value

essai et dit moi

Cdlt

Edit dsl j'ai mal lu ton probleme, ne prend pas en compte ce que j'ai dit

[LeForestier]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LeNomDuUF2.LeNomDuTexte.Text = LeNomDuUF1.LeNomDuTexte.Text

A+

[Bib0ucH]

Arf j'étais pas loin

[moilou2]

Slt et merci pour ta réponse, mais j'ai essayé ta solution et sa ne semble pas correspondre à ma demande. J'ai mis le texte suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
UserForm1.Date1.Text = Calendrier.Date1.Text

UserForm1 étant le nom de mon d'un UserForm et le second Calendrier

Date1 correspond au non de mes 2 TextBox.

Je précise que la valeur que je veux copier est une date, et quelle ne sera pas toujours identique.

Merci de ton aide

[LeForestier]

1°) essaie de ne pas employé des noms qui peivent prétés à confusion avec les mots de la synthaxe, d'accord il y a un 1 en plus mais...
2°) il faut que les 2 UF soient actif (ouvert)

EDIT:
Autre solution
Dans un module (module général) mettre une variables publique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Dans le module
Public Txt as string
'Dans le UF1
'dans l'événement change du texte
Txt = LeNomDuText.Text
'Quand tu ouvre le UF2
'dans Initialize
LeNomDuText.text =Txt
'Ou l'inverse bien évidemment

[moilou2]

Je suis désolé mais je suis un peu débutant en vba et je ne comprend pas tout se que tu me dit.

Peut tu essayé de me montrer comment faire sur un exemple simple et concret! merci beaucoup, désolé de te déranger pour si peu.

[LeForestier]

Ah vouiiii...

Je suis désolé mais je suis un peu ? débutant en vba

Mais tout t'apprendre ici je crois que ce serais un peu compliqué
Commence par ouvrir l'éditeur de code Alt+F11
Et examine déjà tout ce que tu a à disposition.
Tu a aussi
A+

[moilou2]

Je suis pas débutant débutant... Mais je ne suis pas un pro, j'ai déja réalisé le reste du programme, mais je suis bloqué sur cette partie. Sa ne doit quand même pas être bien compliqué il suffit juste de trouver la syntaxe, l'aide ne m'apportera rien, j'ai besoin de l'aide de quelqu'un qui a déja fait se genre de manipulation.

Il suffit juste de transposé un texte qui a été rentré par un opérateur dans une textBox d'une UserForm, vers la textBox du UserForm principal.

Merci

[ouskel'n'or]

Allez, je me lance !
Pour que tes deux userform soient actifs, si l'un appelle l'autre, le premier doit être masqué, non déchargé. Et inversement.
Pour masquer un userform, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.Hide

et non Unload...

En supposant que tu aies Userform2 affiché, tu peux, depuis Userform2, accéder à tous les contrôles d'Userform1 si celui-ci n'est que masqué.

Dans ce cas-là, dans Userfom2 tu peux mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.textBox2.text = Userform1.textBox1.text

Ai-je bien expliqué, LeForestier ?

[LeForestier]

Hummmm... Presque, sauf que s'il sont ouvert en modal !!!
J'avais pensé à ta solution, mais j'ai tenu compte de cette remarque
Sinon, explication très claire...
Bon
Dans l'IDE (Alt+F11) sélectionne >Outils > Module
Une feuille s'ouvre, c'est le module en question..
tu tape, ou copier/Coller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Explicit
Public Txt as string

Tu appel le UF1 et tu double clic sur le textBox, une autre feuille s'ouvre avec ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox1_Change()
' et tu ajoute
    Txt = TextBox1.Text
End Sub

Tu appel le UF2 et tu double clic dessus, une autre feuille s'ouvre avec ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Click()
 
End Sub

Dans le combo de droite tu sélectionne...Initialize et tu a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
'Tu ajoute
    TextBox1.text = Txt
End Sub

Bon amusement...
A+
EDIT:
Mais pour être plus claire explique comment sont ouvert tes UF parce que s'il sont ouvert tout les deux en même temps,il faut mettre le code dans l'activate du UF2 ou encore dans le change du texte du UF1

[ouskel'n'or]

Tu as raison mais je n'ai pas lu que ses userforms étaient en modal, or comme par défaut ils ne le sont pas...
Comme ça, moilou2, tu as les deux solutions

[LeForestier]

or comme par défaut ils ne le sont pas...

Tu est sûr de ce que tu dit
Fait un petit test

Edit:
Et pourtant tu le sais, c'est l'un de nos 1er sujet 'Enragé' que j'ai pas oublié.

[moilou2]

Je n'y arrive pas récapitulons:

J'ai un premier UserForm. Sur se premier UserForm, j'ai un bouton, qui m'ouvre un autre UserForm, sur lequel apparaît un contrôle calendrier. Je choisit une date sur le calendrier et cette date s'inscrit dans une TextBox, après appuye sur un bouton.

Je voudrais donc qu'en appuyant sur un bouton OK de cette UserForm, la date qui s'était inscrie dans la TextBox, aille maintenant s'inscrire dans une autre TextBox prévue à cet effet dans le premier UserForm.

Merci!

Au fait à quoi correspond le Me de ta formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.textBox2.text = Userform1.textBox1.text

[ouskel'n'or]

Tu peux remplacer le nom de l'userform Actif par me. dans les formules.
Tu peux en déduire au vu de cette ligne

Me.textBox2.text = Userform1.textBox1.text

que Me est userform2.
Donc, dans ton cas, tu dois inverser les termes dans Userform1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.textBox1.text = Userform2.textBox1.text

si tes deux textbox se nomment textbox1... Sinon tu adaptes
Maintenant, si tu es dans Userform2 (le calendrier) tu dois mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.textBox1.text = Me.textBox1.text

Tu verras, à force, on s'y fait

[moilou2]

OK merci beaucoup sa marche c'est cool

[moilou2]

Est ce que vous pouvez regarder se problème aussi car je n'ai pas eu de réponse se matin! Merci

Bonjour à tous, voila mon problème est le suivant:

J'ai créé des tableaux croisés dynamiques, et je voudrais qu'ils s'actualisent à chaque fois qu'il y a une nouvelle donnée de rentrée. Pour cela j'ai mis le code pour actualiser mes tableaux dans une macro, mais cette action ne fonctionne pas lorsque le classeur est partagé.

J'aurais donc voulu avoir des astuces pour contourner ce problème, et si possible avoir une macro permettant de partager/départager un classeur!

Merci à tous! MOILOU2