Userform et listbox demande aide pour appui sur traitement résultat.

Version imprimable

09/10/2019, 11h44
Mike March

1 pièce(s) jointe(s)

Userform et listbox demande aide pour appui sur traitement résultat.

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.
09/10/2019, 17h08
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:

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".
09/10/2019, 19h51
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
10/10/2019, 06h04
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:

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.
10/10/2019, 07h51
Mike March

2 pièce(s) jointe(s)

Userform10 et résultat

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.

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:

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:

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

10/10/2019, 13h46
Mike March

On y est presque

Super en partie résolue copie dans la feuille sheet1
J'aimerai récupérer la totalité des données.
Et l'afficher dans Résultat.
Mais bug par moment car la boucle suivante si je sélectionne autre commune le copier coller se fait dans la partie ''données'' et non plus dans sheet
Merci pour votre patience

Désolé, il m'est difficile de visualiser le problème, mais à tout hasard, avant la ligne 177 du code (Form10), mettez ceci : Sheets("Sheet1").activate; comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)
 
  Sheets("Sheet1").Activate     'NOUVEAU !!
  For j = 1 To Me.ListBox1.ColumnCount
    On Error Resume Next
    Sheets("Sheet1").Cells(1, j) = Me.ListBox1.Column(j)
    Sheets("Sheet1").Cells(1, j).Activate
  Next j
 
End Sub

10/10/2019, 16h43
Mike March

Super
Cela fonctionne
Je déploie dans mon fichier et reviendrai vers vous
EN vous remerciant pour votre patience et votre aide
Bien cordialement
Mike
10/10/2019, 20h07
Zekraoui_Jakani

Au fait, la ligne 13 de mon code ci-dessus "Sheets("Sheet1").Cells(1, j).Activate" est inutile !
10/10/2019, 20h10
Mike March

Il me reste a structurer dans Résultat l'USF les données issues de USF10 dans le bon ordre

Je remets en non résolu juste pour info complémentaire VBA code

Bonjour
Suite à votre code, il marche nickel
mais la transposition dans le feuille sheet ne se fait pas dans le bon ordre tel qu'il est représenté dans l'USF10
puis lorsque je retourne de l'USF résultat, la ligne sheet1 se décale
Je souhaite qu'il reste sur la sheet données, pour éviter ces vas et vient de feuille à feuille qui me semble perturber dans le cas d'une demande répétée sur le fichier.

Autre bout de vba qui me pose souci lors de la mise en place de L'USF10

ici aussi le code pose problème car la zone (ligne 3) A6:Z ne correspond pas en totalité de ma sheet ''données qui va jusqu'à la colonne BM
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub UserForm_Initialize() Set f = Sheets("données") Set Rng = f.Range("A6:Z" & f.[A65000].End(xlUp).Row) ' 1 colonne de plus nomTableau = "Tableau1" ActiveWorkbook.Names.Add Name:=nomTableau, RefersTo:=Rng ' A adapter NbCol = Range(nomTableau).Columns.Count - 1 données = Rng.Value ' données dans un Array pour rapidité For i = 1 To UBound(données): données(i, NbCol + 1) = i: Next i titre = Application.Index(Rng.Offset(-1).Value, 1) ' Titres de la données Me.ComboBox1.List = titre Me.ListBox1.List = données EnTeteListBox Me.ListBox1.ColumnCount = NbCol + 1 Me.ComboBox1.ListIndex = 1 '-- labels textbox LabelsTextBox For i = NbCol + 1 To 34: Me("textbox" & i).Visible = False: Next i For i = NbCol + 1 To 34: Me("label" & i).Visible = False: Next i '-- colTri 'Me.ComboTri.List = Application.Transpose(Range(nomTableau).Offset(-1).Resize(1)) ' Ordre tri B_ajout_Click End Sub
Avez-vous une idée?