Suppression des checkbox "true" d'une feuille

Bonjour,

J'ai créée une base de données fournisseurs, avec des macros associées à des boutons, me permettant d'ajouter et de supprimer des lignes.

A chaque création de ligne, je créée également une case à cocher liée à une case (permettant à l'utilisateur de sélectionner des fournisseurs et de lancer divers actions). Pas de problème jusqu'ici.

Concernant la macro permettant de supprimer les lignes cochées ("macro DeleteLine" dans le fichier joint), lorsque je supprime une ou des lignes, je souhaiterai également que la ou les case à cocher soient supprimée (jusqu'ici, quand je supprime une ligne, la case à cocher reste, et du coup je me retrouve avec des case à cocher qui se superposent les unes aux autres.

Jusqu'ici j'ai tenter la manipulation suivante :
1) supprimer les lignes relatives aux cases cochées (jusqu'ici ca marche)
2) supprimer toutes les cases cochées

Je n'arrive pas à trouver la fonction qui me permet de les selectionner puis de la supprimer. Voici la macro actuelle :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub DeleteLine()   Dim line As Integer Dim CB As CheckBox   For line = 10 To Range("A2").Value - 1 If Range("B" & line).Value = True Then Range("B" & line).EntireRow.Delete Range("A2").Value = Range("A2").Value - 1 line = line - 1 End If Next For Each CB In ActiveSheet.CheckBoxes If CB = True Then CB.Select Selection.Delete End If Next   End Sub

---

NB: Les cases à cocher sont des checkbox de type "formulaire" et non activex, je souhaiterai les conserver telles quelles. Je suis débutant en VBA, je travaille sous Excel 2016


Merci pour le temps que vous me consacrerez.

Citation:

---

Envoyé par m0nchoir

---

Bonjour,

Pour vos prochains messages, mettez votre code entre balises #
Attention à ne pas utiliser de mots réservés : line

A tester. Le code ci-dessous considère les contrôles dans la colonne B.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub DeleteLine()   Dim ShFournisseurs As Worksheet Dim LigneDeTitre As Long, LigneAEffacer As Long, DerniereLigne As Long Dim ShapeEncours As Shape   Set ShFournisseurs = Sheets("Fournisseurs") With ShFournisseurs LigneDeTitre = 9 DerniereLigne = .Cells(.Rows.Count, 2).End(xlUp).Row For LigneAEffacer = DerniereLigne To LigneDeTitre + 1 Step -1 If .Range("B" & LigneAEffacer) = True Then For Each ShapeEncours In .Shapes If Not Intersect(ShapeEncours.TopLeftCell, .Range("B" & LigneAEffacer)) Is Nothing Then ShapeEncours.Delete Exit For End If Next ShapeEncours .Range("B" & LigneAEffacer).EntireRow.Delete End If Next .Range("A2") = .Cells(.Rows.Count, 2).End(xlUp).Row End With Set ShFournisseurs = Nothing   End Sub

---