T
titin
Guest
bonsoir à tous
Quelqu'un peut il m'expliqué cette macro.
En particulier la ligne en gras
MERCI
Sub Macro2()
Me.CommandButton1.Caption = Me.ListBox1.Value + ' OK ?'
Sheets('pointages').Unprotect
Range('S2').Select
ActiveCell.FormulaR1C1 = 'POIRE'
Range('C17:AG40').Select
Selection.ClearContents
Range('C5').Select
ActiveCell.FormulaR1C1 = '=R[45]C'
Selection.AutoFill Destination:=Range('C5:AG5') , Type:=xlFillDefault
Range('A2').Select
Sheets('pointages').Protect
End Sub
Quelqu'un peut il m'expliqué cette macro.
En particulier la ligne en gras
MERCI
Sub Macro2()
Me.CommandButton1.Caption = Me.ListBox1.Value + ' OK ?'
Sheets('pointages').Unprotect
Range('S2').Select
ActiveCell.FormulaR1C1 = 'POIRE'
Range('C17:AG40').Select
Selection.ClearContents
Range('C5').Select
ActiveCell.FormulaR1C1 = '=R[45]C'
Selection.AutoFill Destination:=Range('C5:AG5') , Type:=xlFillDefault
Range('A2').Select
Sheets('pointages').Protect
End Sub