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
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
Dernière édition: