calcule ds listbox

Tony · 28 Décembre 2005

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 · 28 Décembre 2005

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é · 28 Décembre 2005

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 · 28 Décembre 2005

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

ChTi160 · 28 Décembre 2005

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é · 29 Décembre 2005

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 · 29 Décembre 2005

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 · 29 Décembre 2005

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 · 29 Décembre 2005

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

calcule ds listbox

Tony

Guest

ChTi160

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Chti160

Guest

ChTi160

XLDnaute Barbatruc

Pièces jointes

Hervé

XLDnaute Barbatruc

Tony

Guest

Chti160

Guest

Tony

Guest

Discussions similaires