Déchargement userform

flo189 · 27 Janvier 2017

Bonjour,

Je souhaite décharger des informations d'un userform par rapport au donnée faisant référence à ma combo1.

C'est à dire que si je saisie des infos sur la commande 2. Je veux que lorsque je valide le prix et la remise s'alimente sur la ligne de la commande n°2.

Merci de votre aide.

laetitia90 · 27 Janvier 2017

bonjour flo
brut comme cela .....code userform

VB:

Private Sub userform_initialize()
ComboBox1.List = Feuil1.Range("a2:d" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value
ComboBox2.List = Feuil2.Range("b1:b" & Feuil2.Cells(Rows.Count, 2).End(3).Row).Value
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then
Feuil1.Cells(ComboBox1.ListIndex + 2, 2) = ComboBox2.Value
Feuil1.Cells(ComboBox1.ListIndex + 2, 3) = TextBox1.Value
Feuil1.Cells(ComboBox1.ListIndex + 2, 4) = TextBox2.Value
Else
MsgBox "combos .... non renseignées"
End If
End Sub

flo189 · 6 Février 2017

Super Laetita, merci beaucoup pour ton aide.

J'ai modifié le nom de la feuil1 par Stock. Comment Puis-je adapter le code pour que cela fonctionne par exemple :

sheet"stock".Cells(ComboBox1.ListIndex + 2, 2) = ComboBox2.Value

Roland_M · 6 Février 2017

Bonsoir tout le monde,

tu remplaces :
Feuil1.Cells(. . .
par
Sheets("stock").Cells(. . .

flo189 · 1 Mars 2017

Merci Roland Parfait !!!!

Déchargement userform

flo189

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

flo189

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

flo189

XLDnaute Occasionnel

Discussions similaires