From 1f48cdb33c0cd4553a5ac731bdc8b5085d7c3926 Mon Sep 17 00:00:00 2001
From: A-d-r-i <charbadrien@hotmail.fr>
Date: Tue, 28 Jul 2020 18:58:16 +0200
Subject: [PATCH] Add VBA scripts used

---
 VBA_CROIX.txt       |  4 ++++
 VBA_DUPLICATION.txt | 16 ++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 VBA_CROIX.txt
 create mode 100644 VBA_DUPLICATION.txt

diff --git a/VBA_CROIX.txt b/VBA_CROIX.txt
new file mode 100644
index 0000000..cfbd401
--- /dev/null
+++ b/VBA_CROIX.txt
@@ -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
diff --git a/VBA_DUPLICATION.txt b/VBA_DUPLICATION.txt
new file mode 100644
index 0000000..7471510
--- /dev/null
+++ b/VBA_DUPLICATION.txt
@@ -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