Discussion :

[Mike March]

Bonjour
Je vous joints ici mon fichier excel.
J'aimerai une aide sur un bout de code.
J'ai récupéré une partie de codes VBA, et j'essaye de l'adapter à ce que je souhaite.
Userform :
Userform1 est celui qui s'ouvrira à l'exécution du fichier xlsm.
Si je click sur Fiche commune cela lance le USERFORM10

Userform10 est celui qui sert à sélectionner la commune désirée et de transférer cela dans l'userform Résultat pour traitement (mails, et sms (partie à écrire encore)
j'aimerai avoir une selection type Textbox pour taper directement le nom recherché dans ma feuille données de l'afficher ensuite dans résultat.

J'ai pas le sentiment de tout avoir bouclé convenablement.

En vous remerciant par avance pour votre aide.

Merci par avance.

[Zekraoui_Jakani]

Je ne suis pas sûr de comprendre ce que vous voulez faire:
Pour transférer une donnée d'un formulaire à un autre, les 2 formulaires doivent être actifs pour donner l'instruction du style

Code :

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

UserForm1.Controls("Txtbox1") = UserForm10.Controls(textbox2).Value

Pour créer un Textbox et y taper directement le nom recherché dans la feuille "données" puis l'afficher ensuite dans résultat, le mode 'design' permet cela; Autant utiliser une simple cellule et la rendre 'cellule liée' à un textBox du formulaire "Résultat".

[Mike March]

Bonsoir Merci pour votre réponse
Il faudrait voir mon fichier pour visualiser ma demande.
UserForm1.Controls("Txtbox1") = UserForm10.Controls(textbox2).Value n'agira pas dans mon code vba.
Merci par avance

[Zekraoui_Jakani]

Pouvez-vous donner un exemple de TextBox dont le contenu doit être transféré d'un formulaire à un autre ? J'ai bien ouvert votre fichier (chose que je fais rarement pour des raisons évidentes), et justement, les formulaires contiennent tellement de contrôles qu'on sait pas par où commencer !! un peu plus d'explications serait utile.
Correction du code (qui devrait fonctionner):

Code :

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

UserForm1.Controls("Textbox1") = UserForm10.Controls("textbox2").Value

où TextBox(1 & 2) doivent être remplacés par les vrais noms de contrôles dans les formulaires respectifs.
Autre possibilité (que je n'ai jamais essayée): si Textbox1 et Textbox2 sont liés à la même cellule (propriété "LinkedCell"), alors le tour est joué; l'idée de transfert devient redondante.

[Mike March]

pour que vous puissiez comprendre mon idée je vous joints une capture du userform10
j'ai entouré la zone à transférer dans le userform Résultat
J'ai joint la capture des éléments de résultat.
En espérant être précis, et vous remercie par avance.

[Zekraoui_Jakani]

Je crois avoir deviné !
Je pars de l'hypothèse qu'en cliquant sur une commune (dans Form10), je récupère toute l'info affichée dans la listeBox1 pour la coller dans une feuille nommée "Sheet1" - à créer !
Ensuite, à l'ouverture du formulaire "Résultat", j'injecte l'info ainsi obtenue dans les TextBoxes correspondants. Est-ce exploitable pour vous ?
Voici le code utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ListBox1_Click()
 
  For i = 1 To NbCol
    tmp = Me.ListBox1.Column(i - 1)
    If Not IsError(tmp) Then Me("textbox" & i) = tmp
  Next i
  Me.Enreg = Me.ListBox1.Column(NbCol)
 
  For j = 1 To Me.ListBox1.ColumnCount                       'Nouveau
    On Error Resume Next                       'Nouveau
    Sheets("Sheet1").Cells(1, j) = Me.ListBox1.Column(j)                       'Nouveau
  Next j                       'Nouveau
 
End Sub

Je n'ai qu'à appliquer cette méthode à tout TxtBox concerné.
et lors de l'initialisation du formulaire "Résultat", on met à jour les différents TextBoxes; Exemple:

Code :

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

Me.TextBox25.Value = Sheets("Sheet1").[C1] & " " & Sheets("Sheet1").[D1]   'Nom Prénom