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 : Sélectionner tout - Visualiser dans une fenêtre à part
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