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

  • Initiateur de la discussion Initiateur de la discussion FaruSZ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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: 15
  • Classeur1.xlsm
    Classeur1.xlsm
    26.3 KB · Affichages: 1
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour