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 à tous

Une macro pour insérer la ligne et un problème en plus

Sub a()
Dim DerLig As Long
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
Rows(DerLig - 1).Copy
Rows(DerLig - 1).Insert Shift:=xlDown
End Sub

 

[Matt87]

Bonjour Staple1600,

Merci pour la réponse rapide. En testant ta macro, je m'aperçois qu'elle ajoute belle et bien la ligne ainsi que les contrôles de formulaire désirés. Un seul petit problème se présente. Lorsque je désire cliquer sur le contrôle de formulaire ajouté, je me retrouve avec deux contrôles de formulaire cliqués soit le dernier et l'avant dernier et ainsi de suite si j'ajoute une autre ligne, je me retrouve avec 3 cases de cochés. Probablement dû au fait que les cellules liée sont également copier et non appliqué à la nouvelle cellule ajouté! Est-ce qu'il y a une solution? Encore une fois merci à l'avance.

 

[Staple1600]

Re

J'avais prévenu, non

Bonjour à tous
Une macro pour insérer la ligne et un problème en plus

 

[Matt87]

C'est donc impossible? Il n'existe aucune solution?

 

[Staple1600]

Re

On avance, mais pas sur que ce soit vraiment mieux

Sub b()
Dim sh As Shape
Application.ScreenUpdating = False
Dim DerLig As Long, DerLigne As Long
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
Rows(DerLig - 1).Copy
Rows(DerLig - 1).Insert Shift:=xlDown
DerLigne = Cells(Rows.Count, 1).End(xlUp).Row - 1
For Each sh In ActiveSheet.Shapes
If sh.TopLeftCell.Row = DerLigne Then
sh.Select
Selection.LinkedCell = sh.TopLeftCell.Address
End If
Next
End Sub

 

[Matt87]

J'ai toujours le même problème! Est-ce qu'il existe une alternative pour contourner le problème ou si je dois me résilier à fonctionner autrement qu'avec les contrôles de formulaire?

 

[Staple1600]

Re

J'ai toujours le même problème!

Le ! est de trop, non ?
J'essaie de t'aider, alors un peu de patience, camarade

Une autre version qui évite la Selection, mais qui préserve le problème

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

NB:Si à la place, la case à cocher, on mettait un X, cela annihilerait le problème case à cocher

 

[Matt87]

Désolé pour le ! Le but n'était pas de mettre de la pression sur qui que ce soit. Je serai plus vigilant

 

[Staple1600]

Re

Alors, t'es pour le X ? ou tu préfères cocher des cases ?

Parce un classeur avec N lignes avec 4 coches pas ligne, ça finira par donner un certain poids à ton classeur

 

[Matt87]

Hehe je préfère de loin les cases à cocher mais je vais me ranger derrière le «X» si on ne trouve pas de solution au problème

 

[Staple1600]

Re

Alors une solution qui n'est pas des plus fine mais qui semble fonctionner

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

 

[Matt87]

Wow. Génial, tout fonctionne, tu es un génie. Un gros merci pour le temps que m'as accordé. Cette VBA va me permettre de sauver du temps.

 

[Staple1600]

Re

Pour info
J'ai édité mon précédent message, et j'ai fait un peu de nettoyage dans le code VBA.

NB:M'est avis qu'un jour, quand ton classeur sera en obésité morbide, tu regretteras ton choix des cases à cocher...

 

[pierrejean]

Bonjour Matt87

Salut staple

A tester:

Sub a()
Application.ScreenUpdating = False
Dim DerLig As Long
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
Rows(DerLig - 1).Copy
Rows(DerLig - 1).Insert Shift:=xlDown
For n = 1 To ActiveSheet.Shapes.Count
   If InStr(ActiveSheet.Shapes(n).Name, "Check Box") <> 0 Then
   ActiveSheet.Shapes(n).Select
    Selection.LinkedCell = ActiveSheet.Shapes(n).TopLeftCell.Address
   End If
Next
Range("A1").Select
Application.ScreenUpdating = True
End Sub