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.
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?