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

Add VBA scripts used

Browse Source
This commit is contained in:
A-d-r-i 2020-07-28 18:58:16 +02:00
parent 1e4b2d9d75
commit 1f48cdb33c
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
VBA_CROIX.txt Normal file
View File

@ -0,0 +1,4 @@
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If UCase(Target) = "x" Then Target = "" Else Target = "x"
Cancel = True
End Sub

16
VBA_DUPLICATION.txt Normal file
View File

@ -0,0 +1,16 @@
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