Erreur dans boucle sur plusieurs feuilles

K

kllmoon

XLDnaute Occasionnel

• 30 Décembre 2009

• #2

Re : Erreur dans boucle sur plusieurs feuilles

ça semble simple à résoudre, met un fichier en exemple

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Décembre 2009

• #3

Re : Erreur dans boucle sur plusieurs feuilles

Bonjour à tous;

Selection.OnAction = "Image4_QuandClic"

Cliquez pour agrandir...

le nom de la macro est-il orthographié de la même manière ?

à+
Philippe

 

Vote positif 0 Vote négatif

G

GregExcel

Guest

• 30 Décembre 2009

• #4

Re : Erreur dans boucle sur plusieurs feuilles

Merci pour vos réponses.

Pour Philippe: Oui le nom de la macro est orthographié de la même manière.

Pour info, si j'éxecute cette macro sur la feuille active telle que ci dessous cela fonctionne mais pas quand je l'adapte à une boucle...

Private Sub Workbook_Open()
Activesheet.Unprotect Password:="***"
Activesheet.Hyperlinks.Delete
Activesheet.Shapes("Image 1").Select
Selection.OnAction = "Image4_QuandClic"
Activesheet.Protect Password:="***", DrawingObjects:=True, Contents:=True, Scenarios:=True 'protection de la feuille
End Sub

J'ai mis en pièce jointe un exemple.
@+ Greg

 

Pièces jointes

• Test.xls

  39 KB · Affichages: 62
• Test.xls

  39 KB · Affichages: 58
• Test.xls

  39 KB · Affichages: 63

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 30 Décembre 2009

• #5

Re : Erreur dans boucle sur plusieurs feuilles

Bonsoir à tous

Peut-être ça :

Code:

[COLOR="DarkSlateGray"][B]Private Sub Workbook_Open()

Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
'WS.Unprotect Password:="***"
WS.Hyperlinks.Delete
WS.Shapes("Image 1").OnAction = "Image4_QuandClic"
'WS.Protect Password:="***", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next WS
End Sub[/B][/COLOR]

ROGER2327
#2492

 

Vote positif 0 Vote négatif

G

GregExcel

Guest

• 30 Décembre 2009

• #6

Re : Erreur dans boucle sur plusieurs feuilles

Bonsoir à tous

Merci ROGER2327
Une merveille ! ça marche nickel !

Toutefois la macro a ses limites car si dans mon classeur j' ai une une feuille qui ne comporte pas l'image "Image 1", Excel retourne un message d'erreur du genre "L'élément portant ce nom est introuvable...."
Donc comment exclure dans la boucle les feuilles ne comportant pas d' "image 1" ? ou tester du genre If image 1 est présente alors....

@+ Greg

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 30 Décembre 2009

• #7

Re : Erreur dans boucle sur plusieurs feuilles

Re...

Peut-être ceci :

Code:

[COLOR="DarkSlateGray"][B]Private Sub Workbook_Open()

Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
'WS.Unprotect Password:="***"
WS.Hyperlinks.Delete
[COLOR="Red"]On Error Resume Next[/COLOR]
WS.Shapes("Image 1").OnAction = "Image4_QuandClic"
[COLOR="Red"]On Error Goto 0[/COLOR]
'WS.Protect Password:="***", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next WS
End Sub[/B][/COLOR]

ROGER2327
#2493

 

Vote positif 0 Vote négatif

G

GregExcel

Guest

• 30 Décembre 2009

• #8

Re : Erreur dans boucle sur plusieurs feuilles

Re,

Merci encore une fois ! Nickel !

Juste une petite question sans vouloir abuser et aussi parce que je voudrais comprendre plutôt que de faire du copier / coller bêtement...

Peux-tu me commenter brievement le code "On Error..." je me doute que cela gère les erreurs mais pourquoi le placer à cet endroit précis de la macro ?

On Error Resume Next
WS.Shapes("Image 1").OnAction = "Image4_QuandClic"
On Error Goto 0

Merci
@+ Greg

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 30 Décembre 2009

• #9

Re : Erreur dans boucle sur plusieurs feuilles

Re...

Les deux instructions encadrent la ligne où on veut éviter l'erreur.
On pourrait placer la première au début de la procédure, la deuxième à la fin, mais dans ce cas, toutes les lignes qui produiraient une erreur seraient ignorées. C'est un peu risqué ! Il vaut mieux placer ces instructions aux endroits où l'on sait qu'une erreur peut survenir sans mettre en cause le fonctionnement correct de toute la procédure.
Pour le détail des instructions On Error..., voyez l'aide VisualBasic.​

ROGER2327
#2497

 

Vote positif 0 Vote négatif

G

GregExcel

Guest

• 30 Décembre 2009

• #10

Re : Erreur dans boucle sur plusieurs feuilles

Re,

Merci pour les explications c'est plus clair maintenant !

Bonsoir
@+ Greg

 

Vote positif 0 Vote négatif