Discussion :

[ogichi]

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

[patricktoulon]

Bonjour
a quoi pourrait il bien te servir de mettre un checkbox a chaque ligne ajoutée si ce n'est qu'alourdir ton fichier ???

[ogichi]

Je vais en avoir besoin car après, je vais mettre en place un bouton dans le classeur pour faire une modification auto sur les lignes cochées et pour envoyer des informations des lignes cochées vers un autre classeur.

[patricktoulon]

re
dans ce cas la met simplement une list a coché en ligne 1 se sera moins lourd

[ogichi]

Il me faut absolument une case à cocher en début de chaque nouvel ligne.
Je ne vois pas comment faire autrement.
Niveau utilisation, je pense que ça va être plus simple