Comment supprimer un bouton sur une ligne en VBA

Bonjour,

Je suis en train de créer un tableau de bord avec excel.

Mon code me permet de créer des lignes ou de les supprimer en fonction des choix de l'utilisateur avec des conditions afin de ne pas supprimer n'importe quoi.

Lorsque je créais une ligne, je fais un copier coller qui me copie la ligne et les boutons de dessus (les boutons appellent un userform saisissant la date à l'emplacement du bouton)

Pour la suppression je fais un .entirerow.delete qui me supprime la ligne mais pas les boutons , comment faire pour supprimer les boutons qui sont sur la ligne (et qui ne sont pas à cheval sur une autre ligne)?

HELP

Merci

Bonjour et bienvenue,

Combien de boutons dans ta feuille pour lancer ton formulaire ?

Sont-ils nécessaires ?

Merci de joindre un petit fichier représentatif et anonymisé !...

Cdlt.

Bonjour et bienvenue,

Combien de boutons dans ta feuille pour lancer ton formulaire ?

Sont-ils nécessaires ?

Merci de joindre un petit fichier représentatif et anonymisé !...

Cdlt.

7tdb-anonyme.xlsm (35.13 Ko)

Bonjour et bienvenue,

Combien de boutons dans ta feuille pour lancer ton formulaire ?

Sont-ils nécessaires ?

Merci de joindre un petit fichier représentatif et anonymisé !...

Cdlt.

7tdb-anonyme.xlsm (40.12 Ko)

Re,

Ton fichier en retour.

Les boutons ont été supprimés et une procédure événementielle (double-clic cellules colonnes O:Q) créée.

Cdlt.

25tdb-anonyme.xlsm (30.86 Ko)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("O:Q")) Is Nothing Then
        Cancel = True
        UserForm1.Show
    End If
End Sub

Merci, c'est nickel !!!!!

Re,

Ton fichier en retour.

Les boutons ont été supprimés et une procédure événementielle (double-clic cellules colonnes O:Q) créée.

Cdlt.

TdB anonyme.xlsm

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("O:Q")) Is Nothing Then
        Cancel = True
        UserForm1.Show
    End If
End Sub
Rechercher des sujets similaires à "comment supprimer bouton ligne vba"