OVH Cloud OVH Cloud

Effacer des pseudo objets

12 réponses
Avatar
Patrick BASTARD
Bonsoir, toutes et tous.

J'ai besoin de vos lumières afin d'effacer des (pseudo) objets, que je
n'arrive pas à sélectionner, ni à la souris; no avec sélection, atteindre,
cellules, objets.
Exemple sur ce lien.
http://cjoint.com/?buqJQzWQge

Il s'agit de fenêtres que je récupère sur l'intranet (Ctr+c et Ctrl+v)

Un grand merci d'avance pour toute suggestion.
--
Bien amicordialement,
P. Bastard

10 réponses

1 2
Avatar
JLuc
Patrick BASTARD avait soumis l'idée :
Bonsoir, toutes et tous.

J'ai besoin de vos lumières afin d'effacer des (pseudo) objets, que je
n'arrive pas à sélectionner, ni à la souris; no avec sélection, atteindre,
cellules, objets.
Exemple sur ce lien.
http://cjoint.com/?buqJQzWQge

Il s'agit de fenêtres que je récupère sur l'intranet (Ctr+c et Ctrl+v)

Un grand merci d'avance pour toute suggestion.


UYtilise la barre d'outils "Boite a outils controles" et clic sur
l'equerre bleue. Apres tu pourras... B-)

--
JLuc

Avatar
patrick.lyon
bonjour
le bouton "sélection des objets" symboliser par la fleche blanche de la souris
te permettra de sélectionner tes éléments
tu peux dessiner une sélection pour en prendre plusieurs
Bonsoir, toutes et tous.

J'ai besoin de vos lumières afin d'effacer des (pseudo) objets, que je n'arrive pas à sélectionner, ni à la souris; no avec
sélection, atteindre, cellules, objets.
Exemple sur ce lien.
http://cjoint.com/?buqJQzWQge

Il s'agit de fenêtres que je récupère sur l'intranet (Ctr+c et Ctrl+v)

Un grand merci d'avance pour toute suggestion.


Avatar
Patrick BASTARD
Bonjour, *JLuc*

Manuellement, ta méthode fonctionne parfaitement.
Merci.

Cependant,
ActiveSheet.Shapes.Delete
renvoie une erreur 438.
y a-t'il un moyen d'automatiser ces suppressions ?


--
Bien amicordialement,
P. Bastard



Patrick BASTARD avait soumis l'idée :
Bonsoir, toutes et tous.

J'ai besoin de vos lumières afin d'effacer des (pseudo) objets, que
je n'arrive pas à sélectionner, ni à la souris; no avec sélection,
atteindre, cellules, objets.
Exemple sur ce lien.
http://cjoint.com/?buqJQzWQge

Il s'agit de fenêtres que je récupère sur l'intranet (Ctr+c et
Ctrl+v) Un grand merci d'avance pour toute suggestion.


UYtilise la barre d'outils "Boite a outils controles" et clic sur
l'equerre bleue. Apres tu pourras... B-)



Avatar
Patrick BASTARD
Bonjour, *patrick.lyon*

Merci de ta réponse.

le bouton "sélection des objets" symboliser par la fleche blanche de
la souris te permettra de sélectionner tes éléments.


Parles-tu de l'outil qui se trouve dans la barre "Dessin" ?
Aucun effet.

tu peux dessiner une sélection pour en prendre plusieurs


Hélas non.


--
Bien amicordialement,
P. Bastard

Bonsoir, toutes et tous.

J'ai besoin de vos lumières afin d'effacer des (pseudo) objets, que
je n'arrive pas à sélectionner, ni à la souris; no avec sélection,
atteindre, cellules, objets. Exemple sur ce lien.
http://cjoint.com/?buqJQzWQge

Il s'agit de fenêtres que je récupère sur l'intranet (Ctr+c et
Ctrl+v) Un grand merci d'avance pour toute suggestion.




Avatar
Youky
Bonjour Patrick,
Pour effacer les shapes

Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Selection.Delete

