XL 2010 VBA pour ajouter une ligne

Matt87 · 22 Octobre 2016

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 · 22 Octobre 2016

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 ???

VB:

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 · 22 Octobre 2016

Re

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

XL 2010 VBA pour ajouter une ligne

Matt87

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Discussions similaires