Déchargement userform

[flo189]

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]

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

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]

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]

Bonsoir tout le monde,

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

 

[flo189]

Merci Roland Parfait !!!!