Invite VBA pour Copier et coller de la liste déroulante dans une cellule active


2

Quelqu'un pourrait-il m'aider à copier et coller de la liste déroulante dans la cellule active et sous le code mentionné créé pour copier et coller du menu déroulant dans la cellule active mais j'ai besoin d'un code pour copier coller dans n'importe quelle cellule où se trouve le curseur

Sub Button1_Click()
Sheets("Sheet1").Select
ActiveSheet.Range("Value").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Range("C1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Essayez ceci Private Sub ComboBox1_Change() ActiveCell.Value = ComboBox1.Value End Sub

Réponses:


En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.