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

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

VB:

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

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

Re

J'avais prévenu, non

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

Matt87 · 22 Octobre 2016

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

Staple1600 · 22 Octobre 2016

Re

On avance, mais pas sur que ce soit vraiment mieux

VB:

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

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

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

VB:

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

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

Staple1600 · 22 Octobre 2016

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

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

Re

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

VB:

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

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

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

Bonjour Matt87

Salut staple

A tester:

Code:

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

XL 2010 VBA pour ajouter une ligne

Matt87

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Matt87

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Matt87

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Matt87

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Matt87

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Matt87

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Matt87

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Discussions similaires