Dupliquer une case à cocher en ajoutant une ligne

Bonsoir (2ème topic ce soir^^),

J'ai besoin de votre aide car j'ai un tableau Devis pour lequel j'ai un bouton qui me permet d'ajouter des lignes au devis.

Chaque formule présente dans la dernière ligne se copie bien dans les lignes insérées par la macro.

Mais pas les cases à cocher qui elles ne se dupliquent pas!

Comment puis-je faire?

Voici mon code de la macro ajout de ligne :

Sub AjoutLigne()
'
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="victor"
Application.EnableEvents = False
'
Dim Ligne As Long
'
Ligne = [LigneTotalDevis].Row - 1
'
With Rows(Ligne)
   .Copy
'  .Selection.EntireRow.Insert
   .Insert Shift:=xlDown
   .Hidden = False
End With
'
Application.CutCopyMode = False
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="victor", AllowDeletingRows:=True
Application.EnableEvents = True
'
End Sub

Merci d'avance pour votre aide!

Vip4rk

Petit up pour ce topic

Bonjour,

A tester

Salut @M12 ,

Alors sur ton fichier ça marche nickel, bravo.

Par contre je ne comprends pas comment tu as fait!

En effet j'ai vu que tu avais modifié la macro ajout de ligne mais en écrivant la même chose sur mon fichier de base, je n'ai pas le même résultat!

Vip4rk

Re,

Vu que je ne vois pas le fichier sur lequel tu as retranscris la macro, et n'étant pas devin

je n'en dirai pas plus

@M12 ,

Oui d'accord, voici mon fichier modifié :

Vip4rk

Re,

Si tes propriétés des cases à cocher sont sur "Ne pas déplacer ou dimensionner avec les cellules", c'est normal

@M12 ,

Aaah punaise tu as raison.

Ok j'ai bien compris.

Par contre maintenant le problème est que la cellule liée ne change pas : si je décoche la dernière case à cocher ça change le résultat de la cellule liée de la checkbox du dessus.

Comment faire pour que la cellule liée soit automatiquement la case juste à droite?

J'ai pensé à enlever le $ devant le num de ligne mais rien y fait.

Merci d'avance..

Vip4rk