ComboBox qui seclectionne et fait un copier coller

[bloomby]

Bonjour à tous,

je voudrais avoir un ComboBox dans un userform

Dans un premier temps, les données possible dans le ComboBox devrais être
de E6 à I6

et lorsque par exemple le combobox sélectionne List2;
la macro devrais selectionner toute les données sous se nom et faire un copier coller dans la colonne A

Merci

 

[alex67800]

Re : ComboBox qui seclectionne et fait un copier coller

Bonjour Bloomby,

Un essai fait à l'arrache:

Private Sub ComboBox1_Change()
With Sheets("Sheet1")
.Range("A8:A" & .Range("A65536").End(xlUp).Row).ClearContents
If ComboBox1.Value = "List1" Then
.Range("E7:E" & .Range("E65536").End(xlUp).Row).Select
Selection.Copy
.Range("A8").Select
ActiveSheet.Paste
End If
If ComboBox1.Value = "List2" Then
.Range("F7:F" & .Range("F65536").End(xlUp).Row).Select
Selection.Copy
.Range("A8").Select
ActiveSheet.Paste
' poursuivre pour list3, 4 et 5
End With
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "List1"
Me.ComboBox1.AddItem "List2"
Me.ComboBox1.AddItem "List3"
Me.ComboBox1.AddItem "List4"
Me.ComboBox1.AddItem "List5"

End Sub

Je t'ai afit un bout de code avec List1 et 2.

Regarde si cela te convient.

Bonne journée

 

[bloomby]

Re : ComboBox qui seclectionne et fait un copier coller

merci alex