Jai 15 combobox alimenté avec les mêmes données. Je sélectionne un produt et je veux que la valeur se trouvant dans la colonne "B" soit multiplié par la valeur se trouvant dans le textbox qui se trouve à gauche de combobox.
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Label5_Click()
End Sub
Private Sub UserForm_Initialize()
Dim PC() As Variant
With Sheets("Chèvre")
PC = .Range("A2:a60").Value
For i = 1 To 15
Controls("Combobox" & i).List = PC
Next i
'trouver le produit dans la colonne "A" et multiplier la valeur de la colonne B par le textbox
'val(textbox46) = val(textbox31) * la valeur qui se trouve dans la colonne "B"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir,
"...dans le textbox qui se trouve à gauche de combobox"
A moins d'être visionnaire, je ne vois pas comment on pourrait connaitre l'emplacement. Il faudra voir le classeur (libre de toutes données confidentielles) http://cjoint.com
-- Salutations JJ
"Linebaker" a écrit dans le message de news:
Bonjour,
Jai 15 combobox alimenté avec les mêmes données. Je sélectionne un produt et je veux que la valeur se trouvant dans la colonne "B" soit multiplié par la valeur se trouvant dans le textbox qui se trouve à gauche de combobox.
Private Sub CommandButton2_Click() Unload Me End Sub
Private Sub Label5_Click()
End Sub
Private Sub UserForm_Initialize() Dim PC() As Variant
With Sheets("Chèvre") PC = .Range("A2:a60").Value For i = 1 To 15 Controls("Combobox" & i).List = PC Next i
'trouver le produit dans la colonne "A" et multiplier la valeur de la colonne B par le textbox 'val(textbox46) = val(textbox31) * la valeur qui se trouve dans la colonne "B"
Range("f65").End(xlUp).Offset(1, 0).Select Do Until ActiveCell.Offset(0, -1) = "" ActiveCell.Offset(-1, 0).Copy ActiveCell.PasteSpecial ActiveCell.Offset(1, 0).Select Loop
Unload Me End With
End Sub
Merci
Bonsoir,
"...dans le textbox qui se trouve à gauche de combobox"
A moins d'être visionnaire, je ne vois pas comment on pourrait connaitre l'emplacement.
Il faudra voir le classeur (libre de toutes données confidentielles)
http://cjoint.com
--
Salutations
JJ
"Linebaker" <nospam_vulkins45@yahoo.fr.invalid> a écrit dans le message de news:
IIedndx6N9TpYRfJnZ2dnUVZ57ydnZ2d@giganews.com...
Bonjour,
Jai 15 combobox alimenté avec les mêmes données. Je sélectionne un produt et je
veux que la valeur se trouvant dans la colonne "B" soit multiplié par la valeur
se trouvant dans le textbox qui se trouve à gauche de combobox.
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Label5_Click()
End Sub
Private Sub UserForm_Initialize()
Dim PC() As Variant
With Sheets("Chèvre")
PC = .Range("A2:a60").Value
For i = 1 To 15
Controls("Combobox" & i).List = PC
Next i
'trouver le produit dans la colonne "A" et multiplier la valeur de la
colonne B par le textbox
'val(textbox46) = val(textbox31) * la valeur qui se trouve dans la colonne
"B"
"...dans le textbox qui se trouve à gauche de combobox"
A moins d'être visionnaire, je ne vois pas comment on pourrait connaitre l'emplacement. Il faudra voir le classeur (libre de toutes données confidentielles) http://cjoint.com
-- Salutations JJ
"Linebaker" a écrit dans le message de news:
Bonjour,
Jai 15 combobox alimenté avec les mêmes données. Je sélectionne un produt et je veux que la valeur se trouvant dans la colonne "B" soit multiplié par la valeur se trouvant dans le textbox qui se trouve à gauche de combobox.
Private Sub CommandButton2_Click() Unload Me End Sub
Private Sub Label5_Click()
End Sub
Private Sub UserForm_Initialize() Dim PC() As Variant
With Sheets("Chèvre") PC = .Range("A2:a60").Value For i = 1 To 15 Controls("Combobox" & i).List = PC Next i
'trouver le produit dans la colonne "A" et multiplier la valeur de la colonne B par le textbox 'val(textbox46) = val(textbox31) * la valeur qui se trouve dans la colonne "B"