Retour sur 'On error'

Version imprimable

Bonjour,

J'ai essayer le code suivant, tiré de "La gestion des erreurs dans Excel" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub laMacro()
    Dim Ws As Worksheet
 
    'Evite le message d'erreur si la feuille n'existe pas.
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets("Feuil8")
    On Error GoTo 0
 
    '(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
    If Not Ws Is Nothing Then
        MsgBox "La feuille existe dans le classeur."
        Else
        MsgBox "La feuille n'existe pas dans le classeur."
    End If
End Sub

et j'obtiens le message :

Erreur 9
L'indice n'appartient pas à la sélection.

Je cherche à comprendre.
Merci si vous pouvez m'aider.

05/02/2012, 09h21
jfontaine

Bonjour,

Cette macro ne génère pas d'erreur sur mon poste.
05/02/2012, 09h23
Theze

Bonjour,

Ce code est très simple et fonctionne exactement comme il a été prévu de fonctionner. "On Error Resume Next" demande au compilateur d'ignorer l'erreur et de passer à l'instruction suivante, "On Error GoTo 0" supprime le gestionnaire d'erreur (l'objet Err contenant toujours les propriétés de l'erreur levée) de façon à ce que s'il se produit à nouveau une erreur dans les lignes de code suivantes, elle ne soit pas ignorée.
Tu peux aussi remplacer "If Not Ws Is Nothing Then" par "If Err.Number = 0 Then" pour obtenir le même résultat.

Hervé.
05/02/2012, 10h31
SfJ5Rpw8

Bonjour,

voir comment est paramétré ta gestion d'erreur dans excel .. : menu Outils/Option/Onglet général :arrow: arrêt sur les erreurs non gérées
05/02/2012, 10h47
jfontaine

Salut BBil,

Sais tu où est ce paramètre sur Excel 2010?

Bonjour

Merci à vous tous, vous m'avez bien dépanné.

J'ai l'option : Arrêt sur toutes les erreurs.

Mon problème d'existence de controle concernait une routine de copie d'images d'une feuille à l'autre que voici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub CommandButton1_Click() Dim i, xPi, xFe_A, xFe_B xFe_A = "Feuil1" xFe_B = "Feuil8" For i = 1 To 20 Sheets(xFe_A).Select Sheets(xFe_A).Range("A1").Value = i xPi = "Picture " & i On Error Resume Next ActiveSheet.shapes(xPi).Select On Error GoTo 0 If Err.Number = 0 Then Selection.Copy Sheets(xFe_B).Select Sheets(xFe_B).Range("A1").Offset(5, i).Select Sheets(xFe_B).Paste End If Next i Sheets(xFe_B).Range("A1").Select End Sub
La copie se fait aussi pour les CommandButton.
Comment l'empêcher ?

Merci si vpous pouvez encore m'aider.
Cordialement.

Est ce que la feuil8 existe bien dans ton classeur?

Penses a typer tes variables, sinon elles seront toutes de type Variant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub CommandButton1_Click()
Dim i As Byte
Dim xPi As String
Dim xFe_A As String
Dim xFe_B As String
 
xFe_A = "Feuil1"
xFe_B = "Feuil8"
 
For i = 1 To 20
    Sheets(xFe_A).Select
    Sheets(xFe_A).Range("A1").Value = i
    xPi = "Picture " & i
 
    On Error Resume Next
    ActiveSheet.Shapes(xPi).Select
    On Error GoTo 0
 
    If Err.Number = 0 Then
        Selection.Copy
        Sheets(xFe_B).Select
        Sheets(xFe_B).Range("A1").Offset(5, i).Select
        Sheets(xFe_B).Paste
    End If
 
Next i
 
Sheets(xFe_B).Range("A1").Select

05/02/2012, 11h16
SfJ5Rpw8

Citation:

Envoyé par jfontaine

Salut BBil,

Sais tu où est ce paramètre sur Excel 2010?

Voir : http://office.microsoft.com/fr-fr/ex...in=HA010370218

Onglet fichier puis Options.
05/02/2012, 11h23
jfontaine

Merci pour ce lien :ccool:
05/02/2012, 11h40
flamel

Merci jfontaine

La feuille existe bien.
J'ai copié ta version.
Tout se copie bien, mais je souhaiterais que 2 CommandButton qui sont sur la même feuille ne se copient pas.
Je n'arrive pas à les empêcher de se copier avec les images qui sont des 'shapes'.

Merci si tu me donnes la renseignement.

Cordialement

P.S. J'ai voté BIEN

Ci dessous une version qui utilise les objets shape et Worksheet
Un test sur le type de shape pour ne copier que les images

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim i As Byte
 
Dim xFe_A As Worksheet
Dim xFe_B As Worksheet
 
Dim MyShape As Shape
 
i = 1
 
Set xFe_A = ThisWorkbook.Sheets("Feuil1")
Set xFe_B = ThisWorkbook.Sheets("Feuil8")
 
For Each MyShape In xFe_A.Shapes
    If MyShape.Type = msoPicture Then
        MyShape.Copy
        xFe_B.Range("A1").Offset(5, i).PasteSpecial
        i = i + 1
    End If
Next
 
End Sub

05/02/2012, 16h28
flamel

Bonjour Jérôme,

La version essayée ne marche pas. Rien ne se copie.
Il semble que " MyShape " n'est pas reconnu.
Un point d'arrêt mis sur la ligne " MyShape.Copy " n'est pas lu.

Avec cette routine, j'essayais de copier les images l'une après l'autre, car quand je copie la feuille entière, toutes les images sont déformées et allongées.
Pour empêcher cela, il fallait qu'à chaque image (avant la copie) je modifie une propriété dans le positionnement de l'objet, en le faisant une à une, car je ne sais pas le faire par un code. L'enregistrement de Macro dans ce cas ne fonctionne pas.

Merci si tu peux encore m'aider.
05/02/2012, 16h46
jfontaine

Quel est le numéro de l'erreur et le descriptif.
Post aussi ton code

Je viens de trouver la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim i As Byte
 
Dim xFe_A As Worksheet
Dim xFe_B As Worksheet
 
Dim MyShape As shape
 
i = 1
 
Set xFe_A = ThisWorkbook.Sheets("Feuil1")
Set xFe_B = ThisWorkbook.Sheets("Feuil4")
 
For Each MyShape In xFe_A.shapes
    If MyShape.Type = 11 Then
        MyShape.Copy
        xFe_B.Range("A1").Offset(5, i).PasteSpecial
        i = i + 1
    End If
Next
 
End Sub

En mettant le numéro du type.

05/02/2012, 17h35
flamel

Encore un petit problème.
La commande fonctionne bien à partir d'un ' commandbutton ".
Si on utilise pour la lancer l'option " Ctl + s" la copie se fait, mais les images copiées sont toutes très allongées.
J'aimerais en savoir la raison.

Cordialement
05/02/2012, 17h41
jfontaine

Citation:

Si on utilise pour la lancer l'option " Ctl + s" la copie se fait, mais les images copiées sont toutes très allongées.

Désolé, mais la, je ne vois pas pourquoi :calim2:
05/02/2012, 17h58
flamel

On verra ça plus tard.
Maintenant, ça marche, et c'est surtout grâce aux renseignements que tu m'as donnés.
Encore un grand merci.
Cordialement.
Jacques