Bonjour à tous, Je voudrais savoir comment faire pour copier coller un bouton avec ces code dans ma commande existente.
voici le code de mon boutton et je voudrais qu'il copie aussie mon autre bouton
Private Sub CommandButton6_Click()
ActiveSheet.Rows("5:8").Copy
ActiveSheet.Rows("5:5").Insert Shift:=xlDown
Range("A5").ClearContents
Range("B6").Select
End Sub
il copie mes lingnes mes pas mon boutton 😕
Voici le code du boutton que je voudrais copier dans mon autre bouton
Private Sub Ajoute_Click()
ActiveSheet.Rows("6:6").Copy
ActiveSheet.Rows("6:6").Insert Shift:=xlDown
ActiveSheet.Rows("6:6").ClearContents
Range("F7").Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Range("G7").Select
Selection.Copy
Range("G6").Select
ActiveSheet.Paste
Range("H7").Select
Selection.Copy
Range("H6").Select
ActiveSheet.Paste
Range("I7").Select
Selection.Copy
Range("I6").Select
ActiveSheet.Paste
Range("J7").Select
Selection.Copy
Range("J6").Select
ActiveSheet.Paste
Range("K7").Select
Selection.Copy
Range("K6").Select
ActiveSheet.Paste
Range("L7").Select
Selection.Copy
Range("L6").Select
ActiveSheet.Paste
Range("B6").Select
End Sub
Merci à tous
voici le code de mon boutton et je voudrais qu'il copie aussie mon autre bouton
Private Sub CommandButton6_Click()
ActiveSheet.Rows("5:8").Copy
ActiveSheet.Rows("5:5").Insert Shift:=xlDown
Range("A5").ClearContents
Range("B6").Select
End Sub
il copie mes lingnes mes pas mon boutton 😕
Voici le code du boutton que je voudrais copier dans mon autre bouton
Private Sub Ajoute_Click()
ActiveSheet.Rows("6:6").Copy
ActiveSheet.Rows("6:6").Insert Shift:=xlDown
ActiveSheet.Rows("6:6").ClearContents
Range("F7").Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Range("G7").Select
Selection.Copy
Range("G6").Select
ActiveSheet.Paste
Range("H7").Select
Selection.Copy
Range("H6").Select
ActiveSheet.Paste
Range("I7").Select
Selection.Copy
Range("I6").Select
ActiveSheet.Paste
Range("J7").Select
Selection.Copy
Range("J6").Select
ActiveSheet.Paste
Range("K7").Select
Selection.Copy
Range("K6").Select
ActiveSheet.Paste
Range("L7").Select
Selection.Copy
Range("L6").Select
ActiveSheet.Paste
Range("B6").Select
End Sub
Merci à tous