Interférence entre une liste déroulante et l'effacement d'image

Le
JP
Bonsoir,

Il y a un mois environ, j'ai posé une question dont le thème portait su=
r l'interférence entre une liste déroulante et un code qui effaçait d=
es shapes.

Le code initiale était le suivant

'efface les shapes de la colonne D

For Each cell In Sheets("Periode").Shapes
On Error Resume Next
If Not Intersect(cell.TopLeftCell, Sheets("Periode").Range("$D$11:$=
D$52")) Is Nothing Then
cell.Delete
End If
Next

On m'a proposé de remplacer:
For Each cell In Sheets("Periode").Shapes

par:
For Each cell In Sheets("Periode").DrawingObjects

j'étais super content car ma liste déroulante fonctionnait correctement=
.

En y regardant de plus près, je m'aperçois que les shapes ne sont plus =
supprimés.

Est-ce que vous auriez une idée pour solutionner le conflit?
Que les shapes soient supprimés et que la liste déroulante fonctionne c=
orrectement?

Merci d'avance.

JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26227952
Bonjour,

Ce code fonctionne bien! Pourquoi as-tu la ligne de code "On Error Resume Next" dans le code que tu nous as présenté?
'----------------------------------------------
Sub test()
Dim Obj As Object
For Each Obj In Sheets("Periode").DrawingObjects
If Not Intersect(Obj.TopLeftCell, Sheets("Periode").Range("$D$11:$D$52")) Is Nothing Then
Obj.Delete
End If
Next
End Sub
'----------------------------------------------

Il y a quelque chose de nouveau dans ta feuille ou ce classeur et tu le mentionnes pas dans ta question!

Que se passe-t-il lorsque tu exécutes le code pas à pas en utilisant la touche F8?
Est-ce que la ligne "Obj.Delete" s'exécute?
Est-ce que tu as un message d'erreur, si oui lequel?

Si tu n'y arrives pas, publie ce classeur (seulement cette feuille avec seulement les informations pertinentes au problème
que tu soulèves en utilisant cette adresse : Cjoint.com et retourne-nous ici l'adresse que tu obtiendras.
JP
Le #26227992
Bonjour Denis,

le fichier: http://cjoint.com/?DFEhHHHt2JN

Pour répondre à tes questions, la partie de code obj.delete n'est pas e ffectuée.

J'ai ajouté à un moment donné on error resume next car j'ai eu un mes sage d'erreur car le code ne trouvait plus de shapes. Epoque où j'avais F or Each cell In Sheets("Periode").Shapes au lieu de For Each cell In Sheets ("Periode").DrawingObjects
J'aurai dû l'ôter (meaculpa).

Tu trouveras l'objet modèle dans la feuille Periode en colonne W.

La liste déroulante est dans la feuille periode en A9.

J'ai laissé tout le code pour information.

Par ailleurs, je fais un ActiveWindow.Zoom = 145 dans la macro Informatio nPeriode(). Par moment les objets en tête de page ne prennent pas le zoom . Pourquoi?

Deux questions en une. J'espère que ça ne pose pas problème.

Merci encore

JP
MichD
Le #26229612
Ceci fonctionne :

'-------------------------------------------
Dim Obj As Object
With Sheets("Periode")
For Each Obj In .Shapes
If Not Intersect(Obj.TopLeftCell, .Range("$D$11:$D$52")) Is Nothing Then
Obj.Delete
End If
Next
End With
'-------------------------------------------

Quand tu publies un classeur, tu prends le temps de :

- Afficher toutes les feuilles
- Afficher les onglets des feuilles
- Afficher la grille
- Afficher les en-têtes de lignes et de colonnes
- enlève toute protection, mais si aucun mot de passe n’existe.

OU TU TROUVES UN AUTRE RÉPONDEUR QUE MOI!
JP
Le #26230752
Bonsoir Denis,

INUTILE DE RALER ;-)
Le message est cependant bien reçu.
Comme le bouton déprotection était sur la page d'accueil, je ne pensais pas créer de problème.
Loin de moi l'idée de gêner quiconque.

Merci pour ta réponse que je vais immédiatement tester.

Cordialement

JP
JP
Le #26230782
Denis,

En regardant le code, c'est la même chose.
Je l'ai intégré au fichier ci joint. http://cjoint.com/?3FEvAsA6rRX

Plus de protection
Les titres et les quadrillages sont affichés
Tous les onglets nécessaires sont affichés ;-).

