Microsoft 365 bouton supprimer

[kingbeck]

Bonjour la team, je viens encore solliciter votre aide a propos de mon userform1 créer pour mon application.
en effet j'ai fait un bouton supprimer pour supprimer la ligne de données dans la base de données.
Mais au clic, le bouton ne supprime que la ligne de données dans la feuille Excel sans supprimer l'image :"Image1" dans le dossier images liée a cette ligne.

 

[job75]

Bonjour kingbeck,

Voyez par exemple cette macro :

Sub SupprimerLigneActive()
Dim o As Object
With ActiveCell.EntireRow
    For Each o In .Parent.DrawingObjects
        If Not Intersect(o.TopLeftCell, .Cells) Is Nothing Then o.Delete
    Next o
    .Delete
End With
End Sub

A+

 

[kingbeck]

Bonjour kingbeck,

Voyez par exemple cette macro :

Sub SupprimerLigneActive()
Dim o As Object
With ActiveCell.EntireRow
    For Each o In .Parent.DrawingObjects
        If Not Intersect(o.TopLeftCell, .Cells) Is Nothing Then o.Delete
    Next o
    .Delete
End With
End Sub

A+

j'ai essaye mais ca ne fonctionne pas

 

[job75]

Vous avez mal essayé, il faut bien sûr un objet (image) dans la ligne de la cellule active.

 

[kingbeck]

j'ai essaye mais ca ne fonctionne pas

ok je revoie encore...