Youky

"Patrick BASTARD" a écrit dans le
message de news: %
Bonjour, *patrick.lyon*

Merci de ta réponse.

le bouton "sélection des objets" symboliser par la fleche blanche de
la souris te permettra de sélectionner tes éléments.


Parles-tu de l'outil qui se trouve dans la barre "Dessin" ?
Aucun effet.

tu peux dessiner une sélection pour en prendre plusieurs


Hélas non.


--
Bien amicordialement,
P. Bastard

Bonsoir, toutes et tous.

J'ai besoin de vos lumières afin d'effacer des (pseudo) objets, que
je n'arrive pas à sélectionner, ni à la souris; no avec sélection,
atteindre, cellules, objets. Exemple sur ce lien.
http://cjoint.com/?buqJQzWQge

Il s'agit de fenêtres que je récupère sur l'intranet (Ctr+c et
Ctrl+v) Un grand merci d'avance pour toute suggestion.








Avatar
AV
| Un grand merci d'avance pour toute suggestion.

ActiveSheet.DrawingObjects.Delete

AV
Avatar
Patrick BASTARD
Bonjour, *Alain*

ActiveSheet.DrawingObjects.Delete


Là, je donne ma langue au chat :
J'ai essayé ce matin au bureau cette ligne, qui est parue récemment sur ce
forum, mais sans succès.

Je ré-essaie, suite à ta suggestion, et ça marche.
In-com-pré-hen-si-ble.

En tous cas Merci, beaucoup..


--
Bien amicordialement,
P. Bastard

Avatar
Patrick BASTARD
Bonjour, *Youky*

Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Selection.Delete

me renvoie : "Mémoire insuffisante", mais pas de panique :


ActiveSheet.DrawingObjects.Delete, que m'a conseillé *AV* fonctionne
farpaitement.

Encore merci à toi,

--
Bien amicordialement,
P. Bastard


le bouton "sélection des objets" symboliser par la fleche blanche de
la souris te permettra de sélectionner tes éléments.


Parles-tu de l'outil qui se trouve dans la barre "Dessin" ?
Aucun effet.

tu peux dessiner une sélection pour en prendre plusieurs


Hélas non.


--
Bien amicordialement,
P. Bastard

Bonsoir, toutes et tous.

J'ai besoin de vos lumières afin d'effacer des (pseudo) objets, que
je n'arrive pas à sélectionner, ni à la souris; no avec sélection,
atteindre, cellules, objets. Exemple sur ce lien.
http://cjoint.com/?buqJQzWQge

Il s'agit de fenêtres que je récupère sur l'intranet (Ctr+c et
Ctrl+v) Un grand merci d'avance pour toute suggestion.








Avatar
michdenis
Bonjour Patrick,

Tu arrives au même résultat en utilisant ceci et ce, sans
faire référence à des objets qui ont été délaissés par
microsoft dans le modèle objet d'excel mais si
microsoft continue d'assurer leur usage...

La question : Pour combien d'années encore ?

;-))

'-------------------
Sub supp()

With Worksheets("Feuil2")
.Shapes.SelectAll
End With
Selection.Delete

End Sub
'-------------------


Salutations!



"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Alain*

ActiveSheet.DrawingObjects.Delete


Là, je donne ma langue au chat :
J'ai essayé ce matin au bureau cette ligne, qui est parue récemment sur ce
forum, mais sans succès.

Je ré-essaie, suite à ta suggestion, et ça marche.
In-com-pré-hen-si-ble.

En tous cas Merci, beaucoup..


--
Bien amicordialement,
P. Bastard

Avatar
AV
| J'ai essayé ce matin au bureau cette ligne, qui est parue récemment sur ce
| forum,

Heu....vous avez dit récemment ?
Pas vraiment car ç'est un truc (objet caché) qui date de XL et qui a été
remplacé par "Shapes" qui (selon moi) laisse grandement à désirer !

AV
1 2