Discussion :

[Mike March]

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 :

Code :

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

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