Bonjour,

Sous VB6.
j'ai creer une 20 cb et txt comme ci dessous
cb=checkbox, txt =textbox
1. cbAzerty - txtAzerty
2. cbBobo - txtBobo
...
Grace a ce code ci-dessous je recupere le checkbox qui a ete valide,j'extrais par exple depuis le nom du checkbox cbAzerty la chaine Azerty, et je voudrais grace a lui afficher le contenu de txtAzerty.

Attention, j'ai aussi besoins Azerty car c'est le nom d'un champ.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
    For i = 0 To Me.Controls.Count - 1
        If TypeOf Me.Controls(i) Is CheckBox Then
            If Left(Me.Controls(i).Name, 2) = "cb" Then
                    If Me.Controls(i).value = 1 Then
                        'MsgBox Right(Me.Controls(i).Name, Len(Me.Controls(i).Name) - 2)
                        TB
                    End If
            End If
        End If
    Next i
Merci.