XL 2010 VBA pour ajouter une ligne

[Matt87]

Bonjour à tous,

J'ai un petit souci avec un fichier excel. J'ai un tableau dans lequel j'aimerais pouvoir ajouter une ligne à la toute fin de celui-ci avec un simple clic. La ligne doit contenir une case à cocher(contrôle de formulaire) et ce dernier doit être lié à une cellule question de pouvoir comptabiliser le tout en bas de colonne. Est-ce que quequ'un est en mesure de m'éclairer? Vous trouerez en pièce jointe une copie du tableau en question. Merci à l'avance !

 

[Staple1600]

Bonjour pierrejean

Je ne comprends pas pourquoi ta macro fonctionne
alors que ma macro c (quasi-identique sur le principe) fonctionne mal ??
(Les checkbox recopiées gardent en référence l'adresse des cellules de la ligne précédente)

EDITION: J'ai refermé le classeur puis réouvert et oh miracle
La macro c fonctionne correctement
(alors que lors de mes tests successifs, le problème décrit plus haut se manifestait)
????

Ci-dessous la macro c remaniée qui devient la macro f et qui fonctionne ???

Sub f()
Dim chk As CheckBox
Application.ScreenUpdating = False
    With Rows(Cells(Rows.Count, 1).End(xlUp).Row - 1)
    .Copy: .Insert Shift:=xlDown
    End With
    For Each chk In ActiveSheet.CheckBoxes
        With chk
        .LinkedCell = .TopLeftCell.Address
        End With
    Next
End Sub

 

[pierrejean]

Re

Effectivement ta c devrait fonctionner !!!!
taille des checkbox qui débordent sur la cellule au dessus ???