'Bouton pour selectionner & copier la plage de E2 a la derniere cellule non vide de la colonne J
Private Sub CommandButton2_Click()
TextBox4.Value = Workbooks("test.xls").Sheets("Instructions").Range("A9").Value
TextBox4.BackColor = &HFFFF&
Derligne = Range("J65536").End(xlUp).Row
Range("E2:J" & Derligne).Copy
TextBox4.BackColor = &HFFFFFF
End Sub
'Bouton pour coller la selection precedemment copiée
Private Sub CommandButton3_Click()
ActiveSheet.Select 'sélectionne la feuille où il faut coller
Range("E2").Select 'sélectionne la cellule/bloc ou il faut coller
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders
Nlignes = Selection.Rows.Count
Dim Msg, Style, Title
Msg = "Attention, Le nombre est de " & Nlignes & "!!" 'Definit le message
Style = vbExclamation 'vbOKOnly ' Définit les boutons.
Title = "Comptabilisation des lignes " ' Définit le titre.
MsgBox Msg, Style, Title
End Sub