Update VBA_DUPLICATION.txt

This commit is contained in:
A-d-r-i 2020-08-06 16:50:50 +02:00
parent 1f48cdb33c
commit c71a176cdc

View File

@ -1,16 +1,13 @@
Sub DUPLICATION() Sub DUPLICATION()
With Sheets("NOM") With Sheets("SHEET1")
dl = .Cells(Rows.Count, 1).End(xlUp).Row dl = .Cells(Rows.Count, 1).End(xlUp).Row
Set ws = Sheets("DUPLI") Set ws = Sheets("SHEET2")
NB = 6
k = 1 k = 1
For i = 1 To dl For i = 1 To dl
.Cells(i, 1).Copy ws.Cells(k, 1).Resize(6) .Cells(i, 1).Copy ws.Cells(k, 1).Resize(NB)
k = k + k = k + NB
Next i Next i
End With End With
End Sub 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