1 pièce(s) jointe(s)
TextBox dans UserForm issu d'un tableau de 65 colonnes
Bonjour
voici mon bout de code de l'USF qui pose problème.
Je m'explique j'ai un fichier qui contient entre autre l'onglet données.
Cet onglet à 65 colonnes
il démarre à la ligne 6 (zone du dessus non exploitée par cet USF
J'aimerai avoir des Texbox issu des colonnes 1 à 65
et de n'en afficher que celles dont j'ai besoin dans des textbox 1-xtextbox sélectionnées dans l'USF
Merci par avance
l'usf est représenté comme suit :
Pièce jointe 510484
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
| Public Sub cboCommune_Change()
Dim lig
lig = Sheets("données").Range("a1:c" & Sheets("données").Range("A" & Rows.Count).End(xlUp).Row) _
.Find(cboCommune.Text).Row
For ctl = 1 To 65 ' Mis a à jour suite à modif : il faut autant de textbox que la boucle ctl propose & dans mon cas j'ai créé 65 txbox dans mon USF Résolu le 17/10/19
' MsgBox ctl
Me.Controls("textbox" & ctl) = Sheets("données").Cells(lig, ctl + 1)
Next ctl
End Sub
Private Sub Label23_Click()
End Sub
Private Sub Label31_Click()
End Sub
Private Sub Label38_Click()
End Sub
Private Sub Label7_Click()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox19_Change()
End Sub
Private Sub TextBox21_Change()
End Sub
Private Sub TextBox26_Change()
End Sub
Private Sub TextBox22_Change()
End Sub
Private Sub TextBox23_Change()
End Sub
Private Sub UserForm_Activate()
cboCommune.Clear
ActiveCell.EntireRow.Select
With Sheets("données")
lig = 6
Do While .Cells(lig, 1) <> ""
cboCommune.AddItem .Cells(lig, 1)
lig = lig + 1
Loop
End With
End Sub |
