Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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


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:



en validant on aura:


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
    55.5 KB · Affichages: 12
  • Classeur1.xlsm
    26.3 KB · Affichages: 1
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…