Insertion automatique de checkbox
bonjour,
Un petit soucis:
Après avoir cliqué sur un bouton dans un classeur1, des infos de ce classeur sont copiées automatiquement sur un classeur2. Je souhaite ajouter automatiquement un checkbox en début de chaque nouvelle ligne ajoutée, mais pour l'instant, pas de cleckbox, mais la cellule est remplie avec "VRAI".
N'étant pas un pro en vba, j'aurais besoin de votre aide:
Mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Workbooks(Fichier).SaveAs Filename:=Chem & "\" & "FA" & Format(Date, "ddmm") & valeur & "-" & Fichier2
test = ActiveSheet.CheckBoxes.Add(20, 25, 24, 17.25).Select
With ThisWorkbook.Worksheets("Clients")
Com = "Clients"
Copie(0) = test
Copie(1) = Format(Date, "dd/mm/yyyy")
Copie(2) = "FA" & Format(Date, "ddmm") & valeur
Copie(3) = "9" & Left(.Range("B4"), 1) & "000"
Copie(4) = .Range("B4")
Copie(5) = .Range("B5")
Copie(6) = .Cells(MaLigne, 3)
End With
With Workbooks.Open(CheminFact & FichFact).Worksheets(Com)
Set dateact = .Range("A4:G500")
End With
With dateact
For j = 1 To 500
For i = 1 To 6
If .Cells(j, i) <> "" Then Exit For
Next i
If i > 5 Then i = j: Exit For
Next j
If j > 500 Then
MsgBox "La plage est pleine !", vbCritical, "Erreur"
Exit Sub
End If
.Rows(i) = Copie
ActiveWorkbook.Save
ActiveWorkbook.Close
End With |
