Bonjour, bonsoir,
j'ai créé des label par code et aimerai pouvoir les modifier à l'aide d'un InputBox.
Pour l'InputBox, j'ai pas de soucis, mais pour écrire dans mes label
J'ai chercher sur le forum, mais j'ai pô trouvé (j'suis p'têt pas très doué ...)
Je vous passe le code imaginé qui ne veut pas,
et merci par avance.

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
Dim panneauSaisie As New Panel
Dim lbl_numero As Label
 
 Sub tableau()
        With Me.panneauSaisie
            .Top = 134
            .Left = 122
            .Width = 550
            .Height = 640
            .AutoSize = False
            .AutoScroll = True
        End With
        Me.Controls.Add(panneauSaisie)
        For i As Integer = 1 To 50
            lbl_numero = New Label
             With lbl_numero
                .Name = "lbl_numero" & i.ToString
                .Top = posY
                .Left = 1
                .Width = 98
                .Height = 26
                .TextAlign = ContentAlignment.MiddleCenter
                .Font = policeLbl
                .Text = "ancien numéro"                         'i.ToString
            End With
            Me.panneauSaisie.Controls.Add(Me.lbl_numero)
           posY += 32
        Next
    End Sub
 
    Sub modifierNumero()
        For i As Integer = 1 To 50
            With lbl_numero
                .Name = "lbl_numero" & i.ToString
                .Text = "nouveau texte"                            'i.ToString
            End With
        Next
    End Sub
Où est la faille ???

Pieche