activecell

[buromania]

Bjr Forum

je me suis bidouillé un prog de commande et je cherche à imputer mon stock. Je bloque quand j'éssaie de dire que la valeur du combobox devient la cellule active de ma feuil produit
ptit bout de code joint

Range('e4').Value = UserForm5.TextBox12
If UserForm5.Label1 = UserForm5.TextBox1 Then
Range('d4').Value = UserForm5.TextBox2
End If

Range('a4:n4').Select
Selection.Copy
Range('A1').End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range('A4:j4').Select
Selection.ClearContents
Range('D4').Select
ActiveCell.FormulaR1C1 = '=RC[6]*R2C[-1]'
Range('F4').Select
ActiveCell.FormulaR1C1 = '=RC[-2]*RC[-1]'
Sheets('produits').Select
acticecell = combobox2.value
REPONSE: PROJET OU BIBLIOTHEQUE INTROUVABLE

Sur ce, je vous souhaite une excellente journée

 

[Bernard_XLD]

Bonjour

ou est ton combobox ?

ActiveCell.Value = Userform2.Combobox2.value

sera peut être plus efficace que

acticecell = combobox2.value

Cordialement, A+

 

[buromania]

merci yehou