XL 2016 copier coller une ligne d'une feuille a une 2eme feuille en utilsant un bouton de commande

FaruSZ

XLDnaute Occasionnel
Bonjour,
Je veux rédigé un code qui me permet de copier une ligne d'une feuille
Capture3.JPG


et la coller sur une 2eme feuille en appuyant sur un bouton on a un formulaire qui nous permet de choisir les éléments ou on veut coller notre ligne comme suit:

Capture5.JPG


en validant on aura:
Capture.JPG


Mon code est :

Private Sub CommandButton1_Click()
If Me.Cbx_Num_Test.Value = "" Or Me.ComboBox_Ann?e.Value = "" Or Me.ComboBox_Semaine.Value = "" Then
MsgBox ("Veuillez chosir tous les elements")
Else
Set ws_Liste_Test = ActiveWorkbook.Worksheets("Feuil1")
Set ws = ActiveWorkbook.Worksheets("Test")
Fin_liste_Test = ws_Liste_Test.Range("655536").End(xlUp).Row
Nom_Test = Me.ComboBox_Test.Value
Dim Plage As Range, Trouve As Range
Dim Plage2 As Range, Trouve2 As Range
Set Plage = ws_Liste_Test.Columns(1)
Set Plage2 = ws.Columns(1)

Val_Cherch = Nom_Test
Set Trouve = Plage.Cells.Find(what:=Val_Cherch)
If Trouve Is Nothing Then
MsgBox ("Test pas trouv?")
Else
End If
End If
End Sub

je sais pas comment le finir pour rajouter l'instruction qui me permet de copier/coller
Le lien pr le fichier
 

Pièces jointes

  • Capture4.JPG
    Capture4.JPG
    55.5 KB · Affichages: 12
  • Classeur1.xlsm
    26.3 KB · Affichages: 1
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 203
Messages
2 086 191
Membres
103 152
dernier inscrit
Karibu