Désolé mais la France est en quart de finale alors il faut garder sa bo nne humeur.
Amicalement

JP

JP
MichD
Le #26231482
| INUTILE DE RALER

Si tu es prêt à payer... je veux bien prendre le tout le temps qu'il faudra pour afficher les feuilles, les en-têtes de
lignes et de colonnes, afficher les onglets des feuilles ....Mais en tant que bénévole, je m'attends à ce que le demandeur
déploie des efforts à s'aider lui-même en expliquant convenablement son problème et en facilitant l'intervention des
bénévoles!

Ceci est mon dernier message sur ce fil!
JP
Le #26231632
Je dois dire que ta mauvaise humeur me contrarie.

Cordialement

JP
Fredo P.
Le #26245482
Mdenis a sans doute une mouche qui l'a piqué, il ne faut pas trop y prêter
attention, il est tellement assidu à son job, que l'on ne peut lui en
vouloir, il y a eu pire u certain Clément.
"JP"
Je dois dire que ta mauvaise humeur me contrarie.

Cordialement

JP
Jacquouille
Le #26247302
Vous connaissiez le pape Clément ?
C'est marrant, de voir des gens si dévoués et si compétents qui
disparaissent du jour au lendemain.
Clément nous avait cependant expliqué ses raisons et nous avions eu droit à
un petit coucou dans les 1 ou 2 ans qui ont suivis.
Il y a eu aussi le Président de la SPA ( SommeProd Académy): Alain vallon.
Disparu lui aussi....
Perso, je ne parlerais pas de mouche, car il est très ingrat de répondre aux
questions. Cela relève parfois des sciences occultes et de la boule de
cristal pour deviner la question exacte.
Je comprends parfaitement l'agacement des répondeurs.

Jacquouille, viré du Mondial. -(

" Le vin est au repas ce que le parfum est à la femme."

"Fredo P." a écrit dans le message de groupe de discussion :
lp8dqp$cbc$

Mdenis a sans doute une mouche qui l'a piqué, il ne faut pas trop y prêter
attention, il est tellement assidu à son job, que l'on ne peut lui en
vouloir, il y a eu pire u certain Clément.
"JP"
Je dois dire que ta mauvaise humeur me contrarie.

Cordialement

JP




---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Fredo P.
Le #26253052
Bonjour Jacques
Oui, j'ai eu à faire personnellement avec Clément Le Pape, ça a pété un
moment.
Dans la liste, tu oublies à partir du chef à 4 plumes: Laurent Longres,
ChrisV, Jps, Frédéric Sigonneau, Serge Garneau, Ru-Th, Philippe Raulet,
Brunel Monique, Rural Thierry, Gaetan Mourmant, Philippe Tulliez, Pascal
Engelmajer, Michel Pierron etc... je pourrais en citer encore.
C'est bien dommage que l'on ai plus aucun signe de vie de ces
Excels-Cervaux. Il y a une persévérante dans la bande, Isabelle, et il ne
faut pas oublier Florence Gabon avec http://www.excelabo.net/accuei

"Jacquouille" lp9hsa$a6p$
Vous connaissiez le pape Clément ?
C'est marrant, de voir des gens si dévoués et si compétents qui
disparaissent du jour au lendemain.
Clément nous avait cependant expliqué ses raisons et nous avions eu droit
à un petit coucou dans les 1 ou 2 ans qui ont suivis.
Il y a eu aussi le Président de la SPA ( SommeProd Académy): Alain vallon.
Disparu lui aussi....
Perso, je ne parlerais pas de mouche, car il est très ingrat de répondre
aux questions. Cela relève parfois des sciences occultes et de la boule de
cristal pour deviner la question exacte.
Je comprends parfaitement l'agacement des répondeurs.

Jacquouille, viré du Mondial. -(

" Le vin est au repas ce que le parfum est à la femme."

"Fredo P." a écrit dans le message de groupe de discussion :
lp8dqp$cbc$

Mdenis a sans doute une mouche qui l'a piqué, il ne faut pas trop y
prêter
attention, il est tellement assidu à son job, que l'on ne peut lui en
vouloir, il y a eu pire u certain Clément.
"JP"
Je dois dire que ta mauvaise humeur me contrarie.

Cordialement

JP




---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com

Publicité
Poster une réponse
Anonyme