Supression d'une image

[tinet]

Bonjour le forum.


Sur ma feuille, j'ai des lignes avec du texte et des images.
Si je veux supprimer une ligne, le texte bien sûr disparaît, mais l'image positionnée sur cette ligne reste.
Existe-t-il un moyen très simple pour supprimer l'image quand je supprime la ligne.

Merci pour vos idées.

 

[Compte Supprimé 979]

Re : Supression d'une image

Salut Tinet 😉

Existe-t-il un moyen très simple pour supprimer l'image quand je supprime la ligne.​

Il faut afficher la barre d'outils "Dessin" si tu ne l'as pas déjà

Tu cliques sur la flèche blanche et cela te permet ensuite de sélectionner tous les objets de ta feuille

A+​

 

[tototiti2008]

Re : Supression d'une image

Bonjour tinet,

Pas de solution toute faite à te proposer, si tu redimensionne et déplace tes images avec les cellules, les images deviendront très petites à la suppression de la ligne mais ne disparaîtront pas.
Je ne connais pas d'évènement à la suppression de la ligne, même si l'évènement calculate se déclenche, c'est un peu compliqué à gérer, je pense... enfin, tu peux peut-être essayer ça (avant il faudra que toutes tes images aient l'option "Déplacer et dimensionner avec les cellules" d'activée et au moins une formule dans la feuille pour déclencher Calculate)

Private Sub Worksheet_Calculate()
Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
        If Sh.Height = 0 Then Sh.Delete
    Next
End Sub

Edit : Bing, bonjour Bruno 🙂

 

[tinet]

Re : Supression d'une image

Bonjour tototiti2008,

je n'arrive pas bien à mettre en forme ton idée.
Je te mets un petit fichier en exemple.



a +

 

[MJ13]

Re : Supression d'une image

Bonjour Tinet, Bruno, Totottiti

Tu peux tester macro.

Sub Sup_Ligne_Active_Avec_Images()
    nr = ActiveCell.Row
    Application.CutCopyMode = False
    Rows(nr & ":" & nr).Select
    Selection.Cut
    Sheets.Add
    ActiveSheet.Paste
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Selection.Delete Shift:=xlUp
End Sub

 

[tototiti2008]

Re : Supression d'une image

Re,

Alors il faut que :
1) Tu sélectionnes toutes tes images (avec la flèche blanche proposée par Bruno par exemple ou par Atteindre)
Format de l'image
Onglet Propriétés
Déplacer et dimensionner avec les cellules
OK

2) il te faut une formule dans la feuille de calcul (si tu n'en veux pas, tu peux peut-être le faire sur l'évènement Change)

3) vérifie bien que tes images ne dépassent pas de la hauteur de la ligne

4) le code est à mettre dans le code de la feuille concernée

Edit : bonjour Michel 🙂

 

[MJ13]

Re : Supression d'une image

Re

Teste ce fichier.

 

[tinet]

Re : Supression d'une image

Merci à tous

 

[oliviuss]

Re : Supression d'une image

Bonjour à tous ô excellents experts,

Après maintes vaines recherches, je sollicite votre aide : quelqu'un connait-il le code VB signifiant :

"Supprimer toutes les images dont le nom commence par 'ventilation' dans la feuille 'new_bilan_prod' "

Merci de votre aide

Ps : Félicitation et un grand merci à tous ces gens dont on connait ni le nom ni le visage mais qui prennent des heures et des heures de leur temps pour aider les autres ! 🙂

 

[Compte Supprimé 979]

Re : Supression d'une image

Bonjour à toi ô vénérable Oliviuss et bienvenue sur ce forum 😉

Quelque chose du style

For Each Shp in Sheets("new_bilan_prod").Shapes
  If UCASE(Left(Shp.Name,11)) = "VENTILATION" Then
    Shp.Delete
  End If
Next Shp

A la one again 😉 🙂

A+

 

[oliviuss]

Re : Supression d'une image

Bonjour à toi ô vénérable Oliviuss et bienvenue sur ce forum 😉

Quelque chose du style

For Each Shp in Sheets("new_bilan_prod").Shapes
  If UCASE(Left(Shp.Name,11)) = "VENTILATION" Then
    Shp.Delete
  End If
Next Shp

A la one again 😉 🙂

A+

Ca marche du feu de dieu ! Vous êtes vraiment puissants... Merci à toi Bruno c'est un plaisir. =)