Discussion :

[killowatt]

Bonjour,
je souhaite sélectionner tous les controls de ma forme seulement voila mes controls sont dans des tabpage.
J 'ai déjà utilisé c code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
        Dim ctrl As Control
 
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "TextBox" Then
                wsExcel.Range(CTRL. Tag).Value = ctrl.Text
            End If
 
        Next

Pour sélectionner les control dans une forme, mais la pour le tab control je sèche..... Ce dois être du genre :

Code :

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

1
2
3
4
5
6
7
 
Dim ctrl As TabPageControlCollection
 
            For Each ctrl In Me.TabPageControlCollection
                If TypeName(ctrl) = "TextBox" Then wsExcel.Range(ctrl.Tag).Value = ctrl.Text
            Next
            Dim i As Integer, j As Integer

Mais la je bloque........
Y'aurai - t - il quelqu'un pour m' aider ??

[killowatt]

voila a quoi ressemble mon code :

Code vb.net :

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
 
  appExcel = CreateObject("Excel.Application")
            'Ouverture du fichier type Excel
            wbExcel = appExcel.Workbooks.Open("\\Ppffiles\commun\PRODUCTION\POPP\Rapports\F-PRO-09 Rapport injection.xlsx")
            'wsExcel correspond à la première feuille du fichier
            wsExcel = wbExcel.Worksheets(1)
            'on affice pas excel 
            appExcel.Visible = True
 
            'Je declare la première page du fichier rapport
            Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet = wbExcel.Worksheets("rapport d'injection")
            Dim i As Integer, j As Integer
 
 
 
            ' Dim tb As TabPageControlCollection
            Dim ctrl As Control
 
            'For i = 0 To TabControl1.TabPages.Count - 1
            For Each ctrl In TabControl1.TabPages
                If TypeName(ctrl) = "TextBox" Then
                    wsExcel.Range(ctrl.Tag).Value = ctrl.Text
                End If

Et la rien ne se passe comment faire S.V.P.

[rv26t]

Bonjour,

Code vb.net :

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

1
2
3
4
5
For Each tp As TabPage In TabControl1.TabPages
  For Each ctrl As Control In tp.Controls
    ' ...
  Next
Next

[Edit]Au fait, les "textbox"s sont-il dans des "panel"s ou des "groupbox"s ? (auquel cas il faut en tenir compte)

[killowatt]

En fait j'ai réussi pour les textbox dans les panels avec ce code

Code vb.net :

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

1
2
3
4
5
            For Each ctrl In Me.TableLayoutPanel1.Controls
                If TypeName(ctrl) = "TextBox" Then
                    wsExcel.Range(ctrl.Tag).Value = ctrl.Text
                End If
            Next

Mais j'ai deux soucis :

Ayant plusieurs Panel je répète ce code autant de fois que nécessaire (pas très esthétique), et mon second pb est que je dispose aussi de checkbox......
Et la c'est le drame : Je n'arrive pas a convertir mes textbox en valeur booléenne pour transferer leurs valeur sur Excel !!! J'ai essayé :

Code vb.net :

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

1
2
3
4
5
6
7
8
9
            'Dim cb As CheckBox
            'For Each ctrl In Me.TabControl1.Controls
            '    If TypeOf ctrl Is CheckBox Then
            '        cb = ctrl
            '        If cb.Checked = True Then
            '            wsExcel.Range(ctrl.Tag).Value = ctrl.Text
            '        End If
            '    End If
            'Next

En vain !!!! Une idée ?

[rv26t]

selection de controles sur tabcontrol
je souhaite sélectionner tous les controls de ma forme seulement voila mes controls sont dans des tabpage.

En fait j'ai réussi pour les textbox dans les panels avec ce code

Code :

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

For Each ctrl In Me.TableLayoutPanel1.Controls

c'est quoi ? un TabControl ou un TableLayoutPanel ? Les deux imbriqués ?
____________________________________

Je n'arrive pas a convertir mes textbox en valeur booléenne

Quelles sont les valeurs contenues dans les propriétés "Text" des "TextBox" ?
____________________________________

Sinon,
soit tu fais des imbrications

Code vb.net :

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

1
2
3
4
5
6
7
8
9
        For Each tp As TabPage In TabControl1.TabPages
            For Each pan In tp.Controls.OfType(Of Panel)()
                For Each txt As TextBox In pan.Controls.OfType(Of TextBox)()
                    ' ici traitement de tous les textbox ...
 
                Next
            Next
        Next
    End Sub

Soit tu pars sur cet exempe : Boucler sur toutes les TextBox que tu adaptes.

Tu peux écrire la méthode ainsi :

Code vb.net :

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

1
2
3
4
    Function GetAllControls(Of TControl As Control)(source As Control) As IEnumerable(Of TControl)
        Dim children = source.Controls.Cast(Of Control)()
        Return children.SelectMany(Function(child) GetAllControls(Of TControl)(child)).OfType(Of TControl).Concat(children.OfType(Of TControl))
    End Function

Et l'utiliser de cette façon :

Code :

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

1
2
3
        Dim s As String = ""
        Array.ForEach(GetAllControls(Of TextBox)(Me).ToArray, Sub(tb) s &= tb.Text & vbCrLf)
        MessageBox.Show(s)

[killowatt]

En fait c'est des checkbox que je n'arrive pas a convertir en booléen ... dsl...
Et oui c'est une forme à l'interieur il y un tabcontrol et dedans il ya des textbox, des panel et des checkbox....

[rv26t]

Bien, avec ces nouvelles spécifications :
Soit :

Code vb.net :

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

1
2
3
4
5
6
7
        For Each tp As TabPage In TabControl1.TabPages
            For Each pan In tp.Controls.OfType(Of Panel)()
                For Each ckb As CheckBox In pan.Controls.OfType(Of CheckBox)()  ' ici traitement de tous les checkbox
                    wsExcel.Range(ckb.Tag).Value = ckb.Checked
                Next
            Next
        Next

Soit

Code vb.net :

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

        Array.ForEach(GetAllControls(Of CheckBox)(Me).ToArray, Sub(ckb) wsExcel.Range(ckb.Tag).Value = ckb.Checked)

en utilisant la méthode

Code vb.net :

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

1
2
3
4
    Function GetAllControls(Of TControl As Control)(source As Control) As IEnumerable(Of TControl)
        Dim children = source.Controls.Cast(Of Control)()
        Return children.SelectMany(Function(child) GetAllControls(Of TControl)(child)).OfType(Of TControl).Concat(children.OfType(Of TControl))
    End Function

Résultat (tabpage2 = colonne B) :

[killowatt]

Pour mes check box en l'occurrence je dois avoir des "X" dans les valeurs Tags, Donc je dois passe par la methode checkstate que je n'arrrive pas a glisser ......

[Kropernic]

Pour mes check box en l'occurrence je dois avoir des "X" dans les valeurs Tags, Donc je dois passe par la methode checkstate que je n'arrrive pas a glisser ......

Mais pourquoi diable vouloir convertir un boolean en string ?

[rv26t]

Pour mes check box en l'occurrence je dois avoir des "X" dans les valeurs Tags, Donc je dois passe par la methode checkstate que je n'arrrive pas a glisser ......

Rien compris.

Dans les propriétés tag des "CheckBox"s j'ai mis la cellule excel (en design), a1, a2 ,a3 ,a4 répartie dans chaque "CheckBox" du panel1 du "TapPage1" et b1, b2, b3, b4 répartie dans chaque "CheckBox" du panel2 du "TapPage2".

[killowatt]

Dans Dans vb :

Code :

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

1
2
3
 
If checkbox1.checked = true then 
wsExcel.Range(ctrl.Tag).Value = "x"

Pour que dans mon formulaire j'ai une case cochée

[rv26t]

Dans Dans vb :

Code :

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

1
2
If checkbox1.checked = true then 
wsExcel.Range(ctrl.Tag).Value = "x"

Pour que dans mon formulaire j'ai une case cochée

Là, si la case à cocher "checkbox1" est cochée, tu vas écrire un X dans excel dans la cellule spécifiée par ctrl.Tag.
Que contient ctrl.Tag ?
_______________________________
Dans mon exemple :
J'ai défini la propriété Tag de chaque "checkbox" avec une valeur de cellule excel (voir image)
et la ligne wsExcel.Range(ckb.Tag).Value = ckb.Checked envoi l'état de la propriété booléenne ".Checked" du checkbox (vrai/faux) à excel

Plutôt que de définir le tag dans le désigner, J'aurai pu écrire

Code :

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

1
2
        CheckBox1.Tag = "b1"
        CheckBox2.Tag = "b2"

donc dans la boucle, je parcours les tous les "CheckBox"s, et la valeur "Checked" (true si CheckBox est cochée ; sinon, false.) est envoyée à excel