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

[Thautheme]

Bonjour Mike, bonjour le forum,

Je t'avoue ne pas comprendre cette phrase :
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

Est-ce que tu souhaites n'afficher que les Textboxes qui correspondent aux colonnes renseignées de la ligne sélectionnée ? Ou uniquement les textboxes montrées dans la capture d'écran (dans ce cas à quoi servent les autres !) ?

[MarcelG]

Bonjour,

Personnellement, je ne peux que conseiller l'affichage de toutes les zones de texte. La saisie gagnerait en clarté.
Au demeurant, il est éventuellement possible de gérer leur propriété Enabled.

Au niveau de l'ergonomie, je conseillerais également de nommer ces zones de texte de manière explicite (Txt_nom).
Tout comme les autres contrôles d'ailleurs (Cbx_mois)

[Mike March]

Bonjour Mike, bonjour le forum,

Je t'avoue ne pas comprendre cette phrase :
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

Est-ce que tu souhaites n'afficher que les Textboxes qui correspondent aux colonnes renseignées de la ligne sélectionnée ? Ou uniquement les textboxes montrées dans la capture d'écran (dans ce cas à quoi servent les autres !) ?

Les textox de la ligne sélectionnée
et je placerai les textbox adaptées selon l'ordre issu de mes colonnes (cf image ci dessous)

[Mike March]

Bonjour
Résolu j'ai trouvé
Il s'agissait de mettre en corrélation les textbox et les ctl de la boucle
X Ctl = X texbox X
C est tout co.....