Discussion :

[eric4459]

Bonjour à tous,
A partir d'un fichier j'extrais une liste de données en qui ont en commun un paramètre.
Dans ma 4ème colonne il y a des numéros qui peuvent être identiques.
Je voudrais afficher dans un UserForm, après sélection de l'un de ces numéros, toutes les données correspondantes selon le modèle ci-dessous.



Par exemple, si je sélectionne le numéro 014 de la liste ci-dessus (à partir d'un autre UserForm que j'ai déjà codé), je voudrais insérer dans chaque TextBox les données associées pour chacune des lignes qui contient le numéro 014.

J'ai pensé à une boucle mais je ne vois pas comment gérer le passage d'une des lignes de mon UserForm à l'autre, j'ai 5 lignes dans mon UserForm.

Second souci, J'ai limité le nombre de lignes sur mon UserForm à 5 mais il est possible que la liste que je dois traiter en comporte davantage.
J'ai pensé à compter le nombre de ligne qu'il me faut afficher et si il est supérieur à 5 je voudrais faire apparaître sur mon UserForm un bouton supplémentaire "Suivant".
Est-il possible d’écrire ceci?

Code :

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

1
2
3
If NbList >5 then
UserForm2.CommandButton2.Visible=True
End If

Merci pour votre aide et vos conseils

Eric

[Marc-L]

Bonjour,

oui c'est possible, il suffit de mettre cette propriété par défaut à False …

Pour alimenter les lignes, différentes voies comme par exemple via la méthode Find …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[OBO29]

Bonjour,

Lorsque j'ai besoin de passer des paramètres d'un UserForm à un autre, j'utilise des cellules d'une feuille que je me réserve à cet effet.

A+

[eric4459]

Bonjour,
Voici ce que j'ai trouvé et appliqué, mon UserForm est composé de 5 lignes , chacune des lignes possède 5 Textbox ( de 1 à 5, puis de 6 à 11, etc) et 1 ComboBox:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  For m = 0 To (NbList2 * 5) Step 5
                If k < NbList2 Then
                     NOI_TO_UPDATE.Controls("TextBox" & 1 + m).Value = USF_List.Offset(k, 0)
                     NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value = USF_List.Offset(k, 1)
                     NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value = Format(NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value, "dd/mm/yyyy")
                     NOI_TO_UPDATE.Controls("TextBox" & 3 + m).Value = USF_List.Offset(k, 2)
                     NOI_TO_UPDATE.Controls("TextBox" & 4 + m).Value = USF_List.Offset(k, 5)
                     NOI_TO_UPDATE.Controls("TextBox" & 5 + m).Value = USF_List.Offset(k, 6)
                     NOI_TO_UPDATE.Controls("ComboBox" & 1 + k).List = Data.Range("B5:B7").Value
                     k = k + 1
                End If
            Next m

J'ai testé et cela fonctionne si j'ai entre 1 et 5 données de base à traiter.
Ce que je souhaite faire maintenant c'est lorsque j'ai 6 données ou plus, un bouton supplémentaire apparaît ( plus de souci pour cela) pour traiter les données suivantes et afficher les données associées.
Comme pour le traitement précédent, je vais essayer de gérer cela avec ma zone tampon.
Je vous tiens au courant
Eric

[eric4459]

Bonjour à tous,
Voici ce que j'ai écris pour alimenter mon UserForm (Simplifié par rapport à hier)

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
 With Data
        NbList2 = .Cells(.Rows.Count, 7).End(xlUp).Row - 26 ' Compte le nombre de données à traiter
 End With
 
            For m = 0 To 20 Step 5
                NOI_TO_UPDATE.Controls("TextBox" & 1 + m).Value = USF_List.Offset(k, 0)
                NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value = USF_List.Offset(k, 1)
                NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value = Format(NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value, "dd/mm/yyyy")
                NOI_TO_UPDATE.Controls("TextBox" & 3 + m).Value = USF_List.Offset(k, 2)
                NOI_TO_UPDATE.Controls("TextBox" & 4 + m).Value = USF_List.Offset(k, 5)
                NOI_TO_UPDATE.Controls("TextBox" & 5 + m).Value = USF_List.Offset(k, 6)
                NOI_TO_UPDATE.Controls("ComboBox" & 1 + k).List = Data.Range("B5:B7").Value
                k = k + 1
            Next m
 
  If NbList2 > 5 Then
    NOI_TO_UPDATE.CommandButton2.Visible = True 'Si j'ai plus de 5 donnees à traiter j'affiche un bouton que j'ai nommé "Suivant" sur mon Userform
  End If

