17 lines
471 B
Plaintext
17 lines
471 B
Plaintext
Sub DUPLICATION()
|
|
With Sheets("NOM")
|
|
dl = .Cells(Rows.Count, 1).End(xlUp).Row
|
|
Set ws = Sheets("DUPLI")
|
|
k = 1
|
|
For i = 1 To dl
|
|
.Cells(i, 1).Copy ws.Cells(k, 1).Resize(6)
|
|
k = k +
|
|
Next i
|
|
End With
|
|
End Sub
|
|
#créer une croix au double clic
|
|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
|
|
If UCase(Target) = "x" Then Target = "" Else Target = "x"
|
|
Cancel = True
|
|
End Sub
|