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