Discussion :

[dariaa]

Salut à tous
j' utilise vb.net avec Excel

j' ai une liste déroulante qui est rempli avec les noms des colonnes des tableaux d'un fichier excel

J' utilise ce code pour remplir la liste déroulante:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim LastCol As Integer = Form2.xlWorkSheet.Cells(1, Form2.xlWorkSheet.Columns.Count).End(XlDirection.xlToLeft).Column
 
        Form2.xlWorkSheet = CType(Form2.xlWorkBook.Sheets(Form2.ComboBox1.Text), Excel.Worksheet)
        Form2.xlWorkSheet.Activate()
        If cmb1.Items.Count = Nothing Then
 
            For x As Integer = 2 To LastCol
                cmb1.Items.Add(Form2.xlWorkSheet.Cells(1, x).value)
            Next
        End If

et voici un exemple de mes tableaux:
https://fbcdn-sphotos-h-a.akamaihd.n...28f890c906b949
https://social.msdn.microsoft.com/Forums/getfile/637545

ce que je veux, c'est quand je sélectionne un élément dans la liste déroulante, qui est un nom d'une colonne, je peux lire toute les valeurs de cette colonne après je multiplierai à chaque fois tous ces valeurs (toutes les valeurs de la colonne sélectionner ) avec une valeur d'une zone de texte que je vais entrer en elle

merci de m'aider

[gnain]

Bonjour,

ce que je veux, c'est quand je sélectionne un élément dans la liste déroulante, qui est un nom d'une colonne, je peux lire toute les valeurs de cette colonne après je multiplierai à chaque fois tous ces valeurs (toutes les valeurs de la colonne sélectionner ) avec une valeur d'une zone de texte que je vais entrer en elle

je ne suis pas certain de comprendre si tu veux multiplier toute la colonne
ou multiplier chaque élément de la colonne avec le contenu d'un textbox

si c'est pour avoir un produit de toute la colonne sauf les 0 voilà le code
je suis certain que tu pourras t'en inspiré pour obtenir ce que tu veux

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
    Dim i As Integer
    Dim j As Integer
    Dim valeur_Multiplier As Long
    valeur_Multiplier = 1
 
    For i = 2 To LastCol
        If cmb1.Text = Form2.xlWorksheet.Cells(1, i).Value Then
            Exit For
        End If
    Next
 
    For j = 2 To Form2.xlWorksheet.Range(i & Rows.Count).End(xlUp).Row
        If Form2.xlWorksheet.Cells(1, j).Value <> 0 Then
            valeur_Multiplier = valeur_Multiplier * Form2.xlWorksheet.Cells(1, j).Value
        End If   
    Next

[dariaa]

salut ,
merci pour votre aide

je ne suis pas certain de comprendre si tu veux multiplier toute la colonne
ou multiplier chaque élément de la colonne avec le contenu d'un textbox

si c'est pour avoir un produit de toute la colonne sauf les 0 voilà le code
je suis certain que tu pourras t'en inspiré pour obtenir ce que tu veux

je veux multiplier chaque élément de la colonne avec le contenue d'un textbox

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
  With Form2.xlWorkSheet
            Dim LastCol As Integer = Form2.xlWorkSheet.Cells(1, Form2.xlWorkSheet.Columns.Count).End(XlDirection.xlToLeft).Column
            Dim i As Integer
            Dim j As Integer
            Dim valeur_Multiplier As Long
            valeur_Multiplier = 1
 
            For i = 2 To LastCol
                If cmb1.Text = Form2.xlWorkSheet.Cells(1, i).Value Then
                    Exit For
                End If
            Next
 
            For j = 2 To Form2.xlWorkSheet.Range(i & Form2.xlWorkSheet.Rows.Count).End(XlDirection.xlUp).Row
                If Form2.xlWorkSheet.Cells(1, j).Value <> 0 Then
                    valeur_Multiplier = valeur_Multiplier * Form2.xlWorkSheet.Cells(1, j).Value
                End If
            Next
 
 
        End With

j'utilise ton code mais j'ai un erreur dans cette ligne"Exception de HRESULT : 0x800A03EC"

Code :

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

    For j = 2 To Form2.xlWorkSheet.Range(i & Form2.xlWorkSheet.Rows.Count).End(XlDirection.xlUp).Row

[gnain]

oups,
mon erreur
essaie comme cela

Code :

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

1
2
 
For j = 2 To Form2.xlWorkSheet.Cells(Form2.xlWorkSheet.Rows.Count , i).End(XlDirection.xlUp).Row

[dariaa]

merci gnain ,
mais j'ai un autre erreur dans cette ligne:"La conversion de la chaîne "kpi1" en type 'Double' n'est pas valide."

Code :

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

 If Form2.xlWorkSheet.Cells(1, j).Value <> 0 Then

aidez moi !!!

[gnain]

Bonjour,
J'ai écrit ce sub directement dans ce forum sans tester et ça parait
présentement, ou je suis, je n'ai pas accès à vb net
bon, donc voila la correction

Code :

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

1
2
3
4
5
  For j = 2 To Form2.xlWorkSheet.Cells(Form2.xlWorkSheet.Rows.Count , i).End(XlDirection.xlUp).Row
        If Form2.xlWorksheet.Cells(j, i).Value <> 0 Then
            valeur_Multiplier = valeur_Multiplier * Form2.xlWorksheet.Cells(j, i).Value
        End If   
    Next

[_Ez3kiel]

j'utilise ton code mais j'ai un erreur dans cette ligne"Exception de HRESULT : 0x800A03EC"

Code :

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

    For j = 2 To Form2.xlWorkSheet.Range(i & Form2.xlWorkSheet.Rows.Count).End(XlDirection.xlUp).Row

This problem occurs if you are using a backwards compatible sheet (a .xls) instead of a .xlsx

To allow sheets to be opened in pre office 2007 version it can't contain more than 65k rows. You can check the number of rows in your sheet by using ctrl+arrowdown till you hit the bottom. If you try to get a range larger than that number of rows it will create an error