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
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..
Bonsoir *Denis*
Et une nouvelle fois, Merci.
--
Bien amicordialement,
P. Bastard
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" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: OCm0YFeHGHA.3144@TK2MSFTNGP10.phx.gbl... 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.
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..
Patrick BASTARD
Bonjour, *AV*
J'ai essayé ce matin au bureau cette ligne, qui est parue récemment sur ce forum,
Heu....vous avez dit récemment ?
Je faisais référence à la réponse de AnonymousA à ManBas le 17/01 à 21:40.
-- Bien amicordialement, P. Bastard
Bonjour, *AV*
J'ai essayé ce matin au bureau cette ligne, qui est parue récemment
sur ce forum,
Heu....vous avez dit récemment ?
Je faisais référence à la réponse de AnonymousA à ManBas le 17/01 à 21:40.
