Insertion automatique de checkbox

[yuplop]

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:

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

Il faut qu'à chaque fois qu'une nouvelle est insérée, celle-ci commence (donc dans la colonne A) par un checkbox

 

[Lone-wolf]

Bonjour yuplop et bienvenue sur XLD 🙂

D'après ce que j'ai compris, tu veux copier ligne par ligne dans un nouveau classeur?

Il y à déjà 3 erreurs dans la macro Workbooks(Fichier).SaveAs - ActiveSheet.CheckBoxes et .Rows(i) = Copie

SaveAs ce met à la fin de la macro et c'est CheckBox; .Rows(i) = Copie(i). Mais le plus important, met ton fichier en pièce jointe.

 

[yuplop]

En fait, j'utilise un modèle, donc avant de le remplir, je le renomme automatiquement pour l'enregistrer en fin de macro (effectivement, c'est une opération en double).
Concernant le "ActiveSheet.CheckBoxes.add", c'est ce que j'ai pu trouver sur les différents forum d'aide ...

 

[Lone-wolf]

Re

Un exemple à adapter à ton fichier. Pour ce, écrit quelque chose en colonne B puis ENTER.