Adrien/ACOUSTIQUE-PNR_BARONNIES-2020
Adrien/ACOUSTIQUE-PNR_BARONNIES-2020
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update VBA_DUPLICATION.txt

Browse Source
This commit is contained in:
A-d-r-i 2020-08-06 16:50:50 +02:00
parent 1f48cdb33c
commit c71a176cdc
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
VBA_DUPLICATION.txt
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