Puis pour la Gestion des données supplémentaires (Si j'ai plus de 5 lignes à traiter)

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
Private Sub CommandButton2_Click()
Dim Data As Worksheet
Dim USF_List As Range
Dim Cty_Rate As Range
Dim NbList As Integer
Dim NbList2 As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Dim n As Integer
Dim SRE As Variant
Set Data = ThisWorkbook.Sheets("Data")
Set USF_List = Data.Range("G27")
Set Cty_Rate = Data.Range("G5")
j = 0
k = 0
 
If (TextBox1.Value <> "" And ComboBox1.Value = "") Or (TextBox6.Value <> "" And ComboBox2.Value = "") Or (TextBox11.Value <> "" And ComboBox3.Value = "") Or (TextBox16.Value <> "" And ComboBox4.Value = "") Or (TextBox21.Value <> "" And ComboBox5.Value = "") Then
    TB1 = MsgBox("Inspector Type not Selected", vbOKOnly, "WARNING")
    If TB1 = vbOK Then
         Exit Sub
    End If
 End If
 
Me.Hide
 
  Data.Range("M6") = Data.Range("M6") + 1 'Ici je me sert d'un compteur pour connaitre le nombre d'affichage a réaliser
 
                'Je vais afficher mon Userform pour les données de 1 à 5, puis 1 fois supplémentaire pour les données de 6 à 10, puis 1 fois supplémentaire pour les données de 11 à 15
                'et enfin une dernière fois pour la donnée 16 (1 affichage initial puis 3 affichages supplémentaires)
 
       Select Case Data.Range("M6")
       Case Is = 1
       k = 5
       Case Is = 2
       k = 10
       Case Is = 3
       k = 15
       Case Is = 4
       k = 20
       Case Is = 5
       k = 25
       End Select
 
            For m = 0 To 20 Step 5 'Mise à jour des données issues des premières entrées dans les TextBox après Appui sur le Bouton
 
                     USF_List.Offset(k - 5, 0) = NOI_TO_UPDATE.Controls("TextBox" & 1 + m).Value
                     USF_List.Offset(k - 5, 1) = NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value
                     USF_List.Offset(k - 5, 1) = Format(USF_List.Offset(k - 5, 1), "mm/dd/yyyy")
                     USF_List.Offset(k - 5, 2) = NOI_TO_UPDATE.Controls("TextBox" & 3 + m).Value
                     USF_List.Offset(k - 5, 5) = NOI_TO_UPDATE.Controls("TextBox" & 4 + m).Value
                     USF_List.Offset(k - 5, 6) = NOI_TO_UPDATE.Controls("TextBox" & 5 + m).Value
                     USF_List.Offset(k - 5, 4) = NOI_TO_UPDATE.Controls("ComboBox" & 1 + j).Value
                     k = k + 1
                     j = j + 1
 
            Next m
 
  For m = 1 To 25
  NOI_TO_UPDATE.Controls("TextBox" & m).Value = "" 'Effacement des valeurs dans les TextBox
  Next m
 
  Select Case Data.Range("M6")
       Case Is = 1
       k = 5
       Case Is = 2
       k = 10
       Case Is = 3
       k = 15
       Case Is = 4
       k = 20
       Case Is = 5
       k = 25
       End Select
   j = 0
            For m = 0 To 20 Step 5 'Entrée des valeurs suivantes dans les TextBox si Nbre de données >5 ou >10 etc..
                     NOI_TO_UPDATE.Controls("TextBox" & 1 + m).Value = USF_List.Offset(k, 0)
                     NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value = USF_List.Offset(k, 1)
                     NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value = Format(NOI_TO_UPDATE.Controls("TextBox" & 2 + m).Value, "dd/mm/yyyy")
                     NOI_TO_UPDATE.Controls("TextBox" & 3 + m).Value = USF_List.Offset(k, 2)
                     NOI_TO_UPDATE.Controls("TextBox" & 4 + m).Value = USF_List.Offset(k, 5)
                     NOI_TO_UPDATE.Controls("TextBox" & 5 + m).Value = USF_List.Offset(k, 6)
                     NOI_TO_UPDATE.Controls("ComboBox" & 1 + j).Value = ""
                     k = k + 1
                     j = j + 1
            Next m
 
            With Data
                  NbList2 = .Cells(.Rows.Count, 7).End(xlUp).Row - 26 ' Compte le nombre de NOI de la feuille Data
            End With
 
            If Data.Range("M6") = Int(NbList2 / 5) Then
                CommandButton2.Visible = False 'Si mon compteur est égal à l'entier de la division de mes données par 5 (Si j'ai 16 donnees à traiter mon compteur sera egal à 3) je masque le bouton que j'ai appelé "Suivant"
            End If
 
 
NOI_TO_UPDATE.Show
 
End Sub

Eric