calcule ds listbox

[Tony]

Bonsoir
Dans une listbox(Uf),j'ai 3 colonnes et x lignes.
J'aimerais multiplier la valeur de la colonne 2 par la valeur d'un textbox et avoir le résultat dans une 4eme colonne .
possible!!

Dim i As Integer
With Workbooks('Claseur1.xls')
For i = 1 To .Sheets.Count
If .Worksheets(i).Name = ComboBox1.Value Then
ListBox1.List = Plg
End If
Next i
End With


Private Sub UserForm_Initialize()
Plg = Range('B2:E' & Range('B65536').End(xlUp).Row)
End Sub


merci de votre aide

tony

 

[ChTi160]

Salut Tony
ce qui serait sympa c'est de mettre un fichier avec ton Userform et quelque données et expliquer ce que tu veux car la il faut tout construire Lol
si cela doit être possible
à très bientôt

 

[Hervé]

Salut tony

peut etre comme ca :

Dim i As Integer

With ListBox1
For i = 0 To .ListCount - 1
.List(i, 3) = .List(i, 1) * TextBox1 * 1
Next i
End With

attention, les colonnes d'une listbox commencent à 0 pour la premiere, 1 pour la seconde.

il serait bien que tu déclares tes variables (a moins qu'elle soit public) dim plg as variant.

salut

edition : salut ami chti

Message édité par: Hervé, à: 28/12/2005 23:25

 

[Chti160]

Salut Hervé
j'étais en train lol de construire un fichier
je vais donc attendre Lol
bonne fin de Soirée

 

[ChTi160]

Re
la pièce jointe Lol
bonne nuit [file name=ListBox_20051228235559.zip size=17233]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListBox_20051228235559.zip[/file]

 

[Hervé]

re

une autre solution :

Dim tablo() As Double
Dim i As Integer
Dim nombre As Double

nombre = CDbl(TextBox1)

ReDim tablo(ListBox1.ListCount - 1, 1)

For i = 0 To ListBox1.ListCount - 1
    tablo(i, 0) = ListBox1.List(i, 1)
Next i


For i = 0 To UBound(tablo)
        tablo(i, 1) = tablo(i, 0) * nombre
Next i

For i = 0 To UBound(tablo)
        ListBox1.List(i, 3) = tablo(i, 1)
Next i

chti, ce code c'est juste pour faire marrer les copains sur le tchat.

salut

 

[Tony]

Bonjour à tous

J'ai adapté le code de Jean Marie, ça fonctionne bien . Mais j'ai encore un petit souci
le combobox n'est pas dans le même classeur(2)que les feuilles de données(classeur1) et pour que le code fonctionne il faut activer le classeur(qui actuellement est masqué).
Ou faut-il que je met quelque chose comme
Windows('classeur1.xls').Activate.

Merci d'avoir veillé si tard pour me donner toutes ces info

Bonne journée
Tony

 

[Chti160]

Salut Tony

je ne comprends pas bien est-ce le combobox ou les données qui doivent remplir le combo, qui se trouvent dans un autre Classeur
sinon si le classeur1 se trouve dans le Dossier que le classeur2 je pense qu'a l'ouverture du Classeur2 on peut déclencher l'ouverture du Classeur1
enfin on va essayer
bonne journée

 

[Tony]

Re
A l'ouverture
Le classeur2 ouvre et masque le classeur1.
le combobox se trouve dans le classeur2, et contient le nom des feuilles du classeur1
le combobox rempli la listbox(données qui viennent du classeur1)
Tous les contrôles sont dans Uf et un multipage (classeur2)

Amicalement
Tony