Shapes

[edelweisseric]

Bonsoir à tous

Il me reste un problème à régler pour achever un fichier sur excel, 97 si possible, il y a des sociétés qui n'ont pas les moyens de se remettre à jour.
Je n'ai pas trouvé réponse sur les forums que j'ai pu regarder, donc je vous soumets ma question.
Quelle est la (les) ligne(s) de code en VBA qui permet de récupérer (sélectionner) toutes les 'lignes' qui ont été tracées, pour les supprimer par exemple, sans toucher aux 'rectangles' ou 'ovals' qui sont sur la même feuille. Que ce soit lignes, ou rectangles, ou carrés, ou ovals, ....
Ces shapes sont tracés par code VBA, mais pas tous en même temps.
Merci d'avance à tous ceux qui se pencheront sur mon petit pb et qui m'éclaireront

Bonsoir à tous

Edelweisseric

 

[Hervé]

bonsoir eric

ce type de code supprime les lignes de la feuilles actives (on parle des lignes droite, les lignes à mains levées ne sont pas incluses)

Sub Bouton7_QuandClic()
Dim objet As Shape

For Each objet In ActiveSheet.Shapes
        If Left(objet.Name, 4) = 'Line' Then objet.Delete
Next objet
End Sub

salut

Hervé [spécialiste maison de la charlotte au chocolat]

 

[edelweisseric]

Bonjour hervé
Bonjour à tous

Quand on ne sait pas, il est difficle de trouver

C'est pourtant facile

Merci beaucoup de ton coup de main si rapide

Cordialement

PS : cela doit sentir bon chez toi .... le specialiste maison de la charlotte au chocolat