Discussion :

[flamel]

Bonjour,

Le code suivant ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 For i = 80 To 90
     On Error Resume Next
        ActiveSheet.Shapes.Range(Array("Picture " & i)).Select
        Selection.Cut
        Range("zonProv").Select
        Selection.Cut
        Application.CutCopyMode = False
        Selection.ClearContents
 Next i

Merci à qui pourrait me dire mon erreur.

[Jean-Philippe André]

Salut,

comme j'ai laissé ma boule de cristal dans mon autre redingote, si tu peux nous dire ce que tu cherches à faire avec le code, l'erreur qui est générée, ca nous permettra de ne pas jouer aux devinettes

[pc75]

Bonjour,

Le code suivant ne marche pas

Ca ne veut rien dire !

Commence par enlever "on error resume next" et dis nous le message d'erreur.

[flamel]

Bonjour,

J'ai une série d'image dans une zone.
Je veux les couper.
Quand la boucle est sur un numéro qui n'existe pas, ça donne l'erreur.

Erreur 1004
L'élément portant ce nom est introuvable.

Où doit-on placer 'On error resume next' ?

Merci.

[Jean-Philippe André]

Le On Error Resume Next est déconseillé lorsqu'on commence à coder, car il laisse passer des erreurs potentielles de code mais aussi de méthodologies.

On le met en place une fois le code achevé et la gestion d'erreur se fait souvent en dernier

Si ton "Picture" & i peut ne pas exister, il faut faire un test en amont pour savoir s'il existe ou non. Dans le cas où il esxiste, tu peux le selectionner, dans le cas contraire, tu passe à l'incrément suivant

[Philippe Tulliez]

Bonjour,
Ton erreur vient du fait que c'est .Delete et pas .cut et il est parfaitement inutile de faire un Select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range("Picture " & i).Delete

Une autre remarque par rapport à la suite du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("zonProv").Select
Selection.Cut
Application.CutCopyMode = False
Selection.ClearContents

Quand on fait un Couper d'un range, c'est pour faire un Coller ailleurs ou alors on fait un supprimer ou tout simplement on fait une suppression de la valeur (ClearContents). Pourquoi intégrer Range("zonProv") dans la boucle ?

[kiki29]

Salut, uniquement pour info, à lire http://silkyroad.developpez.com/VBA/GestionErreurs/